Передача аргументов процедурам

' . . . [код]

End Sub

Конечно, вы всегда можете передавать в процедуру текст (не переменные).

Sub M a in ()

C a ll P r o c e s s F i l e ( " b u d g e t . x l s x " )

End Sub

Используются два способа передачи аргументов процедуре.

•По ссылке. При передаче аргумента по ссылке (метод, применяемый по умолча­ нию) процедуре передается адрес ячейки памяти, в которой хранится переменная. Поэтому изменение аргумента в процедуре приводит к изменению исходной пе­ ременной.

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

Следующий пример подтверждает высказанную концепцию. Аргумент процедуры Process передается по ссылке (по умолчанию). После того как процедура Main присваи­ вает переменной MyValue значение 10, она вызывает процедуру Process и передает MyValue в качестве аргумента. Процедура Process умножает значение своего аргумента (сназванием YourValue) на 10. По окончании процедуры Process возобновляется вы­ полнение процедуры Main, а функция MsgBox отображает строку MyValue: 100.

Sub M ain ()

Dim M y V a lu e A s I n t e g e r

End Sub

Если требуется, чтобы вызываемая процедура не изменяла переменные, полученные как аргументы, измените список аргументов вызываемой процедуры так, чтобы аргументы пе­ редавались по значению, а не по ссылке. Для этого добавьте перед аргументом ключевое слово ByVal. Тогда вызываемая процедура будет управлять копией переданных данных, а несамими данными. В следующей процедуре, например, изменения, которые происходят с YourValue в процедуре Process, не влияют на значение переменной MyValue в про­ цедуре Main. В результате функция MsgBox отображает 10, а не 100.

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

Аргументы процедуры могут быть самыми разными и передаваться и по значению, и первым способом. Все аргументы, перед которыми указано ключевое слово ByVal, передаются по значению, остальные — по ссылке.

Примечание

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

Переменные типа P u b lic и передача аргументов процедуре

В главе 8 уже отмечалось, что переменная типа P u b l ic (определенная в верхней части модуля) будет доступной для всех процедур этого модуля. В некоторых случаях предпочтительнее пользоваться переменной типа P u b lic , чем передавать переменную в виде аргумента при вызове другой процедуры.

Например, приведенная ниже процедура передает значение M o n th v a l процедуре

P ro c e s s M o n th .

Sub M y S u b ()

D im M o n th V a l a s I n t e g e r

■. . . [код]

M o n th V a l = 4

C a l l P r o c e s s M o n th ( M o n th V a l)

'. . . [код ]

E n d Sub

Альтернативный метод выглядит следующим образом.

P u b l ic M o n th V a l a s I n t e g e r

Sub M y S u b ()

'. . . [код ]

Во втором фрагменте кода, из-за того что M o n th v a l является переменной типа P u b l ic , процедура P ro c e s s M o n th 2 имеет к ней доступ, поэтому необходимость в ар­ гументах для этой процедуры отпадает.

Так как в предыдущих примерах не был объявлен тип данных ни для одного аргумен­ та, все аргументы имеют тип данных Variant. Но процедура может определять типы данных непосредственно в списке аргументов. Ниже представлен оператор Sub для про­ цедуры с двумя аргументами, имеющими различные типы данных. Первый аргумент объявлен как Integer, второй — как String.

Sub P r o c e s s ( I t e r a t io n s A s I n t e g e r , T h e F ile A s S t r in g )

При передаче аргументов в процедуру важно, чтобы данные, которые передаются в качестве аргументов, имели тип данных аргументов. Например, в предыдущем примере