Пример 1. Пусть имеется список группы, в котором содержатся сведения об оценках, полученных студентами во время сессии (рис. 11.1).
Рис. 11.1 – Рабочий лист Excel со списком группы
Требуется посчитать средний балл для конкретного студента, выбранного из списка.
На рабочем листе с помощью панели Элементы управления создана кнопка с надписью «Средний балл ».
Для выбора фамилии студента разработана форма, представленная на рис. 11.2. На этой форме с именем UserForm1 создан комбинированный список ComboBox1 с надписью «Раскройте список, выберите фамилию, нажмите кнопку» в элементе управления Label1. Командная кнопка с заголовком «Расчет среднего балла» запускает программу расчета. В поле TextBox1 выводится полученный результат, перед этим полем в метке Label2 сделана надпись «Средний балл».
11.2 – Пользовательская форма
Для кнопки «Средний балл», которая находится на рабочем листе «Лист1», записана программа
Sub CommandButton1_Click()
I=4
Do Until Worksheets(“Лист1”).Cells(I,1)=””
I=I+1
Loop
J=I-1
UserForm1.ComboBox1.RowSource = "Лист1!b4:b” & J
