Excel VBA リファレンス

Exit Do

Exit For

Exit Function

Exit Property

Exit Sub

制御文 / 関数・ステートメント索引（Ｅ）

Option Explicit

Sub main()
  Dim counter As Integer
  counter = 1
  
  Do While counter < 50
    Debug.Print ("ＥｘｉｔでＤｏループ終了")
    Exit Do
    counter = counter + 1
  Loop
  
  For counter = 0 To 50 Step 1
    Debug.Print ("ＥｘｉｔでＦｏｒループ終了")
    Exit For
  Next counter
  
  Call exitTest
  
  Debug.Print ("ＥｘｉｔでＳｕｂ終了")
  Exit Sub
    
  Debug.Print ("ここは表示されません")
  
  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  'ＥｘｉｔでＤｏループ終了
  'ＥｘｉｔでＦｏｒループ終了
  'ＥｘｉｔでＦｕｎｃｔｉｏｎ終了
  'ＥｘｉｔでＳｕｂ終了

End Sub

Function exitmain()
  Debug.Print ("ＥｘｉｔでＦｕｎｃｔｉｏｎ終了")
  Exit Function
  
  Debug.Print ("ここは表示されません")
End Function

制御文 / 関数・ステートメント索引（Ｅ）