Всем привет! Столкнулся с проблемой и не смог найти в интернете решения!
Необходимо заполнить ComboBox ActiveX данными из умной таблицы находящейся на другом листе
Я вообще не разбираюсь в VBA. Даже не знаю как правильно вызвать событие для заполнения ComboBox
ComboBox находится не в форме, а помещается в самом листе
Наткнулся на примеры. Ни один из примеров не помог. VBA ругается
1 пример.
2 пример.
Необходимо заполнить ComboBox ActiveX данными из умной таблицы находящейся на другом листе
Я вообще не разбираюсь в VBA. Даже не знаю как правильно вызвать событие для заполнения ComboBox
ComboBox находится не в форме, а помещается в самом листе
Наткнулся на примеры. Ни один из примеров не помог. VBA ругается
1 пример.
| Код |
|---|
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Range("Штат[ФИО]").Value
End Sub |
2 пример.
| Код |
|---|
'для получения данных с ДРУГОГО листа необходимо добавлять имя листа
With Worksheets("Лист1")
'по названию таблицы и столбца
ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects("Таблица1").ListColumns("Фамилия").DataBodyRange.Address
'по индексу таблицы и индексу столбца
ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .ListObjects(1).ListColumns(3).DataBodyRange.Address
'именованный диапазон
ActiveSheet.ComboBox1.ListFillRange = .Name & "!" & .Range("ДАННЫЕ").Address
End With |
