Использование комбинированного списка

List1.AddItem Cos(4)

ПРОСТЫЕ И КОМБИНИРОВАННЫЕ СПИСКИ

Практикум

End Sub

Dim a As Single, b As Single, z As Single

Dim x As Single, y As Single

x = UserForm1.TextBox1.Text

y = Format(x, "####.##")

a = (x + y) ^ 2: b = Sin(a) - Sin(b) ^ 3

UserForm1.TextBox2.Text = "a=" & a

UserForm1.TextBox3.Text = "b=" & b

UserForm1.Label2.Caption = "z = " & 5 * Sin(10) / 3

Программу можно запустить нажатием кнопки Run на листе редактора Visual Basic.

1. Опробовать приведенный выше пример 1 и пример 2. Внести изменения в программы с тем, чтобы изменить параметры шрифта, цвет, направление движения.

2. Для программ, разработанных по условиям таблицы 5.2 организовать ввод исходных данных из полей формы и размещение полученных результатов в поля или надписи на форме.

VBA предоставляет возможность использования элементов управления, служащих для хранения и обработки одномерных массивов. Это простые списки ListBox икомбинированные (раскрывающиеся) списки ComboBox. Комбинированные списки, в отличие от простых, содержат, кроме собственно списка, еще и текстовое поле, через которое можно записывать и вводить данные в список, добавляя последовательно к существующим новые элементы массива.

Основные свойства списков: List(i) – i-й элемент в списке; ListIndex – номер выбранного элемента в списке; ListCount – количество элементов в списке; RowSource – источник заполнения списка ComboBox или ListBox.

Основные методы обработки списков: AddItem – добавить элемент в список; RemoveItem – удалить указанный элемент из списка; Clear – удалить весь массив из списка.

Например, чтобы добавить элемент Cos(4) в список List1, необходимо записать (и затем выполнить) строку кода

Чтобы удалить из комбинированного списка Combo1 2–й элемент, необходимо записать Combo1.RemoveItem 2

Пример 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

Дата добавления: 2014-01-20