Создание элементов ListBox из таблицы с использованием VBA

Question

Я пытаюсь создать ListBox, используя VBA в Excel. В настоящее время при запуске формы я не могу редактировать список и ничего не сгенерируется.

Я пытаюсь сгенерировать значения из столбца таблицы

Имя списка: client_code_lb
имя листа: client_info
имя таблицы: client_info

Sub client_code_lb_LoadTable()

Dim tbl As ListObject
Dim cell As Range

'Store Table Object to a variable
 Set tbl = client_info.ListObjects("client_info")

'Load List Box
 For Each cell In tbl.DataBodyRange.Columns(1).Cells
    client_code_lb.AddItem cell.Value
 Next cell

End Sub

Answer 1

Я полагаю, список в форме

В настоящее время при запуске формы

Sub client_code_lb_LoadTable()

dim myArr as Variant

' fill array from table's column
myArr= client_info.ListObjects("client_info").DataBodyRange.Columns(1).value

' fill listbox from array
client_code_lb.List=myArr

End Sub

Примечание: вам следует пересмотреть использование именования в виде змеи. Читать это.