VBA变量满足条件时GoTo跳转弹窗终止宏的代码失效问题

你的代码无法生效的核心原因有3个：

• 语法使用完全错误：VBA 中不存在「变量满足某条件就自动触发GoTo跳转」的语法，On ... GoTo 仅支持两种合法写法：一种是错误捕获场景的On Error GoTo 标签，另一种是兼容旧Basic语法的多分支数值跳转On 整数表达式 GoTo 行号1,行号2...，你写的On v1 = 10 GoTo Erro1属于非法语法，根本不会按你预想的逻辑执行。
• 执行顺序错误：你把跳转判断写在了给v1赋值的逻辑之前，就算跳转语句合法，执行到判断行时v1还是初始默认值0，不可能满足等于10的触发条件。
• 标签拼写不一致：你跳转目标写的是Erro1（末尾是数字1），下方实际定义的标签是Error1（末尾是字母r），就算跳转触发也会报「标签未定义」错误。

VBA 没有原生的变量值变更监听机制，要实现条件触发跳转，直接在变量赋值完成后用普通If判断即可，修正后的代码如下：

Sub test()
    Dim v1 As Integer

    ' 执行业务逻辑给变量赋值
    If ActiveCell.Value > 10 Then
        v1 = 10
    End If

    ' 此处放你的其他业务逻辑
    ' .
    ' .
    ' .

    ' 变量赋值完成后判断触发条件
    If v1 = 10 Then GoTo Error1

    ' 正常流程执行完直接退出，避免误入错误分支
    Exit Sub

Error1:
    MsgBox "Erro"
    ' 弹出提示后宏会直接运行到过程末尾，自动终止
End Sub

如果你的业务逻辑中v1会在多个位置被修改为10，只需要在每一处给v1赋值为10的代码后追加上述If判断即可，不需要额外引入复杂的监听逻辑。

内容的提问来源于stack exchange，提问作者XxmemelolxX