退出 Do…Loop 块、 For…Next 、 Function 、 Sub 或 Property 代码。
语法
Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
Exit 语句具有以下语法形式：
语句
说明
Exit Do
提供退出 Do...Loop 语句。 只能在 Do...Loop 语句内使用它。
Exit Do 将控制权转移给 Loop 语句之后的语句。 在嵌套的 Do...Loop 语句内使用时，Exit Do 将控制权转移给发生 Exit Do 的循环的上一嵌套层中的循环。
Exit For
提供一种退出 For 循环的方式。 它只能在 For...Next 或 For Each...下一个 循环。
Exit For 将控制权转移给 Next 语句之后的语句。 在嵌套的 For 循环内使用时，Exit For 将控制权转移给发生 Exit For 的循环的上一嵌套层中的循环。
Exit Function
立即退出显示它的 Function过程 。 继续执行称为 Function 的语句之后的语句。
Exit Property
立即退出显示它的 Property 过程。 继续执行称为 Property 的过程之后的语句。
Exit Sub
立即退出显示它的 Sub 过程。 继续执行称为 Sub 的过程之后的语句。
备注
请勿将 Exit 语句和 End 语句搞混。
Exit 不定义结构的末尾。
示例
此示例使用 Exit 语句退出 For...Next 循环、Do...Loop 和 Sub 过程。
Sub ExitStatementDemo()
Dim I, MyNum
Do ' Set up infinite loop.
For I = 1 To 1000 ' Loop 1000 times.
MyNum = Int(Rnd * 1000) ' Generate random numbers.
Select Case MyNum ' Evaluate random number.
Case 7: Exit For ' If 7, exit For...Next.
Case 29: Exit Do ' If 29, exit Do...Loop.
Case 54: Exit Sub ' If 54, exit Sub procedure.
End Select
Next I
Loop
End Sub
另请参阅
数据类型
语句
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。