Excel VBA：$O$2单元格值变化时触发Insert_NEW宏的实现问题

我有一个包含100+工作表的Excel工作簿，每个工作表结构完全一致（仅工作笔记不同），用来追踪单个工单。需求是：按下回车键导致$O$2单元格值变化时，自动运行名为Insert_NEW的宏，替代每天手动点击按钮100+次的操作。我已经花了近4小时尝试实现，目标是把触发宏的逻辑嵌入EnableEvents的开关语句之间。

现有Worksheet_Change脚本 #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 15 Then
        Application.EnableEvents = False
        Cells(Target.Row, 27).Value = Date + Time
        Application.EnableEvents = True
    End If
End Sub

尝试过的代码片段 #

• 直接判断单元格地址：

If Target.Address = "$O$2" Then
    Call Insert_NEW
End If

• 使用Intersect判断（存在语法错误）：

If Not Intersect(target, Range("$O$2") Is Nothing Then
    Call Insert_NEW
End If

调整后的完整代码（移除其他私有子程序后） #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 15 Then
        Application.EnableEvents = False
        Cells(Target.Row, 27).Value = Date + Time
        Application.EnableEvents = True
    End If
    If Not Intersect(Target, Range("$O$2")) Is Nothing Then
        Call Insert_NEW
    End If
End Sub

核心问题 #

1. 触发Insert_NEW的逻辑未包裹在EnableEvents关闭块内，若Insert_NEW执行时修改单元格，会再次触发Worksheet_Change事件，导致逻辑混乱或宏无法正常运行。
2. 给100+工作表逐个添加Worksheet_Change效率极低，应采用工作簿级事件统一处理所有工作表。

修正代码实现 #

1. 工作簿级事件统一处理（推荐）

打开VBA编辑器，双击左侧面板的ThisWorkbook，粘贴以下代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.EnableEvents = False ' 先关闭事件触发，避免递归
    
    ' 处理O列任意行的时间戳更新
    If Target.Column = 15 Then
        Sh.Cells(Target.Row, 27).Value = Now() ' Now()与Date+Time效果一致，写法更简洁
    End If
    
    ' 检测O2单元格变化，触发目标宏
    If Not Intersect(Target, Sh.Range("$O$2")) Is Nothing Then
        Insert_NEW ' 可省略Call，直接调用宏名
    End If
    
    Application.EnableEvents = True ' 恢复事件触发
End Sub

2. 确保Insert_NEW为公共宏

将Insert_NEW放置在标准模块（如新建的Module1）中，示例代码：

' 标准模块中的代码
Public Sub Insert_NEW()
    ' 此处编写你的宏逻辑
    MsgBox "Insert_NEW已执行" ' 测试用弹窗，确认触发成功后可删除
End Sub

注意事项 #

• 工作簿级事件Workbook_SheetChange会自动作用于所有工作表，无需逐个设置，适配多工作表场景。
• 必须先关闭EnableEvents再执行任何修改单元格的操作（包括Insert_NEW内部的操作），避免重复触发事件导致异常。
• 测试阶段可保留弹窗，确认宏触发正常后再移除。

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