在VBA中,使用Exit Sub语句的一般语法如下: 代码语言:txt 复制 Sub ProcedureName() ' 代码块 If condition Then ' 条件满足时执行的代码 Exit Sub ' 提前退出当前的子过程 End If ' 代码块 End Sub 在上述代码中,如果条件满足,则会执行Exit Sub语句,跳出当前的子过程,不再执行后续的代码。
exit sub ' 用在sub里 exit function ' 用在function里 exit propperty '?? 1.2 错误的用法 exit '不能单独使用 exit if '一般并没有必要跳出 if 吧 2 exit for 只会跳出本层循环 2.1 正常2层循环 Sub ponymatest1() For i = 1 To 10 For j = 1 To 5 If j = 3 Then m = m + 1 Debug...
一、END语句 我们在写If函数、过程或自定义函数的时候,最后一句总是End If 或 End Sub或End Function,这里End的意思是强制退出所有正在运行的程序,包括这段代码中的一切窗体。 二、Exit语句 不同于End,Exit的退出稍微轻一些,它只退出指定的语句。 Exit语句是为了在符合某种情况的时候退出,所以必然是跟If判断一起...
If 条件成立 Then 执行1 Else 执行2 End If '也可以写成一行 '但不推荐这样做,在复制代码时无法自动缩进 If 条件成立 Then 执行语句1 Else 执行语句2 嵌套使用 If条件1Then执行1ElseIf条件2Then执行2Else执行3EndIfEndIf 嵌套省略形式 If 条件1 Then 执行1 ElseIf 条件2 Then 执行2 ElseIf 条件3 Then 执...
Sub t2() Dim x As Integer For x = 1 To 10 If Cells(x, 1) Mod 2 = 0 Then GoSub 100 '如果Cells(x, 1)能被2整除,跳到100标记下的语句;如不是,x+1;如x=10都没遇到偶数,结束程序。 Next x Exit Sub 100: Cells(x, 1) = "偶数" ...
Publicyn_exitAsBooleanSub主程序()Call变量初始化Call子程序1Ifyn_exit=TrueThenExitSubEndIfEndSub...
VBA笔记 退出循环、Sub、Fuction等的Exit语句 Exit语句,可以用来跳出、退出各种循环。以下是几种VBA循环及过程、函数等的退出语句代码。 一、For循环的退出 For Each myCell in Range("A1:H10") If myCell.Value = "" Then myCell.Value = "empty"...
1)Exit Sub Sube1()DimxAsIntegerForx=1To100Cells(1,1)=xIfx=5ThenExitSubEndIfNextxRange("b1")=100EndSub 2)Exit function Functionff()Dim x As Integer For x=1To100If x=5Then Exit Function End If Next x ff=100End Function 3)Exit for ...
(1)、End结束语句:End语句可以单独使用,也可以结合部分控制关键字使用,如Function、If、Select、Sub、With等。End语句用于立即结束一个过程或者块,它提供了一种强制中止程序或结束语句块的方法。End语句结合不同控制关键字时的使用方法如下表: 示例: (2)、Exit结束语句:Exit语句用于强制退出Do-Loop、For、Function函...
一旦在循环中找到匹配，您就可以退出sub。如果您通过了循环，则没有匹配项，因此添加为新项：...