End Sub. Sub ChangeName(ByRef Username)

End Sub

______________________________

Sub ChangeName(ByRef Username)

Username = "Kate"

В процедуре PassArgumentByReference() переменная Username передается в процедуру ChangeName по ссылке. Это означает, что в ChangeName используется имя переменной Username, а именно – переменной Username присваивается новое значение, которое затем возвращается в процедуру.

Пример: передача переменной по значению

Sub PassArgumentbyValue()

Dim Username As String

Username = "Mike"

ChangeName1 Username

MsgBox "Yet remains as " & Username & " in the original proc."

Дата добавления: 2014-01-07