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

Question

参考此链接：Automatic date update in a cell when another cell's value changes (as calculated by a formula)

来自罗马]的答复很有帮助。但是我宁愿将它们存储在同一行的单元格（表）中，而不是将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)
但是很遗憾，此功能无法正常工作。 
任何人都可以帮助我查看并解决我的问题吗？

引用此链接：当另一个单元格的值更改时（由公式计算），单元格中的自动日期更新。Roman的回答是有帮助的。而是存储oldvalue＆...

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

感谢avb