• ベストアンサー

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

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

質問者が選んだベストアンサー

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.1

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

maaaa
質問者

お礼

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

その他の回答 (3)

  • zap35
  • ベストアンサー率44% (1383/3079)
回答No.4

While~Wendは昔のステートメントですね (1)Do While~Loopに書き換える   Exit Do が使えます (2)While文中で終了条件を起こす  While CntA < 100 なら、CntAに101の値をセットする

maaaa
質問者

お礼

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

noname#22222
noname#22222
回答No.3

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文は使えませんか?

maaaa
質問者

お礼

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

  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.2

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

maaaa
質問者

お礼

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

関連するQ&A

専門家に質問してみよう