Excel单元格数值变动时自动触发宏更新图表坐标轴刻度的实现问题

常见失效原因 #

• 事件代码存放位置错误：Worksheet_Change 属于工作表级事件，必须粘贴到你要监控的单元格所属的工作表代码模块中（比如你的AXIS_MIN/AXIS_MAX在DASH工作表，就打开VBA编辑器，在左侧工程资源管理器双击DASH工作表，将事件代码写入该页面，放入普通模块不会触发）
• 触发场景不匹配：Worksheet_Change 仅响应用户手动修改单元格数值的操作，如果AXIS_MIN/AXIS_MAX是公式计算返回的结果，该事件不会触发，需要替换为Worksheet_Calculate事件
• 代码运行出错：原宏使用了Activate方法，事件触发时如果图表未处于激活状态会导致运行中断，同时如果事件触发时EnableEvents被误设为False也会导致事件不生效

优化后的代码 #

首先优化Axis_Update宏，去掉容易出错的激活操作：

Sub Axis_Update()
    Dim ws As Worksheet
    Set ws = Worksheets("DASH")
    ' 直接引用图表，无需激活避免报错
    With ws.ChartObjects("T_CHART").Chart.Axes(xlCategory, xlPrimary)
        .MinimumScale = ws.Range("AXIS_MIN").Value
        .MaximumScale = ws.Range("AXIS_MAX").Value
        .MajorUnit = ws.Range("AXIS_TICK").Value
    End With
End Sub

场景1：手动修改AXIS_MIN/MAX单元格值 #

在对应工作表的代码模块粘贴以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格是刻度相关单元格时才触发更新，减少不必要运行
    If Not Intersect(Target, Me.Range("AXIS_MIN, AXIS_MAX, AXIS_TICK")) Is Nothing Then
        ' 关闭事件避免重复触发
        Application.EnableEvents = False
        Call Axis_Update
        ' 恢复事件触发
        Application.EnableEvents = True
    End If
End Sub

场景2：AXIS_MIN/MAX是公式计算结果 #

在对应工作表的代码模块粘贴以下事件代码：

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Call Axis_Update
    Application.EnableEvents = True
End Sub

额外排查项 #

如果修改后仍不生效，可在VBA编辑器的立即窗口（按Ctrl+G调出）输入Application.EnableEvents = True回车，重置事件触发开关即可。

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