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

Рис. 1.7.

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

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

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

3. Выбрать UserForm.

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

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

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

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

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

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

Программа поэлементного заполнение списка объекта, если список состоит из нескольких колонок

Private Sub CommandButton1_Click()

With ListBox1

.ColumnCount = 3

.AddItem "Сорокина"

.List(0, 1) = "Информатика"

.List(0, 2) = "зачет"

.AddItem "Донец"

.List(1, 1) = "Математика"

.List(1, 2) = " зачет "

.AddItem "Гусева"

.List(2, 1) = "Физика"

.List(2, 2) = " зачет "

.AddItem "Жигунова"

.List(3, 1) = "Начертательная геометрия"

.List(3, 2) = " зачет "