Цель работы: запуск и ознакомление с интерфейсом VBA, создание и выполнение 2 – х ознакомительных проектов. При подготовке к работе изучить теоретический материал (с.10 – 17)

Запуск и подготовка интерфейса VBA

1. Загрузить Excel. Запустить VBA командами Сервис, Макрос, Редактор Visual Basic. Открывается окно редактора VBA, в котором нужно вывести окно обозревателя проекта командами View, Project Explorer.

2. Вывести окно свойств объектов командами View, Properties Window.

3. Создать окно формы 1 командами Insert, UserForm. Появляется окно формы 1 совместно с панелью элементов управления ( ToolBox). Размеры формы 1 корректируем с помощью мыши и маркеров формы. В обозревателе виден значок созданной формы1(UserForm1 ).

Задание №1. Создать простейший проект ″Приветствие″ в VBA:

§ Интерфейс пользователя состоит из формы 1 и трех элементов управления на форме: кнопки Запуск (CommandButton1), кнопки Закрыть (CommandButton2) и элемента TextBox1 (рис. Л3.1).

§ Результатом выполнения проекта является вывод на экран формы 1(рис. Л3.2) и при активизации мышкой кнопки Запуск появляется в текстовом окне приветствие ″Вас приветствует VBA ″. При активизациикнопки Закрыть – проект закрывается.

Разработка интерфейса пользователя.

Установить мышкой на форму 1 два элемента управления CommandButton (кнопки) и один элемент TextBox.

Ниже представлена таблица Л3.1, на основании которой будут установлены свойства объектов

Таблица Л3.1 — Таблица свойств элементов формы 1

Элемент (Объект)	Свойство	Значение свойства
Кнопка 1	Caption	Запуск
Кнопка 2	Caption	Закрыть

2. Установка свойств кнопок. Активизировать мышкой кнопку 1 и в окне свойств (Properties ), найти свойство Caption и справа от этого слова ввести его значение - Запуск. Аналогично для кнопки 2 справа от Caption ввести Закрыть.

3. Запись процедур отклика (программ ) на событие командных кнопок. Открыть окно кода. Для этого достаточно дважды щелкнуть кнопку 1. Открывается окно кода и в нем мигающий курсор между операторами Private Sub CommandButton1_Click и End Sub (рис. Л3.3). В месте мигающего курсора ввести: TextBox1. Text = ″ Вас приветствует VBA″.

Аналогично двойным щелчком по кнопке 2 устанавливается в окне кода на месте мигающего курсора команду End. Таким образом, подготовлены две процедуры отклика для командных кнопок.

Сохранение нового проекта в рабочей книге

Выполнить команды File, Save. В открывшемся окне указать путь к личной папке, создать папку Второй семестр, ввести имя файла книги Лаб. 3 и щелкнуть кнопку сохранить.

Запуск проекта в VBA

1. Активизировать форму запускаемого проекта (или вывести окно кода).

2. Выполнить команды Run, а затемRun Sub/UserForm.

3. В появившейся форме щелкнуть кнопку Запуск. Произойдет выполнение программы с выводом приветствия.

4. Закрыть проект, щелкнув кнопку Закрыть на форме.

Задание №2. Создать демонстрационный проект ″Определение минимальной поверхности консервной банки заданного объема″. Более подробно это изложено в главе 2 (2.1. Основные положения) и главе 3 (3.1. Порядок действий на ПК при создании проекта).

1. Интерфейс пользователя. Создать форму 2 командами Insert, UserForm. Появляется окно формы 2 совместно с панелью элементов управления ( ToolBox). Размеры формы корректируем с помощью мыши и маркеров формы. В обозревателе виден значок созданной формы 2 (UserForm2 ). Интерфейс пользователя состоит из десяти объектов (рис. Л3.4), свойства которых представлены в табл. Л3.2.

Таблица Л3.2 – Таблица свойств объектов формы 2

	Объекты	Свойство	Значение	Примечание
	Label1	Caption	Ввод V	Надпись
	Label2	Caption	Значение R	Надпись
	Label3	Caption	Значение h	Надпись
	Label4	Caption	Значение S	Надпись
	TextBox1	Text		Для ввода V
	TextBox2	Text		Для вывода R
	TextBox3	Text		Для вывода h
	TextBox4	Text		Для вывода S
	Кнопка 1	Caption	Запуск	Запуск
	Кнопка 2	Caption	Выход	Закрыть

2. Установить свойства объектов № 1 – 4 и № 9 – 10 согласно табл. Л3.2 и аналогично 1 заданию (рис. Л3.5).

3. Записать процедуры отклика на событие командных кнопок. Дважды щелкним кнопку 1. В результате выводится окно кода с двумя строками процедуры отклика, между которыми установлен курсор для набора программы. Вводим программу:

Dim V, r, h, s As Single ‘ Описание переменных

V = Val(TextBox1.Text) ‘ Присвоение V численного значения

r = (V / (2 * 3.14)) ^ (1 / 3) ‘ Вычисление r

h = V / (3.14 * r ^ 2) ‘ Вычисление h

s = 2 * 3.14 * r ^ 2 + 2 * 3.14 * r * h ‘ Вычисление S

TextBox2 = Format(r, “##0.###” & «м.») ‘ Вывод r в окно TextBox2

TextBox3 = Format(h, “##0.###” & «м.») ‘ Вывод h в окно TextBox3

TextBox4 = Format(s, “##0.###” & «м.куб») ‘ Вывод S в окно TextBox4

Аналогично двойным щелчком по кнопке 2 устанавливаем в окне кода на месте мигающего курсора команду End. Таким образом, подготовлены две процедуры отклика для командных кнопок.

Запуск проекта в VBA с формой 2

1. Активизировать мышкой форму 2 (или вывести окно кода).

2. Выполнить команды Run, а затемRun Sub/UserForm.

3. В появившейся форме 2 ввести значение объема (например, число 2 – два литра) и щелкнуть кнопку Запуск. Произойдет выполнение программы с выводом значений рассчитанных значений радиуса, высоты и минимальной поверхности банки.

4. Записать полученные данные. Пункт 3 выполнить для нескольких заданных объемов банки. Закрыть проект, щелкнув кнопку Закрыть на форме.

Для сохранения проекта просто выполнить команду Save.

Выход из режима VBA в Excel

Выполнить команды File (Файл), Close (закрыть).