在VBA中,使用Exit Sub语句的一般语法如下: 代码语言:txt 复制 Sub ProcedureName() ' 代码块 If condition Then ' 条件满足时执行的代码 Exit Sub ' 提前退出当前的子过程 End If ' 代码块 End Sub 在上述代码中,如果条件满足,则会执行Exit Sub语句,跳出当前的子过程,不再执行后续的代码。 Exit Sub语句的...
VBA笔记退出循环、Sub、Fuction等的Exit语句 Exit语句,可以用来跳出、退出各种循环。以下是几种VBA循环及过程、函数等的退出语句代码。 一、For循环的退出 For Each myCell in Range("A1:H10") If myCell.Value = "" Then myCell.Value = "empty" Else Exit For End If Next myCell 以上是For Each的退出...
If myCell.Value = "" Then myCell.Value = "empty" Else Exit For End If Next myCell 以上是For Each的退出方法。如果是For to 结构的循环,同样使用Exit For语句来退出。 二、Do 或 Do While语句的退出 使用Exit Do语句退出。 三、退出Sub过程 使用Exit Sub语句退出。 四、退出函数Fuction 使用Exit Fu...
条件语句中的else 什么是else else 就是对于if条件不满足的时候执行另一个代码块的入口 功能 当if...
对应退出语句:Exit For、 Exit Do、 Exit Sub、Exit Function。 如果要实现其他语言的 continue 的效果,可以使用利用goto语句进行模拟。比如要打印 100 以内 3 的倍数的和: Sub print3() Dim i As Integer, count As Long For i = 1 To 100 If i Mod 3 <> 0 Then GoTo CONTINUE ' 如果不能被3整除...
1 exit 用法的简要总结 1.1 具体用法 exit do ' 用在do loop 循环里 exit for ' 用在 for next 循环里 exit sub ' 用在sub里 exit function ' 用在function里 exit propperty '?? 1.2 错误的用法 exit '不能单独使用 exit if '一般并没有必要跳出 if 吧 ...
Sub 找到第一个数据() '使用exit退出循环的示例 Dim i As Long, works As Worksheet Set works = Worksheets(3): i = 2: Do While works.Cells(i, 1) <> "" '没有找到且数据不为空时进入查找循环 If InStr(works.Cells(i, 4), "申请中") <> 0 Then works.Range(Cells(i, 1), Cells(i,...
此示例使用Exit语句退出For...Next循环、Do...Loop和Sub过程。 VB复制 SubExitStatementDemo()DimI, MyNumDo' Set up infinite loop.ForI =1To1000' Loop 1000 times.MyNum = Int(Rnd *1000)' Generate random numbers.SelectCaseMyNum' Evaluate random number.Case7:ExitFor' If 7, exit For...Next....
Sub vba_exit_sub_example() If IsNumeric(InputBox("Enter your age.", "Age")) = False Then MsgBox "Error! Enter your Age in numbers only." Exit Sub Else MsgBox "Thanks for the input." End If End Sub On Error Exit Sub One of the best things about the “Exit Sub” you can use...
(1)、End结束语句:End语句可以单独使用,也可以结合部分控制关键字使用,如Function、If、Select、Sub、With等。End语句用于立即结束一个过程或者块,它提供了一种强制中止程序或结束语句块的方法。End语句结合不同控制关键字时的使用方法如下表: 示例: (2)、Exit结束语句:Exit语句用于强制退出Do-Loop、For、Function函...