Dim vol As Single
vol = v(10, 3)+v(10, 5)
MsgBox «объем равен» & vol & «см3»
Необходимо отметить, что в скобках перед аргументами функции выражением ByVal можно указать, что фактический аргумент как параметр передается в функцию по его значению, иначе, по умолчанию, параметр будет передаваться в функцию по ссылке – ByRef.
Дело в том, что когда по умолчанию значения формальных параметров передаются в процедуру по ссылке,то VBАдля них не отводит дополнительного места в памяти. Поэтому формальные параметры не являются настоящими переменными – это только ссылки на значения соответствующих переменных из вызывающей программы. Если же в ходе выполнения функции пользователя эти параметры меняют свои значения, то в итоге может быть получен неверный результат. Чтобы этого не произошло, используется передача формального параметра в процедуру по его значению с помощью записи ByVal перед именем параметра – в этом случае VBА будет хранить в памяти копию оригинала значения формального параметра как переменной и ее значения останутся неизменными после выполнения процедуры.
Например, заголовок функции может иметь следующий вид:
Function F(ByVal x As Single, n As Integer) As Single
Здесь объявляется функция F вещественного типа (Single), зависящая от двух аргументов: x вещественного типа (Single), передаваемого в процедуру по значению, и n − целочисленного типа (Integer), передаваемого в процедуру по ссылке.
Пример 1. Функция пользователя F(k) для расчета факториала числа k: k!=1*2*3*…*К.
Function F(k)
Dim i As Integer
F = 1
For i = 2 To k
F = F * i
Next i
End Function
Теперь для вычисления выражения С=М!N!/(M+N)! можно использовать следующую программу:
Sub CommandButton1_Click()
Dim С As Single
Dim N As Integer, M As Integer
M = Val(InputBox("Введите М"))
N = Val(InputBox("Введите N"))
C = F(M) * F(N) / F(M + 1)
MsgBox C
End Sub
Создание пользовательской функции листа
Excel позволяет создавать пользовательские функции листа, написанные на языке VBA и реализующие алгоритм пользователя. После создания функции ее имя помещается в категорию функций «Определенные пользователем», которая отображается в окне Мастера функций и воспринимается Excel как встроенная функция. Функция вводится в ячейки Excel по обычным правилам ввода функции.
Для создания пользовательской функции листа нужно на листе редактора VBA выполнить команду Вставка/Модуль (Insert/Module) и написать функцию пользователя в появившемся окне.
Пример. Создать функцию, которая вычисляет значения sin(x), когда аргумент x представлен в градусах.