Заполнение объектов ListBox, расположенных на листе Excel

1 2 3 4 5 6 7

Создание объектов ListBox на листе Excel организуется следующим образом:

1. Выбратьв верхнем горизонтальном меню “ Вид ”;

2. Выбрать в подменю “ Панель инструментов ”;

3. Выбрать в подменю “ Элементы управления ”.

Рис. 1.9.

Затем с панели Элементы управления на лист Excel, рис. 1.9, последовательно переместить:

· четыре объекта ListBox;

· три объекта CommandButton,

расположив их, как показано на рис. 1.9.

Далее войти в VBA (Alt-F11), выбрать объект CommandButton1.

Затем,выбрав, объект CommandButton1, написать соответствующую программу, обеспечивающую заполнение данными объектов ListBox1, ListBox2, ListBox4, ListBox5.

Программа Заполнение объектов ListBox, расположенных на листе Excel

Private Sub CommandButton1_Click()

Dim s(1 To 5, 1 To 3) As String

Dim i As Integer, j As Integer

'Заполнение списка поэлементно,1 колонка

With ListBox1

.AddItem "Июнь"

.AddItem "Июль"

.AddItem "Август"

.AddItem "Сентябрь"

End With

'Заполнение списка массивом,1 колонка