なぜiは変数の値が保持されるのに、wは保持されない

質問

なぜiは変数の値が保持されるのに、wは保持されないのでしょうか？

Sub test()
Dim w As Worksheet
Dim i As Long

i = 1

For Each w In Worksheets
i = i + 1
Next

MsgBox i
MsgBox w.Name

End Sub
--------------------------------------
を行うと、
MsgBox i
は表示されるのに、
MsgBox w.Name
は、
「オブジェクト変数または With ブロック変数が設定されていません。」になります。

wはオブジェクト変数だから、
For Each ステートメントを抜けると値が破棄されてしまうのでしょうか？

でもvbaのヘルプの
「For Each...Next ステートメントの使い方」
を見ても
「ステートメントを抜けるとオブジェクト変数なら値が破棄されます」
と記載されていません。

回答No.2

keithin · ベストアンサー

ご質問のFor Each Nextの前に、ひとつ参考として

sub test
dim i
for i = 1 to 5
next i
msgbox i
end sub

と実行してみます。結果は（５じゃなく）「６」が現れます。
Ｆｏｒ　Ｔｏ　Ｎｅｘｔフロー制御のルールは、Ｎｅｘｔ行でエレメントがＴｏを「超えた」時点で次行に制御を流します。

そこで、ご質問のＦｏｒ　Ｅａｃｈ　Ｎｅｘｔのヘルプを再度確認すると
「引数 group の中にもう要素がなくなったとき、ループは終了し、Next ステートメントの次のステートメントに実行が移ります」
のように解説されています。

つまりＦｏｒ　Ｅａｃｈ　Ｎｅｘｔでループを終了した時点で、変数Ｗは「もう何も入っていない」状態になってループを抜けています。(ローカルウィンドウで変数の中身を確認しながら追跡してみると、Nothingになってループを抜けている様子を見ることができます)
このため、ご質問の状況が発生します。

なお、ループの途中でＥｘｉｔ　Ｆｏｒによって（＝Ｎｅｘｔせずに）ループを抜けた場合などは、その時点のｗの中身が保持されたままになります。

お礼

本当だ。

サンプルコードを実行してみたら、6になりました。

For Each...Nextで、ステートメントを無事終了して抜けると、値が破棄されて、
Ｅｘｉｔ　Ｆｏｒで途中離脱すると、値が保持されたままなのですか。

Sub test()
Dim w As Worksheet

For Each w In Worksheets
Exit For
Next

MsgBox w.Name

End Sub

をやってみたら、エラーにならず、値が保持されてました。ありがとうございました。

回答No.1

YUI_AI

下記URL等を参考にされると良いと思います。

http://msdn.microsoft.com/ja-jp/library/vstudio/5ebk1751.aspx

「element のスコープはループの本体になります」等の記述から判ると思いますが、wの保持される期間はルール終了までとなります。

お礼

「element のスコープはループの本体になります」
＝「wの保持される期間はルール終了まで」と読み替えればいいのですか。
URLよく読んでみます。ありがとうございました。