Рис. 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) = " зачет "