VBA Excel Ошибка 424 поиска текстовое поле для отображения списка, ошибка отображения заголовка списка

Question

Я пытаюсь создать пользовательскую форму для поиска человека в 10000 записей Excel, используя любой из столбцов «Нет», «Имя», «Фамилия», «Имя пользователя» или «Адрес электронной почты».

Я могу выполнить поиск. Однако, когда в списке отображаются данные, отображается только первый столбец, а не остальные 4 столбца.

Спасибо.

Private Sub SearchCommand_Click()

Me.ResultListbox.AddItem

For a = 1 To 5

Me.ResultListbox.List(0, a - 1) = Sheet1.Cells(1, a)
Next a
Me.ResultListbox.Selected(0) = True
End sub

Answer 1

Моя версия Excel автоматически устанавливает номер столбца списка равным 1. Поэтому я написал:

Me.ResultListbox.ColumnCount = 5