8.2. Пример работы с формой пользователя

Пример. Пусть имеется список группы, в котором содержатся сведения об оценках, полученных студентами во время сессии (рис. 8.1).

Рис. 8.1. Рабочий лист Excelсо списком группы

Требуется посчитать средний балл для конкретного студента, выбранного из списка.

На рабочем листе с помощью панели Элементы управления создана кнопка с надписью «Средний балл».

Для выбора фамилии студента разработана форма, представленная на рис. 8.2. На этой форме с именем UserForm1 создан комбинированный список ComboBox1 с надписью «Раскройте список, выберите фамилию, нажмите кнопку» в элементе управления Label1. Командная кнопка с заголовком «Расчет среднего балла» запускает программу расчета. В поле TextBox1 выводится полученный результат, перед этим полем в метке Label2 сделана надпись «Средний балл».

Рис. 8.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

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 на форме.

8.3. Содержание заданий

1. Создать в Excel таблицу, пользовательскую форму, записать для них программы в соответствии с приведенными выше примерами. Опробовать работу программ.

2. Добавить в таблицу дополнительные сведения о годе рождения студентов, адресе и т. п.

3. Пусть имеется список товаров на листе Excel. Разработать пользовательскую форму, в которой из раскрывающегося списка товаров можно было бы выбрать нужный товар, и при нажатии кнопки на этой форме в текстовом окне отображалась бы цена товара.

9. Приложение mathcad

Приложение Mathcad предназначено для выполнения различных расчетов, для работы с графическими изображениями.

Объединение текстового, формульного и графического редакто­ров с вычислительным ядром позволяет готовить электронные документы с высоким качеством оформления, способные выполнять расчеты с наглядной демонстрацией результатов.

Для удобства работы с математическими выражениями в приложении имеется панель Математика, которая служит для вывода на экран еще 9 панелей: Арифметика – для вставки цифр и основных математических операторов; Графики – для построения графиков; Матрицы – для работы с матрицами; Вычисления – для вставки операторов управления вычислениями; Матанализ – для использования операторов дифференцирования, интегрирования, пределов, сумм и произведений; Логический (Булево) – для вставки логических операторов; Программирование – для программирования средствами Mathcad; Греческий алфавит – для вставки греческих символов; Символы – для вставки ключевых слов и операторов символьных вычислений.

Вывод на экран и отключение панелей производится при помощи пункта меню Вид/Панели инструментов. Многие операторы, имеющиеся на этих панелях, можно также ввести и с клавиатуры. Комбинации клавиш отображаются во всплывающих подсказках при наведении на соответствующие кнопки панелей указателя мыши.