Exit 语句
退出 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。