ループを抜ける: Exit

ラベル:
Exitは、自分のタイミングでループ（繰り返し）を抜けるときに記述します。
複数のforなどで囲まれている場合は、一番内側のループを抜けることになります。

Sub test()
  Dim i%, j%

  For i = 1 To 10
    Cells(i + 10, 2) = i
 
    If i = 5 Then                  'iが5だったらループを抜ける
      Exit For
    End If

  Next i
End Sub

0 件のコメント:

コメントを投稿

登録: コメントの投稿 (Atom)