End Sub. Создание пользовательской формы c объектомListBox1 организуется следующим образом

Создание пользовательской формы c объектом ListBox1 организуется следующим образом:

1. Войти в VBA – Alt-F11;

2. Выбрать Insert (вставка);

3. Выбрать UserForm.

Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, последовательно переместить:

· один объект ListBox;

· два объекта CommandButton,

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

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

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

Рис. 1.4.

Программа поэлементного заполнение списка объекта ListBox, если список состоит из одной колонки

Private Sub CommandButton1_Click()

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

With ListBox1

.AddItem "Июнь"

.AddItem "Июль"

.AddItem "Август"

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

End With

End Sub

Private Sub CommandButton2_Click()

UserForm1.Hide