Почему мой VBA ComboBox пуст, пока я не наберу

Question

Я создал простой UserForm ComboBox со списком элементов:

Private Sub CourseComboBox_Change()
CourseComboBox.List = Sheets("Course Lists").Range("G2:G15").Value
End Sub

Когда я запускаю UserForm, раскрывающийся список отображается пустым, пока я что-то не наберу. На данный момент полный список отображается для меня на выбор. Есть ли что-то, что я делаю неправильно, из-за чего текст в моем ComboBox не отображается, пока я не наберу текст?

Я попытался добавить CourseComboBox.ListIndex = 0 (предыдущее решение здесь), но это не имело никакого эффекта.

Answer 1

Я думаю, что проблема в том, что вы загружаете содержимое Combobox при изменении комбинированного списка (то есть событие Combobox 'Change), где вместо этого вы должны загружать комбинированный список в обработчик события UserForm_Initialize().

Попробуйте переместить эту строку:

CourseComboBox.List = Sheets("Course Lists").Range("G2:G15").Value

Здесь:

Private Sub UserForm_Initialize()
    CourseComboBox.List = Sheets("Course Lists").Range("G2:G15").Value
End Sub

И удалите другой CourseComboBox_Change() код события.