Определение способа передачи аргумента

End Sub

End Function

Пример 4

Function Sconcat(argl As String, arg2 As String) As String

argl = Trim (argl)

arg2 = Trim (arg2)

Sconcat = argl & arg2

Sub Test_Sconcat()

Dim a1 As String

Dim a2 As String

a1 = " Значение a1:"

a2 = " Значение a2:"

MsgBox a1 & a2,, "До вызова Sconcat"

MsgBox Sconcat(a1, a2),, "При вызове Sconcat"

MsgBox a1 & a2,, "После вызова Sconcat"

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

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

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

Чтобы явно указать, передает VBA аргумент по значению или по ссылке, надо использовать ключевое слово ByVal (передает аргумент по значению) или ByRef (передает аргумент по ссылке) перед аргументом, для которого необходимо задать метод передачи.

Пример 5.

Function Sconcat2(ByVal argl As String, ByVal arg2 As String) As String

argl = Trim (argl)

arg2 = Trim (arg2)

Sconcat2 = argl & arg2

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