Добавление элементов в список с несколькими столбцами

Question

Как добавить элементы в список с помощью 2 columns? Он добавляет элементы только в первом столбце, если я использую ListBox.AddItem. Я хочу добавить элементы в 2nd column тоже. Спасибо!

Answer 1

Используя свойство List.

ListBox1.AddItem "foo"
ListBox1.List(ListBox1.ListCount - 1, 1) = "bar"

Answer 2

Есть еще один способ добиться этого: -

Private Sub UserForm_Initialize()
Dim list As Object
Set list = UserForm1.Controls.Add("Forms.ListBox.1", "hello", True)
With list
    .Top = 30
    .Left = 30
    .Width = 200
    .Height = 340
    .ColumnHeads = True
    .ColumnCount = 2
    .ColumnWidths = "100;100"
    .MultiSelect = fmMultiSelectExtended
    .RowSource = "Sheet1!C4:D25"
End With End Sub

Здесь я использую диапазон C4: D25 в качестве источника данных для столбцов. Это приведет к заполнению обоих столбцов значениями.

Свойства говорят сами за себя. Вы можете изучить другие параметры, нарисовав ListBox в пользовательской форме и используя «Окно свойств (F4)», чтобы поиграть со значениями параметров.

Answer 3

выберите свойство

Тип источника строки => Список значений

Код:

ListbName.ColumnCount = 2

ListbName.AddItem "значение столбца1; значение столбца2"