Офисное программирование | страница 9
Или:
1) активизировать любое приложение пакета MS Office (Word, Excel);
2) нажать комбинацию клавиш Alt+F11.
И в том, и в другом случае откроется редактор VBA (рис. 1).
В левой части окна редактора появляется строение разрабатываемого проекта (аналог с Проводником). Необходимо обратить внимание на два главных объекта окна: Normal и Project (Операции).
Рис. 1. Стартовое окно редактора VBA
Примечание. Операции – это имя сохраненного документа в приложении Word, т. е. в скобках будет указано имя сохраненного документа.
Объект Normal глобальный, т. е. при работе в редакторе VBA в данном объекте будут создаваться модули, формы и т. д., которые будут доступны всему приложению Word. При каждом запуске Word содержимое объекта Normal становится доступным. Вывод: в данном объекте ничего не надо создавать!
Объект Project содержит рядом имя созданного документа, т. е. дается подсказка, в каком документе необходимо работать и где создаются модули, процедуры, приложения.
Пример 1. Создать программу, которая работает с глобальными переменными, рассчитывая выражение:
Результат выдается в диалоговое окно Msgbox.
Технология выполнения
1. Активизируйте приложение Word, создайте (сохраните) новый документ под именем Операции.
2. Выйдите в редактор VBA (Alt+F11).
3. Правой кнопкой мыши выделите Project(Document), где Document – название созданного документа, например Операции, и выберите команду Insert + Module (рис. 2). Если же имеется папка Modules, то добавьте в нее (рис. 6).
Рис. 2. Добавление нового модуля в папку Project
4. Дважды щелкните по классу Module1 (рис. 3). В результате в правой части редактора VBA активизируется модуль (появится курсор), в котором можно прописывать все создаваемые программы, причем при вводе заготовки создаваемого модуля (слово Sub) и его имени (list1 – от листинг, можно вписать любое имя) появляется окончание данного модуля End Sub.
Рис. 3. Создание модуля List1
При объявлении глобальных переменных (согласно условию задачи) необходимо поставить курсор перед словом Sub, нажать Enter и вписать необходимые переменные, обращая внимание на раскрывающийся список (рис. 4).
Рис. 4. Создание переменных 4. Напишите следующую программу.
Dim a As Double
Dim b, c, d As Double
Dim k As String
Const Pi As Double = 3.14
Sub list1()
a = 5
b = 25.6
c = Sin(a ^ 2) + Cos(b) + Pi
d = Sqr(c)
MsgBox (d)
End Sub
5. Запустите программу на выполнение, предварительно ее откомпилировав (проверив синтаксические ошибки). Для компиляции проекта выполните команду меню: Debug + Compile Project. Если ошибок нет, запустите приложение при помощи кнопки