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

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

With ListBoxl

.Addltem "Июнь"

.Addltem "Июль"

.Addltem "Август"

.Listlndex = 0

End With

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

With ListBox1

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

.Listlndex = 1

End With

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

With ListBoxl

.ColumnCount =2

.RowSource = "A1:B4"

.ControlSource = "Cl"

.BoundColumn = 0

End With

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

With ListBoxl

.ColumnCount = 2

.Addltem "Июнь"

.List(0,1} = "Сессия"

.Addltem "Июль"

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

.Addltem "Август"

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

End With

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

Dim A (2, 1) As String

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

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

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

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

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

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

With ListBoxl

.ColumnCount = 2

.List = A

End With