Excel VBA实现光标定向移动：解决Worksheet_Change重名报错问题

问题背景 #

在Sheet9(Recommendation Report)工作表中需实现两个功能：

• 修改H5单元格时自动保存工作簿，保障多用户使用时序号VBA正常工作
• 填写指定单元格后，光标自动跳转到下一个相关单元格

但因存在两个同名的Worksheet_Change事件过程，触发报错：

Ambiguous name detected:Worksheet_Change

将其中一个改名后，过程变为通用过程，无法触发工作表事件。

合并后的解决方案 #

将两个功能整合到同一个Worksheet_Change事件过程中，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件触发，避免跳转单元格时重复触发Change事件
    Application.EnableEvents = False
    
    ' 功能1：修改H5单元格时自动保存工作簿
    If Not Intersect(Target, Range("H5")) Is Nothing Then
        ActiveWorkbook.Save
    End If
    
    ' 功能2：光标自动跳转到下一个指定单元格
    Select Case Target.Address(ReferenceStyle:=xlA1)
        Case "$H$5"
            Range("$H$6").Select
        Case "$H$6"
            Range("$N$5").Select
        Case "$N$5"
            Range("$N$6").Select
        Case "$N$6"
            Range("$Z$5").Select
        Case "$Z$5"
            Range("$D$10").Select
    End Select
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

核心要点 #

• 单个工作表仅允许存在一个Worksheet_Change事件过程，重名会导致编译器报错，必须合并逻辑
• 添加Application.EnableEvents开关，防止跳转单元格时重复触发Change事件，避免死循环或冗余执行
• 使用Target.Address(ReferenceStyle:=xlA1)明确指定A1引用样式，避免因系统引用样式设置差异导致判断失效

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