Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Не удалось получить список свойств при выборе данных . - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не удалось получить список свойств при выборе данных . (Макросы/Sub)
Не удалось получить список свойств при выборе данных .
parovoznik Дата: Вторник, 03.12.2019, 17:16 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый вечер.
Имеется форма для поиска по первым буквам. После выбора необходимых данных жмем кнопку ОК и на второй форме должны отобразиться данные по выбранному Исполнителю.
Но выдает ошибку "Не удалось получить список свойств".
Как можно подкорректировать ?
К сообщению приложен файл: 7136752.xlsm (31.7 Kb)
 
Ответить
СообщениеДобрый вечер.
Имеется форма для поиска по первым буквам. После выбора необходимых данных жмем кнопку ОК и на второй форме должны отобразиться данные по выбранному Исполнителю.
Но выдает ошибку "Не удалось получить список свойств".
Как можно подкорректировать ?

Автор - parovoznik
Дата добавления - 03.12.2019 в 17:16
nilem Дата: Вторник, 03.12.2019, 17:34 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
parovoznik, привет
модуль mPublicVars
[vba]
Код
Sub CreatiArr()
    With Worksheets("справочник")
         iArr = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)(1, 8)).Value '***
    End With
End Sub

'Запуск поисковика
Sub ShowForm()
frmSearch.Show 0    '***
End Sub
[/vba]
модуль формы frmSearch
[vba]
Код
Private Sub Btn_Выбрать_Click()
With Main
    .Show 0   '***
    .TextBox1 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 0)
    .TextBox2 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 1)
    .TextBox3 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 2)
    .TextBox4 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 3)
    .TextBox5 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 4)
    .TextBox6 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 5)
    .TextBox7 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 6)
    .TextBox8 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 7)
    'индексы столбцов от нуля начинаются (и строк тоже)
End With
'Main.Show
frmSearch.Hide
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеparovoznik, привет
модуль mPublicVars
[vba]
Код
Sub CreatiArr()
    With Worksheets("справочник")
         iArr = .Range(.Cells(3, 1), .Cells(.Rows.Count, 1).End(xlUp)(1, 8)).Value '***
    End With
End Sub

'Запуск поисковика
Sub ShowForm()
frmSearch.Show 0    '***
End Sub
[/vba]
модуль формы frmSearch
[vba]
Код
Private Sub Btn_Выбрать_Click()
With Main
    .Show 0   '***
    .TextBox1 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 0)
    .TextBox2 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 1)
    .TextBox3 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 2)
    .TextBox4 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 3)
    .TextBox5 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 4)
    .TextBox6 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 5)
    .TextBox7 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 6)
    .TextBox8 = Me.List_РезультатыПоиска.List(List_РезультатыПоиска.ListIndex, 7)
    'индексы столбцов от нуля начинаются (и строк тоже)
End With
'Main.Show
frmSearch.Hide
End Sub
[/vba]

Автор - nilem
Дата добавления - 03.12.2019 в 17:34
parovoznik Дата: Вторник, 03.12.2019, 17:40 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 442
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
nilem, благодарю . Вы как всегда на высоте. :)
 
Ответить
Сообщениеnilem, благодарю . Вы как всегда на высоте. :)

Автор - parovoznik
Дата добавления - 03.12.2019 в 17:40
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Не удалось получить список свойств при выборе данных . (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!