Процедуры

Программные модули VBA состоят из процедур (одной или более).

Процедура - минимальный модуль в составе прикладной программы на языке VBA.

Процедуры имеют стандартное оформление:

Sub <имя_процедуры> (аргументы)

тело процедуры (операторы)

End Sub

Оператор Sub - объявление процедуры, задается имя, указывается состав аргументов, передаваемых при вызове процедуры из программы. Каждому оператору Sub обязательно соответствует End Sub.

Тело процедуры - набор последовательно выполняемых операторов на языке VBA. В программе можно не только использовать процедуры данного программного модуля, но и ссылаться на процедуры других модулей текущей рабочей книги, а также процедуры других рабочих книг. Для этого необходимо задать ссылки; при нахождении на рабочем листе модуля выполняется команда СЕРВИС, Ссылки. В диалоговом окне "Ссылки" показан список доступных ссылок на библиотеки или другие рабочие книги.

Для установления новых ссылок необходимо нажать кнопку <Пролистать> и вызвать диалоговое окно для выбора диска, каталога и файла, содержащего процедуры, на которые возможны ссылки из данного программного модуля. Доступность процедур определенного программного модуля или библиотеки указывается с помощью переключателя.

Различают 4 типа процедур:

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

· командные процедуры расширяют возможности прикладных программ, реализуя новые виды обработки;

· процедуры обработки событий выполняются при наступлении событий определенного вида (например, открытие или закрытие электронной таблицы Excel, нажатие кнопки, перемещение объекта и т.п.);

· функции пользователя, возвращающие вычисленное значение, которое может быть использовано по аналогии с вызовом встроенных функций VBA.

Существует несколько вариантов вызова процедур (все необходимые ссылки на соответствующие процедуры заранее устанавливают).

1. Из другой процедуры того же модуля вызов осуществляется по имени процедуры

Sub Рrос_А () ' вызывающая процедура Рrос_А ()

Рrос_В ' вызов процедуры Рrос_В()

End Sub ' Завершение работы процедуры Рrос_А ()

Sub Proc_B () ' вызываемая процедура

End Sub ' Завершение работы процедуры Proc_B ()

2. Из другой процедуры другого (подключенного) модуля вызов осуществляется по имени модуля, имени процедуры (в пределах одного приложения)

Sub Рrос_А () 'вызывающая процедура Рrос_А ()

[Модуль#].Рrос_В ' вызов процедуры Рrос_В() модуля Модуль#

End Sub ' Завершение работы процедуры Proc_A ()

3. Из другого приложения (другой рабочей книги ППП Excel 5.0) - вызов осуществляется по имени модуля, имени процедуры и имени рабочей книги

Sub Рrос_А () 'вызывающая процедура Рrос_А ()

[RWl.XLS].[Модуль#].Proc_B ' вызов процедуры Рrос_В() модуля

'Модуль# рабочей книги RW1.XLS

End Sub ' Завершение работы процедуры Рrос_А ()

Примечание. Если в нескольких рабочих книгах имеется ряд процедур с определенным именем, следует указать имя файла рабочей книги и имя модуля в этой книге при вызове процедуры.

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

Private Sub Proc_B ()

End Sub

Для защиты модуля рабочей книги от доступа к нему из процедур другой рабочей книги в начале модуля указывают: Option Private Module

Если в момент вызова процедуре передаются какие-то величины либо значения при ее выполнении, определяют список аргументов, который содержит данные обмена с вызывающей процедурой.

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

Объявление аргументов в заголовке процедуры имеет стандартный вид:

Sub Proc_B (Val 1 As Single; Val 2 As Date;...)

Через выбранный разделитель списков (в зависимости от настройки Windows - запятая или точка с запятой) следуют аргументы с указанием имени и типа значения.

Если аргумент необязательный, т.е. может не задаваться при вызове процедуры, указывается ключевое слово Optional.

Пример 19.18. Процедура вычисления площади прямоугольника по двум сторонам

Текст программы	Комментарий
Sub SquarPr (L As Single; H As Single; S As Single; Optional F)	Объявление процедуры SquarPr и ее аргументов
If IsMissing(F) Then F=100	Встроенная функция VBA- IsMissing проверяет наличие аргумента, если F не задано, по умолчанию F присваивается значение 100 (F имеет тип Variant)
S=L*H	Вычисление площади прямоугольника
End Sub	Конец процедуры

Вызов такой процедуры выполняется различным образом.

1-й вариант - непосредственное задание значений аргументов при вызове процедуры

Текст программы	Комментарий
Sub Proc_A () Dim Sq as Single	Вызывающая процедура
SquarPr 12; 23; Sq	Вызов процедуры с передачей значений длин сторон прямоугольника в явном виде, результат вычисления будет присвоен переменной Sq
End Sub	Конец процедуры

2-й вариант - через имена переменных, которым присвоены значения

Текст программы	Комментарий
Sub Proc_A ()	Вызывающая процедура
	Объявление переменных
Dim Sq as Single	ПЛОЩАДЬ
Dim LL as Single	ДЛИНА
Dim HH as Single	ВЫСОТА
LL=12 HH=23	Присвоение значений переменным
SquarPr LL HH Sq	Вызов процедуры с передачей значений длин сторон прямоугольника в явном виде, результат вычисления будет присвоен переменной Sq
End Sub	Конец процедуры

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; Sq	Вызов процедуры с указанием соответствия имен аргументов вызываемой процедуры, которые разделяются в строке знаком:
End Sub	Конец процедуры

При завершении работы вызываемой процедуры и передаче управления вызывающей процедуре происходит потеря значений переменных, объявленных в вызываемой процедуре.

Для предотвращения этого сохраняемые переменные следует объявлять оператором:

Static <var> As <type>

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

Для модификации заголовка процедуры выполняется указание ключевого слова By Val перед именами аргументов, значение которых не изменится внутри процедуры.

Дата добавления: 2014-01-11