Dim vol As Single

End Function

Function v(h As Single, r As Single) As Single

End Function

Функции пользователя

ФУНКЦИИ И ПРОЦЕДУРЫ ПОЛЬЗОВАТЕЛЯ

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

Различают два типа пользовательских подпрограмм:

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

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

Функция пользователя в общем виде имеет следующий вид:

Function <Имя функции> (<Аргум.1> <AsТип>, ...) <AsТип>

<программный код для определения функции>

Описание функции пользователя начинается с заголовка, в котором указывается имя функции после ключевого слова Function, в скобках через запятую перечисляются формальные аргументы с указанием их типа и после скобок указывается тип данных, которому принадлежит значение, возвращаемое функцией. При этом типы аргументов функции и самой функции можно не указывать – в этом случае им присваивается тип Variant. Конечный результат помещается в переменную с тем же именем, что и имя функции.

Заканчивается описание функции пользователя ключевыми словами End Function.

Например, функция v(h, r), вычисляющая объем цилиндра v в зависимости от его высоты h и радиуса основания r, может быть задана в следующем виде:

v=3.14*h*r^2

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

Например, ниже приведен фрагмент программы вычисления объема тела из двух поставленных друг на друга цилиндров высотой по 10 см и радиусами основания соответственно 3 и 5 см:

vol = v(10, 3)+v(10, 5)

MsgBox «объем равен» & vol & «см³»

Необходимо отметить, что в скобках перед аргументами функции выражением ByVal можно указать, что фактический аргумент как параметр передается в функцию по его значению, иначе, по умолчанию, параметр будет передаваться в функцию по ссылке – ByRef.

Дело в том, что когда по умолчанию значения формальных параметров передаются в процедуру по ссылке,то VBАдля них не отводит дополнительного места в памяти. Поэтому формальные параметры не являются настоящими переменными – это только ссылки на значения соответствующих переменных из вызывающей программы. Если же в ходе выполнения функции пользователя эти параметры меняют свои значения, то в итоге может быть получен неверный результат. Чтобы этого не произошло, используется передача формального параметра в процедуру по его значению с помощью записи ByVal перед именем параметра – в этом случае VBА будет хранить в памяти копию оригинала значения формального параметра как переменной и ее значения останутся неизменными после выполнения процедуры.

Например, заголовок функции может иметь следующий вид: