Заполнение списка

Поэлементно, если список состоит из одной колонки(рис.)

With ListBox1

.AddItem “Июнь”

.AddItem “Июль”

.AddItem “Август”

.ListIndex = 0

End With

Массивом, если список со­стоит из одной колонки

With ListBoxl

.List = Array("Июнь", "Июль", "Август")

.Listlndex = 1

End With

Из диапазона a1 : B4, в кото­рый предварительно введены элементы списка. Результат выбора (индекс выбранной строки) выводится в ячейку

С1.

With ListBoxl

.ColumnCount = 2

.RowSource = "A1:B4"

.ControlSource = "С1"

.BoundColumn = 0

End With

Поэлементно, если список состоит из нескольких коло­нок, например двух

With ListBoxl

.ColumnCount = 2

.Addltem "Июнь"

.ListfO, 1) = "Сессия"

.Addltem "Июль"

.Listfl, 1) = "Каникулы"

.Addltem "Август"

.List (2, 1) = "Каникулы"

End With

Массивом, если список со­стоит из нескольких коло­нок, например двух

Dim A (2, 1) As String

A(0, 0) = "Июнь"

A(0, 1) = "Сессия"

A(1, 0) = "Июль"

А(1, 1) = "Каникулы"

A(2, 0) = "Август"

A(2, 1) = "Каникулы"

With ListBox1

.ColumnCount = 2

.List = A

End With