Sub' lar arası değer taşıma?

[cemm20]

Merhaba,

dosyadan da anlaşılacağı üzere Sub'lar arası nasıl veri transferi yapabilirim?

şimdiden yardımlarınız için teşekkürler.

Sub EKLE()
A = 12
End Sub
________________________________
Sub BAK()
B = A _________________yukarıda ki A=12 değeri bu satıra nasıl aktarabilirim?
Sayfa1.Cells(5, 5) = B
End Sub

 

[Zeki Gürsoy]

İki türlü olabilir:
- public değişken,
- parametrik prosedur.

public değişken:

public A as long

sub ekle()
A=12
call bak
end sub

sub bak()
B = A
[COLOR=Red]Sayfa1.Cells(5, 5) = B[/COLOR]
end sub

Parametrik:

sub ekle()
A=12
Call bak(A)
end sub

sub bak(deg)
[COLOR=Red]Sayfa1.Cells(5, 5) = deg[/COLOR]
end sub