Sub Sub1() ' 代码逻辑 Exit Sub End Sub Sub Sub2() ' 代码逻辑 Exit Sub End Sub Sub Main() ' 调用Sub1 Sub1 ' 调用Sub2 Sub2 End Sub 使用GoTo语句:可以使用标签和GoTo语句来跳转到代码的末尾,从而退出当前的Sub。例如: 代码语言:txt 复制 Sub Sub1() ' 代码逻辑
第一部分:END语句与Exit语句 一、END语句 作用:强制退出所有正在运行的程序。 二、Exit语句 作用:退出指定的语句 例:执行x从1到100,当x=5时停止: 1、Exit Sub(退出整个sub) Sub e1() Dim x As Integer For x = 1 To 100 Cells(1, 1) = x If x = 5 Then Exit Sub End If Next x End Sub ...
Exit Sub语句的使用可以帮助我们在特定条件下提前结束程序的执行,从而提高程序的效率和可读性。 在VBA中,使用Exit Sub语句的一般语法如下: 代码语言:txt 复制 Sub ProcedureName() ' 代码块 If condition Then ' 条件满足时执行的代码 Exit Sub ' 提前退出当前的子过程 End If ' 代码块 End Sub 在上述代码中,...
5.1结束过程： End Sub End Sub属于程序外壳的组成部分，它标志着程序结束， 处于过程的末端。 当VBA遇到此句 代码时会自动结束过程。5.2中途结束过程： Exit sub Exit Sub语句用于中途结束过程，可以在一个过程中存放任意数量的Exit Sub,不过在执行代码时中要遇到第一个Exit Sub语句就会结束过程，完全忽略其他的...
5.End Sub 表示过程的结束。 使用规则 1.如果模块开头放置了Option Private语句,那么即便使用Public声明了Sub过程,该过程也会被看成是Private的。 2.Sub过程不返回值,因此不能作为表达式的一部分。 3.Sub过程可以包括任意条Exit Sub语句,用来强制退出该...
Sub kk()Sheets(“sheet1”).select Dim i As Integer For i = 1 To 100 Cells(i, 1) = i Next End Sub 二 For each …NEXT语句 这种循环主要功能是对一个数组或一个对象进行操作，让所用元素执行一次循环语句 For each element in group [statements][exit for][statements]Nexr element 具体...
[ Exit Sub ] [ 语句 ] End Sub Sub 语句语法包含以下部分: 展开表 Part说明 Public 可选。 指示 Sub 过程对所有模块中的过程是可访问的。 如果在包括 Option Private 语句的模块中使用,则此过程在项目外部不可用。 Private 可选。 指示 Sub 过程仅对声明此过程的模块中的其他过程是可访问的。 Friend ...
End Sub '子过程，在工作表A1单元格填写信息 Sub WriteInfo(info As String)Range("A1") = info End Sub 以上的例子中，Main过程是一个主入口（父过程），程序从此处开始执行，先是给name和title变量赋值，最后调用WriteInfo子过程，将两个信息合并后写到工作表上的 A1 单元格。接下来介绍调用子过程和函数的...
exit=TrueThenExitSubEndIfEndSubPrivateSub变量初始化()yn_exit=FalseEndSubPrivateSub子程序1()DimiAs...
Exit Sub 1: MsgBox "test" End Sub Sub test2() On Error Resume Next Dim sht As Worksheet Set sht = Worksheets(20) MsgBox sht.Name Exit Sub 2: MsgBox "test2" End Sub Sub test3() On Error GoTo 3 Dim sht As Worksheet Set sht = Worksheets(...