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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы