Заполнение списка из диапазона, в который предварительно введены элементы списка
Вызов объекта UserForm 3, на базе которого организуется заполнение списка объекта ListBox 1 из диапазона, осуществляется с помощью следующего программного модуля:
Private Sub CommandButton3_Click()
UserForm3.Show
End Sub
Создание пользовательской формы c объектом ListBox 1 организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
один объект ListBox;
два объекта CommandButton ,
расположив их, как показано на рис. 10.6.
Далее войти в VBA (Alt-F11), выбрать объект UserForm 3.
Затем,выбрав, объект CommandButton 1, написать соответствующую программу, обеспечивающую заполнение данными объекта ListBox 1.
Программа заполнение списка объекта ListBox из диапазона
Рис. 10.6.
Private Sub CommandButton1_Click()
With ListBox1
.ColumnCount = 2
.RowSource = "A1:B8"
End With
End Sub
Private Sub CommandButton2_Click()
UserForm 3. Hide
End Sub
Некоторые комментарии к программе:
– В модуле Private Sub CommandButton 1_ Click (), программно поддерживающем объект CommandButton 1, при реализации способа заполнения списка ListBox 1 из диапазона, к объекту ListBox 1 применяется свойство RowSours , с помощью которого устанавливается диапазон, содержащий элементы списка, в данном случае " A 1: B 8";
– Так как данные, передаваемые из указанного диапазона, в объект ListBox 1 представляют собой таблицу, состоящую из двух столбцов, то, к объекту ListBox 1 применяется свойство . ColumnCount , значение которого устанавливаетчисло столбцов в списке = 2;
|
|
– Модуль объекта CommandButton 2, который в свойстве Caption переименован в “Закрыть”,обеспечивает завершение функционирования объекта UserForm за счет применения к объекту UserForm 3 метода Hide (скрыть).
Заполнение списка поэлементно, если список состоит из нескольких колонок
Вызов объекта UserForm 4, на базе которого организуется поэлементное заполнение списка объекта ListBox 1, если список состоит из нескольких колонок, осуществляется с помощью следующего программного модуля:
Private Sub CommandButton1_Click()
UserForm 4 .Show
End Sub
Создание пользовательской формы c объектом ListBox 1 организуется следующим образом:
1. Войти в VBA – Alt - F 11;
2. Выбрать Insert (вставка);
3. Выбрать UserForm .
Затем на появившуюся “платформу” объекта UserForm с панели Toolbox, рис. 9.4, последовательно переместить:
один объект ListBox;
два объекта CommandButton ,
расположив их, как показано на рис. 10.7.
Рис. 10.7.
Далее войти в VBA (Alt-F11), выбрать объект UserForm 4.
Затем,выбрав, объект CommandButton 1, написать соответствующую программу, обеспечивающую заполнение данными объекта ListBox 1.
Программа поэлементного заполнение списка объекта, если список состоит из нескольких колонок
|
|
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
Дата добавления: 2019-03-09; просмотров: 216; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!