Информатика для I курса. Часть I. Никифоров С.Н. - 45 стр.

UptoLike

ВУЗ: 

СПбГАСУ | Санкт-Петербург

Составители: 

Рубрика: 

88 89
10.3. Заполнение объектов ListBox, расположенных
на листе Excel
Создание объектов ListBox на листе Excel организуется следу-
ющим образом:
выбрать в верхнем горизонтальном меню «Вид»;
выбрать в подменю «Панель инструментов»;
выбрать в подменю «Элементы управления».
Затем с панели Элементы управления на лист Excel (рис. 10.9)
последовательно переместить:
четыре объекта ListBox;
три объекта
CommandButton,
расположив их, как показано на рис. 10.9.
Рис. 10.9
Далее войти в VBA (Alt-F11), выбрать объект CommandButton1.
Затем, выбрав объект CommandButton1, написать соответству-
ющую программу, обеспечивающую заполнение данными объек-
тов ListBox1, ListBox2, ListBox4, ListBox5.
Программа заполнения объектов ListBox,
расположенных на листе Excel
Private Sub CommandButton1_Click()
Dim s(1 To 5, 1 To 3) As String
Dim i As Integer, j As Integer
'Заполнение списка поэлементно, 1 колонка
With ListBox1
.AddItem "Июнь"
.AddItem "Июль"
.AddItem "Август"
.AddItem "Сентябрь"
End With
'Заполнение списка массивом, 1 колонка
With ListBox2
.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

Страницы