Exit 语句

退出 Do…Loop 块、 For…Next 、 Function 、 Sub 或 Property 代码。

语法

Exit Do
Exit For
Exit Function
Exit Property
Exit Sub

Exit 语句具有以下语法形式：

语句	说明
Exit Do	提供退出 Do...循环 语句。 只能在 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。