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

Создание пользовательских форм c объектами ListBox целесообразно начинать с формирования кнопочного меню, рис. 1.2.

Тогда в каждом модуле, программно поддерживающем соответствующий объект CommandButton, находится обращение к определенному объекту UserForm.

2.1 Заполнение списка поэлементно, если список состоит из одной колонки

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Создание пользовательской формы 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

End Sub

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

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

2.2 Заполнение списка массивом, если список состоит из одной колонки

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

Private Sub CommandButton2_Click()

UserForm2.Show

End Sub

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

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

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

3. Выбрать UserForm.

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

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

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

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

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

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

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

Рис. 1.5.

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

Private Sub CommandButton1_Click()

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

With ListBox1

.List = Array("Июнь ", " Июль ", " Август ", " Сентябрь ", "Октябрь")

End With

End Sub

Private Sub ListBox1_Click()

TextBox1.Text = ListBox1.Text

Cells(10, 3).Value = ListBox1.Text

End Sub

Private Sub CommandButton2_Click()

UserForm2.Hide

End Sub

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

– В модуле Private Sub ListBox1_Click(), программно поддерживающем объект ListBox1, к объекту ListBox1 применяется свойство .Text, которое позволяет получить значение текущего выбранного элемента объекта ListBox1. Это значение присваивается объекту TextBox1, а так как выбран “сентябрь”, то этот элемент и отображен в окне объекта TextBox1. Кроме того, этот же элемент списка объекта ListBox1 выведен в ячейку десятой строки и пятого столбца таблицы Excel;

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