На этом шаге мы рассмотрим различные способы заполнения списка значениями.

Заполнить список можно одним из следующих способов.

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

Рис.1. Список с одной колонкой элементов
```
  With ListBox1 
    .AddItem "Июнь" 
    .AddItem "Июль" 
    .AddItem "Август" 
    .ListIndex = 0 
  End With
```

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

  With ListBox1
    .List = Array ("Июнь", "Июль", "Август") 
    .ListIndex = 1 
  End With

Из диапазона A1:B4, в который предварительно введены элементы списка. Результат выбора (индекс выбранной строки) выводится в ячейку C1.
```
  With ListBox1 
    .ColumnCount = 2 
    .RowSource = "A1:B4" 
    .ControlSource = "C1" 
    .BoundColumn = 0 
  End With
```

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

  With ListBox1 
    .ColumnCount = 2 
    .AddItem "Июнь"
    .List(0,1) = "Сессия" 
    .AddItem "Июль" 
    .List(l,1) = "Каникулы" 
    .AddItem "Август" 
    .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 ListBox1 
    .ColumnCount = 2
    .List = A 
  End With

На следующем шаге мы рассмотрим выбор нескольких элементов из списка.

Предыдущий шаг Содержание Следующий шаг