Процедуры
Программные модули VBA состоят из процедур (одной или более).
Процедура– минимальный модуль в составе прикладной программы на языке VBA.
Процедуры имеют стандартное оформление:
Sub <имя_процедуры> (аргументы)
..................................
тело процедуры (операторы)
..................................
End Sub
Оператор Sub - объявление процедуры, задается имя, указывается состав аргументов, передаваемых при вызове процедуры из программы. Каждому оператору Sub обязательно соответствует End Sub.
Тело процедуры – набор последовательно выполняемых операторов на языке VBA.
В программе можно не только использовать процедуры данного программного модуля, но и ссылаться на процедуры других модулей текущей рабочей книги, а также процедуры других рабочих книг. Для этого необходимо задать ссылки; при нахождении на рабочем листе модуля выполняется команда СЕРВИС, Ссылки. В диалоговом окне «Ссылки» (рис. 19.22) показан список доступных ссылок на библиотеки или другие рабочие книги.
Рис. 19.22.Диалоговое окно для подключения программных модулей и их процедур
Для установления новых ссылок необходимо нажать кнопку <Пролистать> и вызвать диалоговое окно для выбора диска, каталога и файла, содержащего процедуры, на которые возможны ссылки из данного программного модуля. Доступность процедур определенного программного модуля или библиотеки указывается с помощью переключателя.
Различают 4 типа процедур:
процедуры общего назначения (стандартные), как правило, не вносят изменений вне себя;
командные процедуры расширяют возможности прикладных программ, реализуя новые виды обработки;
процедуры обработки событий выполняются при наступлении событий определенного вида (например, открытие или закрытие электронной таблицы Excel, нажатие кнопки, перемещение объекта и т.п.);
функции пользователя, возвращающие вычисленное значение, которое может быть использовано по аналогии с вызовом встроенных функций VBA.
Существует несколько вариантов вызова процедур (все необходимые ссылки на соответствующие процедуры заранее устанавливают).
1. Из другой процедуры того же модуля вызов осуществляется по имени процедуры
2. Из другой процедуры другого (подключенного) модуля вызов осуществляется по имени модуля, имени процедуры (в пределах одного приложения)
3. Из другого приложения (другой рабочей книги ППП Excel 5.0) – вызов осуществляется по имени модуля, имени процедуры и имени рабочей книги
Примечание. Если в нескольких рабочих книгах имеется ряд процедур с определенным именем, следует указать имя файла рабочей книги и имя модуля в этой книге при вызове процедуры.
Чтобы предотвратить доступ к процедуре из других модулей, процедуру делают частной. Для этого в операторе процедуры следует указать:
Для защиты модуля рабочей книги от доступа к нему из процедур другой рабочей книги в начале модуля указывают: Option Private Module
Если в момент вызова процедуре передаются какие-то величины либо значения при ее выполнении, определяют список аргументов, который содержит данные обмена с вызывающей процедурой.
В теле процедуры могут быть объявлены внутренние переменные, которые не являются предметом обмена с вызывающей процедурой, такие переменные не могут изменяться вне пределов вызываемой процедуры.
Объявление аргументов в заголовке процедуры имеет стандартный вид:
Sub Proc_B (Val1 As Single; Val2 As Date;... )
Через выбранный разделитель списков (в зависимости от настройки Windows – запятая или точка сзапятой) следуют аргументы с указанием имени и типа значения.
Если аргумент необязательный, т.е. может не задаваться при вызове процедуры, указывается ключевое слово Optional.
Пример 19.18.Процедура вычисления площади прямоугольника по двум сторонам
| Текст программы | Комментарий |
| Sub SquarPr (L As Single; H As Single; S As Single; Optional F) If IsMissing (F) Then F=100 S=L*H End Sub | Объявление процедуры SquarPr и ее аргументов Встроенная функция VBA – IsMissing проверяет наличие аргумента F, если F не задано, по умолчанию F присваивается значение 100 (F имеет тип Variant) Вычисление площади прямоугольника Конец процедуры |
Вызов такой процедуры выполняется различным образом.
1-й вариант – непосредственное задание значений аргументов при вызове процедуры
| Текст программы | Комментарий |
| Sub Proc_A () Dim Sq as Single SquarPr 12; 23; Sq End Sub | Вызывающая процедура Вызов процедуры с передачей значений длин сторон прямоугольника в явном виде, результат вычисления будет присвоен переменной Sq Конец процедуры |
2-й вариант – через имена переменных, которым присвоены значения
| Текст программы | Комментарий |
| Sub Proc_A () Dim Sq as Single Dim LL as Single Dim HH as Single LL=12 HH=23 SquarPr LL HH Sq End Sub | Вызывающая процедура Объявление переменных ПЛОЩАДЬ ДЛИНА ВЫСОТА Присвоение значений переменным Вызов процедуры с передачей значений длин сторон прямоугольника в явном виде, результат вычисления будет присвоен переменной Sq Конец процедуры |
3-й вариант – использование списка поименованных аргументов при вызове процедуры
| Текст программы | Комментарий |
| Sub Proc_A () Dim Sq as Single Dim LL as Single Dim HH as Single LL=12 HH=23 SquarPr L:=LL; H:=HH; S:=Sq End Sub | Вызывающая процедура Объявление переменных ПЛОЩАДЬ ДЛИНА ВЫСОТА Присвоение значений переменным Вызов процедуры с указанием соответствия имен аргументов вызываемой процедуры и имен переменных вызывающей процедуры, которые разделяются в строке знаком : Конец процедуры |
При завершении работы вызываемой процедуры и передаче управления вызывающей процедуре происходит потеря значений переменных, объявленных в вызываемой процедуре.
Для предотвращения этого сохраняемые переменные следует объявлять оператором:
Static <var> As <type>
Обычно при вызове процедуры происходит передача адреса, по которому находится значение (адрес соответствует имени переменной). Процедура может изменить значение аргумента. Для блокировки изменения значения аргумента следует передача величин значением. Для этого выполняется либо модификация заголовка процедуры, либо передача аргументов в виде формулы.
Для модификации заголовка процедуры выполняется указание ключевого слова By Val перед именами аргументов, значение которых не изменится внутри процедуры.