VBA 中转到 行号

使用 VBA 中的 GoTo 语句可以在程序执行过程中跳转到指定的行号，从而实现程序的控制流程的灵活调整。在本文中，我们将介绍 GoTo 语句的用法，并提供一些案例代码来帮助读者更好地理解其应用。

GoTo 行号

vba
Sub CheckNegativeNumber()
    Dim num As Integer
    
    num = InputBox("请输入一个整数：")
    
    If num < 0 Then
        GoTo NegativeNumber
    End If
    
    MsgBox "该数为非负数"
    Exit Sub
    
NegativeNumber:
    MsgBox "该数为负数"
End Sub

vba
Sub CheckNegativeNumber()
    Dim num As Integer
    
    num = InputBox("请输入一个整数：")
    
    If num < 0 Then
        GoTo NegativeNumber
    End If
    
    MsgBox "该数为非负数"
    Exit Sub
    
NegativeNumber:
    MsgBox "该数为负数"
End Sub