logo
МУ_к_ЛР (VBA)

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

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

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

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

Элемент (Объект )

Свойство

Значение свойства

Кнопка 1

Caption

Запуск

Кнопка 2

Caption

Закрыть

2

Рис. Л3.3. Окно кода

. Установка свойств кнопок.Активизировать мышкой кнопку 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

Рис. Л3.4. Форма 2 и обозреватель проекта

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

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

Объекты

Свойство

Значение

Примечание

1

Label1

Caption

Ввод V

Надпись

2

Label2

Caption

Значение R

Надпись

3

Label3

Caption

Значение h

Надпись

4

Label4

Caption

Значение S

Надпись

5

TextBox1

Text

Для ввода V

6

TextBox2

Text

Для вывода R

7

TextBox3

Text

Для вывода h

8

TextBox4

Text

Для вывода S

9

Кнопка 1

Caption

Запуск

Запуск

10

Кнопка 2

Caption

Выход

Закрыть

2

Рис. Л3.5. Установленные свойства

. Установить свойства объектов № 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 (закрыть).