2.3 Заполнение списка из диапазона, в который предварительно введены элементы списка

Вызов объекта UserForm3, на базе которого организуется заполнение списка объекта ListBox1 из диапазона, осуществляется с помощью следующего программного модуля:

Private Sub CommandButton3_Click()

UserForm3.Show

End Sub

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

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

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

3. Выбрать UserForm.

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

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

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

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

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

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

Рис. 1.6.

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

Private Sub CommandButton1_Click()

With ListBox1

.ColumnCount = 2

.RowSource = "A1:B8"

End With

End Sub

Private Sub CommandButton2_Click()

UserForm3.Hide

End Sub

Некоторые комментарии к программе:

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox1 из диапазона, к объекту ListBox1 применяется свойство RowSours, с помощью которого устанавливается диапазон, содержащий элементы списка, в данном случае "A1:B8";

– Так как данные, передаваемые из указанного диапазона, в объект ListBox1 представляют собой таблицу, состоящую из двух столбцов, то, к объекту ListBox1 применяется свойство .ColumnCount, значение которого устанавливает число столбцов в списке = 2;

– Модуль объекта CommandButton2, который в свойстве Caption переименован в “Закрыть”, обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm3 метода Hide (скрыть).

2.4 Заполнение списка поэлементно, если список состоит из нескольких колонок

Вызов объекта UserForm4, на базе которого организуется поэлементное заполнение списка объекта ListBox1, если список состоит из нескольких колонок, осуществляется с помощью следующего программного модуля:

Private Sub CommandButton1_Click()

UserForm4.Show

End Sub

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

End With

Private Sub CommandButton2_Click()

UserForm4.Hide

End Sub

Некоторые комментарии к программе:

– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, при реализации способа заполнения списка ListBox1 поэлементно, если список состоит из нескольких колонок, к объекту ListBox1 применяется метод AddItem, с помощью которого в операторе цикла With добавляются элементы списка, например .AddItem "Сорокина" и т.д.; Кроме того, к объекту ListBox1 применяется свойство .List, в качестве значений которого элементам списка ListBox1, находящимся на пересечении указанных строк и столбцов, сообщаются соответствующие символьные константы, например, "Информатика", "зачет" и т.д.;

– Так как данные, формируемые в объекте ListBox1 представляют собой таблицу, состоящую из трех столбцов, то, к объекту ListBox1 применяется свойство .ColumnCount, значение которого устанавливает число столбцов в списке = 3;

– Модуль объекта CommandButton2, который в свойстве Caption переименован в “Закрыть”, обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm4 метода Hide (скрыть).