While ～ Wend、の使い方、ループから脱却

質問

While <条件>
・・・
Wend
Whileの隣の＜条件＞以外にループを脱却する方法はどうするのですか？
For ～　Next
では、Exit For、があるとおもうんですが？
よろしくお願いします

回答No.1

mshr1962 · ベストアンサー

通常はあまりやりませんが．．．．
例
While A = 1
処理実行
IF <終了条件> Then A = 1
Wend
のようにIF文で終了する条件を強制セットする。

お礼

わかりました、ありがとうございました
工夫するんですね

回答No.4

zap35

While～Wendは昔のステートメントですね

(1)Do While～Loopに書き換える　
　Exit Do　が使えます

(2)While文中で終了条件を起こす
　While CntA < 100　なら、CntAに101の値をセットする

お礼

ありがとうございました
昔にステートメントなんですか
今後、Do、を使うようにします

回答No.3

noname#22222

Private Sub Command1_Click()
　　Dim A As Integer
　　Dim B As Integer

　　Do While A <= 100
　　　　A = A + 1
　　　　B = B + 1
　　　　If B = 20 Then
　　　　　　Exit Do
　　　　End If
　　Loop
　　Debug.Print A
End Sub

[イミディエイト]
20

Do While Loop文は使えませんか？

お礼

なるほど、ありがとうございました
助かりました

回答No.2

hana-hana3

Do ～　Loop を使って下さい。
Exit Do で抜ける事ができます。

お礼

わかりました、ありがとうございました
助かりました