Список аргументов

Спецификация доступа к функциям и процедурам

Вызов процедуры

End Sub

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

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

Function ИмяФункции ( arg1 As Тип, ByVal arg2 As Тип, ByRef arg3 As Тип ) As ТипФункции …
Пример 1:

В следующем примере функция Celsius пересчитывает градусы Фаренгейта в градусы Цельсия. Когда функция вызывается макросом Макрос1, переменная, содержащая значение аргумента, передается функции. Результат вычислений возвращается вызывающей процедуре и выводится в окно сообщения.

Sub Макрос1()

Dim temp as Double

temp = InputBox ("Введите температуру в градусах Фаренгейта")

MsgBox ("Температура равна " + Str (Celsius(temp)) + " градусов Цельсия")

End Sub

Function Celsius (ByVal T as Double) as Double

Celsius = (T - 32) * 5 / 9

End Function

Для объявления процедуры в VBA используется ключевое слово Sub:

Sub ИмяПроцедуры ( СписокАргументов )

…операторы …

Пояснения синтаксиса:

ИмяПроцедуры - любой допустимый идентификатор имени;

СписокАргументов – список формальных параметров процедуры;

Тип - имя любого поддерживаемого VBA типа данных (Double, String и т.п.);

Операторы - любая последовательность операторов VBA.

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

Call ИмяПроцедуры (СписокАргументов)

Пример 2:

В следующем примере процедура Celsius2 пересчитывает градусы Фаренгейта в градусы Цельсия. Когда процедура вызывается макросом Макрос2, переменная, содержащая значение температуры в градусах Фаренгейта, передается процедуре. Результат вычислений задается во второй аргумент процедуры Celsius2, который передается в неё по ссылке.

Sub Макрос2()

Dim tempC as Double

Dim tempK as Double

tempF = InputBox ("Введите температуру в градусах Фаренгейта")

Call Celsius2(tempF, tempC)

MsgBox ("Температура равна " + Str (tempС) + " градусов Цельсия")

End Sub

Sub Celsius2 (ByVal TF as Double, ByRef TC as Double)

TC = (TF - 32) * 5 / 9

End Sub

Для того чтобы процедура или функция была доступна во всех модулях и формах проекта, она должна быть объявлена в модуле с ключевым словом Public.

Private Sub ИмяПроцедуры ( СписокАргументов ) ….

Public Sub ИмяПроцедуры ( СписокАргументов ) …

Public Function ИмяФункции ( arg1 As Тип, …

Private Function ИмяФункции ( arg1 As Тип, …

В список аргументов процедуры рекомендуется включать все входные и все выходные для этой процедуры данные.

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

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

Function ИмяФункции ( arg1() As Double, arg2 As String ) As ТипФункции …

где arg1 – массив типа Double.

Дата добавления: 2015-05-10