変数の有効範囲

今まで、Dimステートメントで、変数の宣言をしてきました。
しかし実は、変数の宣言の仕方次第で、いろいろな範囲があります。
いろいろ紹介はしますが、普段はプロシージャ内でDimで宣言した方が便利です。

１．Staticで宣言する。

今までは、Dimを使って宣言してきましたが、下のプロシージャでは、Staticで宣言しました。
Staticで宣言すると、そのプロシージャ内に限って、値を保存しておくことができます。
（他のプロシージャから、呼び出すことはできません。）

このプロシージャは、1桁のスロットマシンです。
ボタンを押すと数字が変わり、もう一度ボタンを押すと止まります。
1つのボタンで違う操作になるのは、プロシージャの処理が終わっても、
変数「スイッチ」に値が保存されているからです。

Sub test()

　　Static スイッチ As Boolean　←①

　　スイッチ = Not スイッチ　←②

　　Do Until スイッチ = False　←③
　　　　Cells(1, 1) = (Cells(1, 1) + 1) Mod 10　←④
　　　　DoEvents　←⑤
　　Loop

End Sub

①　論理値で宣言します。( True / False )

②　変数「スイッチ」の内容を反転させます。
　　（TrueならFalseに、FalseならTrueに）

③　スイッチの値がFalseの時、処理を終わります。

④　Celss(1,1)に１を足して、１０で割った余りを
　　Celss(1,1)に書き込んでます。

⑤　これは、OSに制御を渡す関数です。
　　これを設定しないと、プロシージャが制御を
　　占有してしまい、ボタンが押せません。

２．他の宣言の仕方を知る。

以下に、変数の宣言の仕方と範囲を書きますが、範囲が広い宣言は本当に必要なときだけ使うことが大切です。
そうしないと、どこでその影響を受けているのか、わからなくなってしまうからです。
基本的には、プロシージャ内で宣言する狭い範囲(Dim)にしておいた方が無難です。

Public c As Integer　←① Dim d As Integer　←②	①　プロジェクト内全体で使えます。 ②　このモジュール内で使えます。
Sub test1() Dim a As Integer MsgBox a a = 11 End Sub	test1 表示する順番と代入する順番が逆なので、何度実行しても、０を表示します。
Sub test2() Static b As Integer MsgBox b b = 10 End Sub	test2 Staticで宣言しているので、値を保存します。したがって、1度目の表示は０ですが、 2度目は１０を表示します。
Sub test3() MsgBox a End Sub	test3 aは、test1で宣言していますが、test1が終わると解放されてしまいます。したがって、ここでは宣言してないので、エラーになります。
Sub test4() MsgBox b End Sub	test4 bは、test2で宣言していますが、Staticで宣言しているので、他のプロシージャからは認識できません。したがって、エラーになります。
Sub test5() c = 123 End Sub	test5 cは、行頭でPublicで宣言しているので、どこでも使えます。したがって、ここではいきなり代入ができます。
Sub test6() MsgBox c End Sub	test6 test5を実行したあとなら、123を表示します。
Sub test7() d = 1234 End Sub	test7 dは、行頭でこのプロシージャ内で有効な形で宣言しているので、いきなり代入ができます。
Sub test8() MsgBox d End Sub	test8 test7を実行した後なら、1234を表示します。