Я хочу добавить уникальные данные (из листа MainMenuData в той же книге) в поле со списком ActiveX, расположенное на листе 1. Имя ComboBox изменено с Properties на ZoneDropDown
. Написал следующий код на мероприятии открытия книги.
Private Sub workbook_open()
Dim Zn()
Dim R As Integer
For R = 1 To 248
ZoneDropDown.AddItem Sheets("MainMenuData").Cells(R, 7)
Next
End Sub
Это дает следующую ошибку для ZoneDropDown
Microsoft Visual Basic для приложений
Ошибка компиляции:Переменная не определена
Но если я размещу кнопку на том же листе (т.е. листе 1) над кодом, код будет успешно выполнен, и данные будут добавлены в поле со списком.