Передача параметров ByRef в Excel VBA

[yuriks]

Имеем надстройку с процедурой

Public Sub sub2(ByRef p1 As Integer)

p1 = 1

End Sub

в нее параметры передаются по адресу а не по значению.

Имеем книгу в макросом

Sub sub1()

Dim z As Integer

Call Run("sub2", z)

End Sub

которий вызывает процедуру с надстройки.

После выполнения строки Call Run("sub2", z)

значение z должно быть 1

но оно равно 0.

То-есть параметр почему-то передается по значению,

а мне нужно по адресу.

В чем проблема ?

Может быть в способе вызова процедуры через Run (иначе не умею) ?

Если sub2 будет в пределах модуля в котором sub1 то можно

вместо

Call Run("sub2", z)

написать

sub2 z

тогда все OK.

Но нужно именно в разных книгах!

Изменено 11 ноября, 2005 пользователем yuriks