VBA Вроде простой Combobox, а не работает
Формулировка задачи:
Всем привет!
Ребята, посмотрите, пожалуйста, этот файл.
Я только в процессе изучения VBA, дошел до Combobox.
Вот вроде простой пример, а почему-то не работает.
Может, я код не там разместил? Если не там, то в какой части нужно? Как его исправить?
Сам код:
Файл - во вложении
Решение задачи: «VBA Вроде простой Combobox, а не работает»
textual
Листинг программы
Private Sub UserForm_Initialize() Dim iCell As Range For Each iCell In [Опции!B2:B20] 'Worksheets("Опции").Range("B2:B20") If Not IsEmpty(iCell) Then ComboBox1.AddItem iCell.Text Next If ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д