Sub CommandButton1_Click(). Do Until Worksheets(“Лист1”).Cells(I,1)=””

I=4

Do Until Worksheets(“Лист1”).Cells(I,1)=””

I=I+1

Loop

J=I-1

UserForm1.ComboBox1.RowSource = "Лист1!b4:b” & J

UserForm1.Show

End Sub

Здесь ””означает пустую ячейку. В переменной J определяется номер последней заполненной строки в таблице. Затем с помощью метода RowSourceзаполняется комбинированный список ComboBox1информацией из ячеек b4:bJ.С помощью метода Showформа вызывается на экран.

Для кнопки «Расчет среднего балла» записана программа

Sub CommandButton1_Click()

n = UserForm1.ComboBox1.ListIndex + 1

s = 0

For i = 1 To 4

b = Worksheets("Лист1").Cells(n + 3, i + 2).Value

s = s + b

Next

a = s / 4

UserForm1.TextBox1.Text = a

End Sub

В этой программе определяется номер выбранного элемента списка посредством свойства ListIndex, а затем высчитывается средний балл. Полученный результат помещается в текстовое окно TextBox1 на форме.

Работа с простым списком

Пример 2. Пусть требуется по результатам сессии определить фамилии двоечников для списка студентов, представленного на рис.11.1.

Создадим форму пользователя, в заголовке которой напишем «Список двоечников» (в свойстве Caption), имя формы изменим на Neud (в свойстве Name). На форме разместим достаточно большой простой список (ListBox1). Тогда программа для некоторой кнопки на рабочем листе может выглядеть следующим образом: