如何在VBA的Workbook_SheetChange事件中排除双击未改单元格的触发场景

核心实现思路 #

通过预存单元格变更前的原始值，在事件触发时比对新旧值是否真正发生变化，过滤无实际修改的触发场景。

具体实现步骤 #

1. 首先在ThisWorkbook模块顶部声明公共变量，用于存储选中单元格的原始值：

' 放在ThisWorkbook模块所有过程的最上方
Public preCellValue As Variant

2. 借助Workbook_SheetSelectionChange事件，在用户选中单元格时存储当前值：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ' 仅存储单选单元格的原值，多选场景可自行扩展为数组/字典存储
    If Target.CountLarge = 1 Then
        preCellValue = Target.Value
    Else
        preCellValue = Empty
    End If
End Sub

3. 在Workbook_SheetChange事件中增加新旧值比对逻辑，仅当值实际变化时执行业务代码：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ' 临时关闭事件防止递归触发
    Application.EnableEvents = False
    
    ' 过滤无实际修改的误触发场景
    If Target.CountLarge = 1 Then
        ' 转换为字符串比对可避免数值格式、空值识别导致的误差
        If CStr(Target.Value) <> CStr(preCellValue) Then
            ' 此处放置你原本需要执行的单元格变更检测逻辑
            Debug.Print "单元格" & Target.Address(False, False) & "值已变更：原值为" & preCellValue & "，新值为" & Target.Value
        End If
    End If
    
    ' 务必恢复事件触发，否则Excel后续所有事件都会失效
    Application.EnableEvents = True
End Sub

扩展优化 #

如果需要支持多选单元格的变更检测，可以将公共变量调整为字典类型，按单元格地址存储对应原值，遍历Target区域逐一比对即可。

内容的提问来源于stack exchange，提问作者Enrique González