Do ExitDoは、Do～Loopのループを抜けます。 指定条件になる前に、 Do～のループ処理を終了したい場合に使用します。 Do 理終了したい時に、Exit Do Loop このうに、Doに終了条件を書かずに、終了条件を判定し処理を終了できます。 Do～のネスト(入れ子) 縦10、横10列に1を入れる...
VBAでは、For Loopを終了させるためにExit Forコマンドを使用します。 ExitFor コードの実行がExit Forに来ると、Forループを終了し、ループの後の最初の行から実行を継続します。 Doループの終了方法を知りたい方は、こちらのリンクをクリックしてください。VBA ループの終了 ...
Loop UntilこのLoop Untilループも、10までカウントします。Sub DoLoopUntil() Dim n As Integer n = 1 Do MsgBox n n = n + 1 Loop Until n > 10 End SubDoループの終了Exit ForでForループを抜けるのと同じように、Exit DoコマンドでDoループをすぐに抜けることができます。
DoEvents: i = i + 1 '無限ループ防止用。作者環境では5000弱はループする。 If i > 100000 Then Err.Raise 429 '429 = ActiveXコンポーネントはオブジェクトを生成できません。 Loop 'Debug.Print i 'ループ回数確認用 '必要に応じて 'scrCtrl.SitehWnd = Excel.Application.Hwnd Set GetScript...