VBA ＤＯ～ＬＯＯＰのネスト方法について

質問

エクセルマクロの構文でＤＯ～ＬＯＯＰのネストを行った際に、ＥＸＩＴ　ＤＯで飛び出した後のＬＯＯＰ条件が無効になるようです。どなたかご教授願います。

Sub TEST()
y = 1
Do
Do
If y = 2 Then
Exit Do
End If
y = y + 1
Loop
Loop While y = 3
End Sub

回答No.1

mt2008 · ベストアンサー

無効にはならないと思いますが？

Loop While y = 3　ですから、yが3ではないのでループを抜けているだけです。
もしかしてやりたいのは　Loop While y < 3　ですか？

お礼

早速の回答ありがとうございました。
ｗｈｉｌｅの使い方を勘違いしていたようです。(#^.^#)

回答No.3

KURUMITO

次のようにすればよいでしょう。

Sub TEST()
y = 0
Do
y = y + 1
If y = 2 Then
y = y + 1
End If
計算したいことなど
Loop While y <= 3
End Sub

けれでyが２以外のケースについて計算が行われますね。

お礼

早速の回答ありがとうございました。
ｗｈｉｌｅの使い方を勘違いしていたようです。(#^.^#)

回答No.2

chie65536（@chie65535）

プログラムは「[数字]」で示した順に実行されます。

y = 1　　　　　　　　[１]
Do　　　　　　　　　 [２]
Do　　　　　　　　　 [３][８]
If y = 2 Then　　　[４][９]
Exit Do　　　　　　　　 [10]
End If　　　　　　　 [５]
y = y + 1　　　　　 [６]
Loop　　　　　　　　[7]
Loop While y = 3 　　[11]
End Sub　　　　　　　　[12]

[11]に来た時点で、yは2ですから、外側のループは終了してしまいます。

お礼

早速の回答ありがとうございました。
ｗｈｉｌｅの使い方を勘違いしていたようです。(#^.^#)