エクセル VBA Call

質問

VBA初心者です。
callというのを知ったのですが、

-------------------------------
sub　aaa（）

Dim z As Integer
For z = 1 To 30 Step 1
Dim y As String
y = Cells(2 + z, 3).Value
Dim x As String
x = Cells(2 + z, 2).Value
・
・
call　m1
call　m2
call　m3
call　m4
・
・

next　ｚ

end　sub

という記載があって呼び出し元に

sub m1

sheet(y).select

と書きたいです。この y とか x を先に記載した内容と同じ
認識にするにはどうしたら良いですか。
ど素人に分かるようにお願いします。教えてエクセル大先生。

回答No.1

keithin · ベストアンサー

方法１）
sub macro1()
　dim i as long
　for i = 1 to 3
　　call m1(i)
　next i
end sub

sub m1(byval a1 as long)
　worksheets(a1).select
end sub

このような方法を「引数渡し」と言います。
渡された方のｍ１では，引数として新しい「自分の中で宣言した変数」a1に渡されたiの値を格納して自分の中で使うので，元のマクロのｉを使うのではない事に注意してください。この方法は「値渡し」と言う事もあります。

方法２）
dim i as long
sub macro2()
　for i = 1 to 3
　　call m2
　next i
end sub

sub m2()
　worksheets(i).select
end sub

このような方法を「モジュールレベルの変数の宣言」と言います。
モジュールというのはマクロを書いているシートのことです。
変数ｉはモジュールの先頭（最初のMacro2の外）で宣言されていて，そのモジュールに書かれているどのマクロからも共通で(内容を保持したまま)利用できます。

方法３）
「参照渡し」という方法も使えます。キーワードをググってみると参考になる資料も沢山ヒットしますので，興味があるなら勉強してみてください。

お礼

早速のご回答有難う御座います。パソコン大先生!!
また、直に色々質問してしまうのですが
今後ともお願いします。
「引数渡し」というんですね。
専門用語ってすぐ忘れちゃうんですよね。（；ω；

回答No.2

sykt1217

呼び出し元で
Call m1(x, y)
とし、
呼び出し先で
Sub m1(x As Integer, y As Integer)
などとすれば、x、yをそのまま渡せます。

別プロシージャに値を引き継ぐことを「引数」と言います。

渡し方はx、yをモジュール変数にしたりと、色々な方法があります。

お礼

素早い回答有難う御座います。
なるほど、兎に角やってみます。
モジュール変換・・・勉強します。
（・ω・ ヾ