別のSubで宣言されている変数を別のSubで参照

よろしくお願いいたします。

環境：Excel2003

以下のようなイメージで別Sub内で宣言された変数を同じ変数名で別のSub内で参照したいです。

Sub hoge()
nn As Integer
nn = 1
End Sub

Sub hogehoge()
MsgBox (nn)
End Sub

Sub hogehogehoge()
Call hoge
Call hogehoge
End Sub

エラーが発生する為、typeについて検索をかけてみました所、以下のような変数参照方法は出てきましたが、別のSubで宣言されている変数を同じ変数名で別のSub内で参照する方法はないでしょうか？

Type PData
　　　hoge As String
　　　hogehoge As Long
End Type

Sub Sample1()
　　　Dim Pppp(5) As PData
End Sub

よろしくお願いいたします。

No.2 ベストアンサー 回答者： myRange 回答日時： 2009/07/20 18:42

初めのうちはグローバル変数を使う方法でもいいのですが、

慣れてきたらグローバル変数ではなく、
HogeHogeに引数を持たせる方法を使った方がいいでしょう。
なぜ？
それは慣れてくれば分かってきます。

'-----HogeHogeを引数付きでコールする------

Sub Hoge()
　　Dim nn As Integer
　　nn = 1
　　Call HogeHoge( nn )
End Sub

'-----これに引数を持たせる-------

Sub HogeHoge( nn As Integer)
　　MsgBox nn
End Sub

'------Hogeだけをコールする-----

Sub HogeHogeHoge()
　　Call Hoge
End Sub

'--------------------------------

以上ここまで。
　

この回答へのお礼

ありがとうございます。

参考にさせていただきます。

お礼日時：2009/07/20 20:33

No.1 回答者： hana-hana3 回答日時： 2009/07/20 16:40

グローバル変数を使えば可能です。

'モジュールの先頭で変数を宣言する
Private nn As Integer


Sub hoge()
nn = 1
End Sub

Sub hogehoge()
MsgBox (nn)
End Sub

Sub hogehogehoge()
Call hoge
Call hogehoge
End Sub


http://search.goo.ne.jp/web.jsp?dummy=%F3%FE%F3% …

この回答へのお礼

> 'モジュールの先頭で変数を宣言する
> Private nn As Integer

ありがとうございます。

privateも試したのですがエラーが出ていました。
モジュールの先頭で試しましたうまくいきました。

お礼日時：2009/07/20 20:32