Константа – это значение в программе VBA, которое не меняется. Существует несколько типов констант.

Именованные константы – константы, имеющие заданное имя; это имя имеет конкретное неизменяемое значение.

В отличие от переменной, необходимо всегда явно объявлять именованные константы, используя ключевое слово Const.

Следует помещать объявления констант на модульном уровне, чтобы у них была наибольшая область действия.

Литеральные константы – это константы, записываемые непосредственно в код.

Правила написания литеральных констант (String, Integer, Data, Boolean):

• строковые константы должны быть заключены в двойные кавычки ("");

• пустая строковая константа (нулевая строка) обозначается двумя двойными кавычками, между которыми ничего нет ("");

• строковая константа должна вся находиться на одной и той же строке. Нельзя использовать символ продолжения строки для продолжения литеральной (строковой) константы на другой строке.

Численные константы могут содержать любой из численных типов VBA.

Правила написания численных констант:

• численные константы должны состоять только из числовых символов от 0 до 9;

• численная константа может начинаться со знака минус и содержать десятичную точку;

• можно использовать экспоненциальное представление для численных констант;

• никакие другие символы или знаки в численных константах не допускаются.

Примеры:

142

– 789.3

5.55Е4

Константы Date необходимо помещать между знаками фунта (#). Независимо от того, в каком из форматов записывается литеральная константа Date, VBA переформатирует эту константу для соответствия одному из двух следующих форматов – в зависимости от того, содержит ли константа Date информацию о времени:

#2/5/02 9:17:00 PM#

#2/5/02#

Константы Boolean – существуют только две правильные константы типа Boolean: True и False.

Типизированные константы используются при явном задании типа константы. Объявление конкретного типа данных для константы может повысить точность вычислений. Для констант можно использовать типы данных Byte, Boolean, Integer, Long, Single, Double, Currency, Date, String.

Синтаксис:

Const имя_константы As type = value, name As type = value,…

где type – имя любого из типов данных VBA;

value – значение, присваиваемое константе.

Пример:

Const Pi As Double = 3.14

Внутренние константы называются также предопределенными константами. Внутренняя константа – это именованная константа, которая была определена разработчиками VBA. Внутренние константы все начинаются с букв vb для указания того, что они определяются языком VBA (табл. 2).

Таблица 2

Математические функции

1.2. Редактор VBA. Первое знакомство

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

Как и любые среды программирования, редактор VBA необходимо сначала запустить. Для запуска можно использовать два способа:

1) активизировать любое приложение пакета MS Office (Word, Excel);

2) выполнить команду меню: Сервис + Макрос + Редактор Visual Basic.

Или:

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. Если ошибок нет, запустите приложение при помощи кнопки

Запуск панели инструментов или клавиши F5. Если все действия выполнены верно, то на экране появится диалоговое окно Msgbox с итоговым сообщением (рис. 5).

Рис. 5. Итоговый результат расчетов примера 1

Пример 2. Создать программу, которая производит сложение строковых переменных и результат выводит в диалоговое окно msgbox.

Технология выполнения

1. В том же документе Операции выделите правой кнопкой мыши папку Modules и выполните команду: Insert + Module (рис. 6).

Рис. 6. Добавление нового модуля

2. В результате появится новый модуль, где можно создать новую программу (модуль). Пропишите следующий код.

Dim a, b, c As String

Sub list2()

a = «Привет!»

b = « Пока не сложно?»

c = a + b

MsgBox (c)

End Sub

В данном примере переменным a и b присваиваются строковые значения (в кавычках!), после чего происходит сложение строк. Результат показан на рис. 7.

Рис. 7. Результат примера 2

3. Прокомпилируйте программу и запустите ее на выполнение.

Примечание. Если в одном документе находятся несколько модулей, то при запуске программ может появляться диалоговое окно выбора макроса (модуля), в котором необходимо выбрать макрос, выделить его и нажать кнопку «Run» (рис. 8).

Рис. 8. Выбор макроса на выполнение

1.3. Изменение порядка выполнения операторов

Операторы и выражения