.List = Array("январь", "февраль", "март", "апрель", "май", "июнь", "июль", "август", "сентябрь", "октябрь", "ноябрь", "декабрь")
End With
'Заполнение списка поэлементно,несколько колонок
s(1, 1) = "N": s(1, 2) = "Ф.И.О.": s(1, 3) = "Оценка":
s(2, 1) = "1": s(2, 2) = "Петров": s(2, 3) = "5"
s(3, 1) = "2": s(3, 2) = "Сидоров": s(3, 3) = "2"
s(4, 1) = "3": s(4, 2) = "Иванов": s(4, 3) = "3"
s(5, 1) = "4": s(5, 2) = "Ромашкин": s(5, 3) = "4"
With ListBox4
.ColumnCount = 3
.List = s
End With
'Заполнение списка массивом,несколько колонок
With ListBox5
.ColumnCount = 3
.AddItem "июнь"
.List(0, 1) = "06"
.List(0, 2) = "30"
.AddItem "июль"
.List(1, 1) = "07"
.List(1, 2) = "31"
.AddItem "август"
.List(2, 1) = "08"
.List(2, 2) = "31"
.AddItem "сентябрь"
.List(3, 1) = "09"
.List(3, 2) = "30"
End With
End Sub
Private Sub CommandButton2_Click()
ListBox1.Clear
ListBox2.Clear
ListBox4.Clear
ListBox5.Clear
End Sub
Private Sub CommandButton3_Click()
Sheets("лист0").Select
End Sub
Некоторые комментарии к программе:
|
|
– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, реализуются те же программы, что и в модуле программно поддерживающем объект CommandButton1 раздела 1.1.
– В модуле Private Sub CommandButton1_Click(), программно поддерживающем объект CommandButton1, не реализуется способ заполнения объекта ListBox “ из диапазона”, то есть объект ListBox 3 – отсутствует;
– В модуле Private Sub CommandButton2_Click(), программно поддерживающем объект CommandButton2, который в свойстве Caption переименован в “Очистить”,к объекту ListBox1 применен метод .Clear, с помощью которого осуществляется удаление элементов списка, анлогично операции применяются к элементам списков объектов ListBox2, ListBox4 и ListBox5;
– В модуле Private Sub CommandButton3_Click(), программно поддерживающем объект CommandButton3, который в свойстве Caption переименован в “Меню”,к объекту Sheets применен метод. Select, с помощью которого выполняется переход на лист оглавления всего пакета.
Лекция 2. Виды алгоритмов. Операторы цикла
Материалы этой статьи опубликованы в [1], [3].