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

End Sub

End Sub

End Function

Использование функций-процедур и подпрограмм в VBA

Подпрограммы

End Function

Подпрограмма – представляет собой определенный набор операторов, составленный пользователем и расположенный отдельно от основной программы. Подпрограмма имеет следующий синтаксис:

[Private | Public] [Static] Sub Name([Arglist]) [As Type]

'комментарий, описывающий функцию

[Инструкции]

[Exit Sub]

[Инструкции]

End Sub

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

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

AnyStr = SLen(tStr:=MyString)

Для вызова процедуры Sub используется следующие способы:

ИмяПроцедуры СписокФактическихПараметров

Call ИмяПроцедуры (СписокФактическихПараметров)

Пример 3:

Dim с As Double 'с - глобальный параметр

Function F(ByVal x As Integer) As Integer

F = x ^ 2

Sub Assistant(ByVal a As Integer, ByVal b As Integer)

'Процедура, находящая сумму двух чисел и выводящая

'результат в диалоговом окне

C = а + b

MsgBox CStr(C)

Sub Main()

'Процедура, находящая сумму двух чисел и выводящая

'результат в диалоговом окне

Dim x, у As Double

'Вызов процедуры с фактическими параметрами

Call Assistant(1, 3)

'Первоначальное присвоение переменным значений,

'с последующим вызовом процедуры

'

x = 1: у = 1

Call Assistant(x, F(x))

Assistant x, у + 2

'Использование функции как фактического параметра

х = 1: у = 3

Assistant F(x), у

' Вызов процедуры с указанием фактических параметров по имени

Assistant a:=l, b:=3

Существуют два способа, которыми VBA передает информацию в функцию-процедуру: по ссылке и по значению.

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

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

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

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