double arrow

Программа Заполнение объектов ListBox, расположенных на одном объекте UserForm


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







Сейчас читают про: