Private Sub CommandButton1_Click()
Dim s(1 To 5,1 To 3)As String
Dim i As Integer
Dim j As Integer
' Заполнение списка поэлементно, если список состоит из одной колонки
With ListBox1
.AddItem “Июнь”
.AddItem “Июль”
.AddItem ”Август”
.AddItem “Сентябрь”
End With
' Заполнение списка массивом, если список состоит из одной колонки.
With ListBox2
.List=Array(''Июнь'', ''Июль'', ''Август'', ''Сентябрь'', ''Октябрь'')
.ListIndex=1
TextBox1=.ListIndex
.ControlSource=''A7''
End With
' Заполнение списка из диапазона, в который предварительно введены элементы списка.
With ListBox3
. ColumnCount=2
.RowSource=''A1:B5''
.ControlSourse=''A8''
.BoundColumn=0
.BoundColumn=1
.BoundColumn=2
TextBox2=.BoundColumn
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
' Заполнение списка массивом,несколько колонок
S(1, 1) ="№": S(1, 2) = "ФИО": S(1, 3) = "Оценка"
S(2, 1) = "1": S(2, 2) = "Петров": S(2, 3) = "3"
|
|
S(3, 1) = "2": S(3, 2) = "Шацков": S(3, 3) = "5"
S(4, 1) = "3": S(4, 2) = "Фролькис": S(4, 3) = "2"
S(5, 1) = "4": S(5, 2) = "Печкин": S(5, 3) = "4"
With ListBox5
.ColumnCount = 3
.List = S
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me