Глава 12. Пример создания проекта в VBA и типы данных

Во второй главе мы рассмотрели основные положения проекта для определения минимальной поверхности консервной банки заданного объема V (см. выше рис. 11.1).

Порядок действий на ПК при создании проекта

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

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

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

4. Записать в таблицу 12.1. сведения об объектах формы с их свойствами.

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

5. Создать интерфейс на форме. Используя панель элементов, поместим на форму перечисленные объекты с помощью мышки, аналогично созданию автофигур в текстовом редакторе (рис. 12.1).

Рис. 12.1 Расположенные объекты на форме

6. Активизируя на форме отдельно каждый объект, устанавливаем его свойство с помощью окна свойств (Properties рис. 12.2). Таким образом, интерфейс создан (рис. 12.3).

Рис. 12.3. Интерфейс проекта (с готовыми результатами работы).

Запись программы в окне Кода

Подробности составления программы будут известны позже по мере изложения материала по VBA. Отметим, что запуск программы будет происходить от щелчка кнопки Запуск. Поэтому дважды щелкнем по этой кнопке на форме. В результате выводится окно кода с двумя строками процедуры отклика, между которыми установлен курсор для набора программы (рис. 12.4). Между этими строками располагаем программу вычисления:

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

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

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

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

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

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

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

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

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

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

Date: 2015-08-15; view: 675; Нарушение авторских прав