web-dev-qa-db-ja.com

While ... Wendループから抜け出す

私はWhile ... VBAのWendループを使用しています。

Dim count as Integer

While True
    count=count+1

    If count = 10 Then
        ''What should be the statement to break the While...Wend loop? 
        ''Break or Exit While not working
    EndIf
Wend

`While count <= 10 ... Wendのような条件は使いたくありません。

97
Priyank Thakkar

While/Wendループは、GOTOを使用して早期に終了することも、外部ブロックから終了することによってのみ終了することもできます(Exit sub/functionまたは別の終了可能なループ)

代わりにDoループに変更してください。

Do While True
    count = count + 1

    If count = 10 Then
        Exit Do
    End If
Loop

あるいは、設定した回数だけ繰り返します。

for count = 1 to 10
   msgbox count
next

Exit Forは上記の早めに終了するために使用することができます)

165
Alex K.