跳转到指定标签处运行:GoTo

发布时间 2023-06-23 23:29:46作者: iZJ"Qq4577105

语法

VBA 中,在程序运行时,使用 GoTo 结构,跳转到指定标签处运行,从而不执行 GoTo 语句和指定标签之间的代码。

在实际的 VBA 开发中,Goto 结构多用于处理错误的情形,即发生错误时,跳转到处理错误的代码处。

GoTo 结构由 GoTo 语句和标签语句组成。基本语法如下:

GoTo [标签]

'被跳过的代码
...
[标签]:
'被执行的代码

跳转的位置由 Goto 关键词后的 [标签] 告诉程序,VBA 会在代码中查找对应的 [标签]: 关键词,从标签下一行继续执行程序。

需要注意的是,跳转处的标签,后接半角冒号 ( : ) 。

 

示例

下面的例子说明 GoTo 结构的基本用法。使用 VBA 作除法,如果除数是零,则跳转到程序末尾,提示除数不符合规范。

Sub MyCode()

    Dim num1 As Double
    Dim num2 As Double
    Dim result As Double
    
    num1 = 100
    num2 = 0
    
    If num2 = 0 Then GoTo error
    
    result = num1 / num2
    
    Exit Sub
    
error:
    MsgBox "除数不能为零"

End Sub

可以看到,例子中 num2 是除数,程序判断 num2 是否为零,如果是,则跳转到 Error 标签处,除法部分不会被执行。

 

转载:https://www.lanrenvba.com/c/vba-start/code-structure/goto-structure/goto-example