Именованные параметры

При вызове подпрограмм в VBA параметры необходимо передавать в определенном порядке. Отсутствующие необязательные параметры отмечаются запятыми. Нарушение этого правила часто приводит к ошибкам – легко пропустить или поменять местами параметры. Чтобы избежать этих проблем, в VBA можно использовать именованные параметры функций. Для этого в вызове подпрограммы явно указываются имена параметров (как это было задано при объявлении подпрограммы), каждому из которых присваивается требуемое значение с помощью оператора ":=" ("двоеточие_равно"). При использовании именованных параметров можно не обозначать отсутствующие параметры и, кроме того, порядок перечисления параметров может быть произвольным.

Следующий пример показывает два обращения к функции MsgBox, которые имеют один и тот же результат:

...

' обычный вызов

MsgBox "Здравствуй, мир!", , "Окно приветствия"

...

' вызов, с использованием именованных параметров

MsgBox Prompt:= "Здравствуй, мир!", Title:= "Окно приветствия"

Вызов подпрограмм

Подпрограммы из программ на VBA могут быть вызваны различными способами:

• Процедуру (Sub)с непустым списком параметров можно вызвать только из другой процедуры или функции так:

<имяПроцедуры> <списокПараметров>

Или так:

Call <имяПроцедуры> (<списокПараметров>) ’использована инструкция Call.

• Процедура с пустым списком параметров рассматривается VBA как командный макрос. Ее также можно вызвать двумя способами:

  • из другой процедуры или функции;

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

• Функцию (Function) можно вызывать точно так же, как и процедуру, в виде отдельного оператора. В этом случае возвращаемое функцией значение игнорируется.

Листинг №16. Вызов процедуры

Sub sample11() ' вызывающий макрос

Dim usr As String

usr = InputBox("Login")

Hello usr ' вызов процедуры Helloбез Call

Call Hello(usr) ' использование инструкции Call

End Sub

' процедура принимает один параметр, формирует строку сообщения,

' выводит сообщение в окно отладчика

Sub Hello(usrname As String)

Debug.Print "Hello, " & usrname & "!"

End Sub

Если в проекте используется несколько подпрограмм с одинаковыми названиями (это возможно, если они в разных модулях), то при их вызове перед именем подпрограммы надо указывать (через точку) имя модуля, в котором процедура расположена:

<имяМодуля>.<имяПроцедуры> <списокФактическихПараметров>

Например

MyModule.MySub fArg, sArg ' вызов процедуры из модуля MyModule

Для вызова общих (Public) подпрограмм из другого проекта дополнительно к именам модуля и подпрограммы указывается имя проекта:

<имяПроекта>.<имяМодуля>.<имяПроцедуры> <списокФактическихПараметров>

Например

someVal = MyProject.MyModule.MyFunc(fArg, sArg) ' вызов функции из проекта MyProject

Прерывание подпрограммы

В случае необходимости, выполнение процедуры или функции может быть прервано досрочно. Для этого нужно использовать инструкцию прерывания Exit Sub. В этом случае синтаксис объявления примет следующий вид (на примере объявления процедуры):

Sub <имяПроцедуры> [(<списокпараметров>)]

<операторы>

Exit Sub

<операторы>

End Sub