Excel VBA：自动更新单元格时日期不填充，手动修改则正常

为什么自动更新时不触发？ #

Worksheet_Change 事件只对用户手动操作引发的单元格变更生效——比如手动输入、粘贴、删除内容。如果单元格是通过公式计算、其他VBA代码修改、或者关联工作表自动同步更新的，这类变更属于Excel内部的“计算更新”，不会触发Worksheet_Change事件，所以你的日期填充逻辑不会执行。

先修正原代码的语法错误 #

你的代码存在多处语法问题，先修正这些才能保证手动操作时的功能正常：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim MyDataRng As Range
    Set MyDataRng = Range("A2:A10")
    
    ' 如果修改的区域不在监控范围内，直接退出
    If Intersect(Target, MyDataRng) Is Nothing Then Exit Sub
    
    On Error Resume Next
    ' 补全判断逻辑：示例为B列对应单元格为空时填充当前时间
    If Target.Offset(0, 1).Value = "" Then
        Target.Offset(0, 1) = Now
    End If
    ' C列直接填充当前时间
    Target.Offset(0, 2) = Now
End Sub

解决自动更新触发问题的两种方案 #

方案1：用Worksheet_Calculate监控公式/外部链接更新 #

如果A列是通过公式关联其他工作表，可使用Worksheet_Calculate事件，但需要记录之前的单元格值来判断是否真的发生了变化：

' 模块级变量，存储A2:A10的上一次值
Private prevValues As Variant

Private Sub Worksheet_Activate()
    ' 激活工作表时初始化记录值
    prevValues = Range("A2:A10").Value
End Sub

Private Sub Worksheet_Calculate()
    Dim currValues As Variant
    Dim i As Integer
    currValues = Range("A2:A10").Value
    
    ' 逐行对比前后值，找出变化的单元格
    For i = 1 To UBound(currValues, 1)
        If currValues(i, 1) <> prevValues(i, 1) Then
            ' 填充对应B、C列的时间
            Cells(i + 1, 2) = Now ' 对应行号：A2是第2行，所以i+1
            Cells(i + 1, 3) = Now
        End If
    Next i
    
    ' 更新记录的最新值
    prevValues = currValues
End Sub

方案2：在更新A列的代码中直接调用填充逻辑 #

如果A列是由其他VBA代码更新的，直接在更新代码后调用填充逻辑即可：

' 示例：更新A列的代码
Sub UpdateColumnAFromOtherSheet()
    ' 从关联工作表同步数据到A2
    Range("A2").Value = Sheets("关联工作表").Range("B2").Value
    ' ...其他更新逻辑
    
    ' 调用填充日期的函数
    FillDate Target ' 传入刚更新的单元格
End Sub

' 封装填充日期的通用函数
Sub FillDate(targetRng As Range)
    If Not Intersect(targetRng, Range("A2:A10")) Is Nothing Then
        If targetRng.Offset(0, 1).Value = "" Then
            targetRng.Offset(0, 1) = Now
        End If
        targetRng.Offset(0, 2) = Now
    End If
End Sub

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