Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49797 / 76732

←次へ　｜　前へ→


	【31835】Re:変数を引き継ぎたいです

ichinose - 05/11/30(水) 18:11 -


	引用なし

	パスワード

▼つつさん：
こんばんは。

>値渡しというのはどういう意味でしょうか？
↑これは、次回にしましょう！！
>Application.Run "macro2"
>と書いていただけで

だとするとパラメータ渡しということではなさそうなので・・・。

ここからは、想像です。

標準モジュールに
'================================
Sub macro1()
　　Dim 変数i As Variant
　　Application.Run "macro2"
　　MsgBox 変数i
End Sub
'=========================
Sub macro2()
　　変数i = 500
End Sub

こんなコードで「変数iはEmptyです」とおっしゃっているのでしょうか？
だとしたら、これは、そうなります。

macro1の中の変数iとmacro2の中の変数iは、同じ名前の変数でも
別の変数だと解釈されますから、macro1の変数iには500は入っていません。

では、どうすればよいかと言うと、

'==========================================================
Private 変数i As Variant
Sub macro1()
　　Application.Run "macro2"
　　MsgBox 変数i
End Sub
'==========================================================
Sub macro2()
　　変数i = 500
End Sub

とすればmacro1の
Msgbox　変数i
で500と表示されます。

さらにこの場合、Runメソッドは必要ないので

'========================================================
Private 変数i As Variant
Sub macro1()
　　Call macro2
　　MsgBox 変数i
End Sub
'=========================================================
Sub macro2()
　　変数i = 500
End Sub

記述できます。

それとここからは、仕様にもよりますが、
'==========================
Sub macro1()
　　Dim 変数i As Variant
　　Call macro2(変数i)
　　MsgBox 変数i
End Sub
'=======================================
Sub macro2(Macro2の出力データ As Variant)
　　Macro2の出力データ = 500
End Sub

これがパラメータ渡しです。

これらの例題コードとつつさんのコードとを
比べてみてください。

2 hits

▼

【31812】変数を引き継ぎたいです つつ 05/11/30(水) 14:12