此示例使用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....
对应退出语句: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整除...
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...
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的退出...
VBA笔记 退出循环、Sub、Fuction等的Exit语句 Exit语句,可以用来跳出、退出各种循环。以下是几种VBA循环及过程、函数等的退出语句代码。 一、For循环的退出 For Each myCell in Range("A1:H10") If myCell.Value = "" Then myCell.Value = "empty"...
在VBA中,使用Exit Sub语句的一般语法如下: 代码语言:txt 复制 Sub ProcedureName() ' 代码块 If condition Then ' 条件满足时执行的代码 Exit Sub ' 提前退出当前的子过程 End If ' 代码块 End Sub 在上述代码中,如果条件满足,则会执行Exit Sub语句,跳出当前的子过程,不再执行后续的代码。
不同于End,Exit的退出稍微轻一些,它只退出指定的语句。 Exit语句是为了在符合某种情况的时候退出,所以必然是跟If判断一起用的。一下是具体的几个例子,用法其实是一样的。 1、退出过程——Exit Sub 2、退出函数——Exit function 3、退出for循环——Exit for ...
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) = "偶数" ...
Exit Sub ' 如果范围值为0,则结束Sub过程 End If ' 继续执行其他代码 End Sub 在上述示例中,如果rangeValue的值为0,则会执行Exit Sub语句,从而提前结束Sub过程。否则,会继续执行其他代码。 需要注意的是,Exit Sub只能用于结束当前的Sub过程,并不能结束整个程序的执行。如果需要结束整个程序的执行,可以使用Exit ...
(1)、End结束语句:End语句可以单独使用,也可以结合部分控制关键字使用,如Function、If、Select、Sub、With等。End语句用于立即结束一个过程或者块,它提供了一种强制中止程序或结束语句块的方法。End语句结合不同控制关键字时的使用方法如下表: 示例: (2)、Exit结束语句:Exit语句用于强制退出Do-Loop、For、Function函...