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; Греческий алфавит – для вставки греческих символов; Символы – для вставки ключевых слов и операторов символьных вычислений.

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