当单元格包含引用另一个工作表中另一个单元格的公式时，如何更新时间戳？

Question

以下代码为我提供了初始时间戳 (N) 和更新时间 (O)。

当手动更新WORKSHEET1 上的D 列中的单元格时，此方法有效。

单元格现在在列DWORKSHEET1 引用WORKSHEET2 列E。因此，例如WORKSHEET1 上的D4 是='WORKSHEET2'!E23。

当WORKSHEET2 上的值更新时，WORKSHEET1 上的D 列会自动更新。

然后下面的时间戳代码将停止工作，并且不会获取此值更改。 我可以插入一个 VBA 代码，以便当我更改 WORKSHEET2 上的值，并且由于 cel D 中的公式而更新 WORKSHEET1 上的值时，时间戳会起作用吗？

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myTableRange As Range

Dim myDateTimeRage As Range

Dim myUpdatedRange As Range

Set myTableRange = Range("D1:D314")

If Intersect(Target, myTableRange) Is Nothing Then Exit Sub

Set myDateTimeRage = Range("N" & Target.Row)

Set myUpdatedRange = Range("O" & Target.Row)

If myDateTimeRage.Value = "" Then

    myDateTimeRage.Value = Now
End If

myUpdatedRange.Value = Now

End Sub

Answer 1

试试这个 -

Private Sub Worksheet_Calculate()
    Dim myTableRange As Range
    Dim myDateTimeRage As Range
    Dim myUpdatedRange As Range
    Set myTableRange = Range("D1:D314")   

    For Each cell In myTableRange
        Dim OldValue As Variant
        Application.EnableEvents = False
        Application.Undo
        OldValue = cell.Value
        Application.Undo
        Application.EnableEvents = True
        If OldValue <> cell.Value Then
            Set myDateTimeRage = Range("N" & cell.Row)
            Set myUpdatedRange = Range("O" & cell.Row)    
                If myDateTimeRage.Value = "" Then
                    myDateTimeRage.Value = Now
                End If
            myUpdatedRange.Value = Now
        End If    
    Next cell