Sub OnGosubGotoDemo()Dim Number As Integer, MyString As String Number = 1 ' 设置变量初值 ' 因为Number的值等于1，所以以下的示例会跳转到Sub1,Line2 ' 下一句跳转到Sub1，在 On...GoSub退出后，程序会回到此处来继续完成 On Number GoSub Sub1, Sub2 '因
跳转的位置由 Goto 关键词后的 [标签] 告诉程序，VBA 会在代码中查找对应的 [标签]: 关键词，从标签下一行继续执行程序。需要注意的是，跳转处的标签，后接冒号 ( : ) 。实例 下面的例子说明 GoTo 结构的基本用法。使用 VBA 作除法，如果除数是零，则跳转到程序末尾，提示除数不符合规范。Sub MyCode()Dim ...
End Sub ``` 2. **错误处理**: 虽然通常建议使用标准的错误处理结构(如`On Error GoTo`),但在某些简单的情况下,`GoTo`也可以用于错误处理。 ```vba Sub ErrorHandlingExample() On Error GoTo ErrorHandler Dim x As Integer x = 1 / 0 ' 这将引发除以零的运行时错误 Exit Sub ErrorHandler: MsgBox...
On Number GoTo Line1, Line2 ' 完成 Line2 标记之区段。' 在 On...GoTo 退出之后，程序不会回到此处来。Exit Sub Sub1:MyString = "In Sub1" : Return Sub2:MyString = "In Sub2" : Return Line1:MyString = "In Line1"Line2:MyString = "In Line2"End Sub 来源于:VBA Help ...
MyString = "Number equals 2" LastLine: Debug.Print MyString ' Print "Number equals 1" in ' the Immediate window. End Sub 另请参阅 数据类型 语句 支持和反馈 有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。反馈...
VBA的 程序终止、退出语句块、分支及错误处理( End,exit,onerrorgotoinVBA 代码1: 程序终止及退出方法 1 Option Explicit 2 3 '一、END语句 4 5 '作用:强制退出所有正在运行的程序。 6 7 '二、Exit语句 8 9 '退出指定的语句 10 11 '1、Exit Sub 12 Sub e1() 13 Dim x As Integer 14 For x = ...
Excel VBA与Access VBA 错误处理中的Resume语句与Goto语句的区别,别傻傻地分不清楚 Resume 是清除Err对象并重新转到指定的标签 或下一句 (Next)Goto 是不清除Err对象转到指定的标签 一、Resume语句与Goto语句相同点: 两者都将执行转移到指定的的标签,如后面示例中的Cleanup标签 二、Resume语句与Goto语句区别(不同...
修改参数，按如下写法，更合理显示。Private Sub CommandButton1_Click() Application.Goto Sheets("Sheet1").Range("a100"), Scroll:=TrueEnd Sub 这样跳转到A100，同时可以显示在上方。觉得麻烦的朋友，可以画一个长方形，然后右击，超链接。然后指定位置。但终究是没有VBA代码灵活，可以很多行代码，连续操作，...
下面的例子说明 GoTo 结构的基本用法。使用 VBA 作除法,如果除数是零,则跳转到程序末尾,提示除数不符合规范。 SubMyCode()Dimnum1AsDoubleDimnum2AsDoubleDimresultAsDoublenum1 =100num2 =0Ifnum2 =0ThenGoToerrorresult = num1 / num2ExitSuberror:MsgBox"除数不能为零"EndSub ...
End Sub 在上面的示例中,我们定义了一个名为GotoExample的子例程。当我们运行这段代码时,将会依次显示"Step 1"和"Step 3"两个消息框。代码执行到GOTO语句时,它会立即跳转到MyLabel标签处执行代码,而跳过了"Step 2"。 第四部分:使用VBA GOTO语句进行条件跳转 接下来,我们将讨论VBAGOTO语句的第二种用法,即条件...