更改同一行中的相关单元格时更新日期

Question

参考此链接： 当另一个单元格的值发生变化时，单元格中的自动日期更新（由公式计算）

Roman 的回答很有帮助。 但是为了将 oldvalue 和 oldDate 存储到文档属性中，我更愿意将它们存储在同一行的单元格（表）中。

这是我尝试更改功能的内容：

Public Function UDF_EditDate(ByVal newData As Range, ByRef oldData As Range, ByRef   oldDate As Range) As Date
If newData.Count = 1 And oldData.Count = 1 And oldDate.Count = 1 Then

    If (oldDate.Value = "") Or (newData.Value <> oldData.Value) Then
        oldData.Value = newData.Value
        Range(oldDate).Value = Now()
    End If

    UDF_EditDate = Now()
End If
End Function

在公式单元格中让我说“D1”：

= UDF_EditDate(A1,B1,C1)

但是，不幸的是，此功能无法按预期工作。

任何人都可以帮助我查看并解决我的问题？

Answer 1

下面的代码监视工作表上的 A 列，并在更改时将当前日期放在同一行 B 列中：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Target.Parent.Range("A:A")) Is Nothing Then Exit Sub
    Target.Next.Value = Date
End Sub

这只有在更改单个单元格时才能正常工作，请尝试自己修改多​​个单元格

Answer 2

感谢av

我对 A 列到 D 列的扩展数量进行了轻微修改，并将相应行的 E 列更新。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Target.Parent.Range("A:D")) Is Nothing Then Exit Sub
    For Each x In Target
        Cells(x.Row, 5).Value = Now
    Next
End Sub