如果某个单元格在不同的单元格中发生变化，如何将单元格更新到今天的日期？

Question

我正在设置一个工具，供用户输入证据以验证任务是否已完成。当他们输入这个证据时，完成＆＃34;日期完成的专栏＆＃34;更新以显示今天的日期。我已经在各种各样的地方寻求帮助，但我找不到任何可以做到这一点的事情。

我包含了我想要发生的事情的示例屏幕截图...当证据列中的某些内容发生变化时，我希望在发生更改的行中更新日期。

Answer 1

这假设要更改的值在Col A中，您的日期将立即在您的值更改右侧的列中。如果这些假设不正确，并且您需要帮助修改，请告诉我。

请注意，只有在物理更改单元格时才会激活此功能 （公式/条件格式不会触发工作表更改）

将以下代码粘贴到您希望其运行的工作表中

Option Explicit

Private Sub worksheet_change(ByVal target As Range)

Dim LRow As Long
LRow = Range("A" & Rows.Count).End(xlUp).Row

Dim MyRange As Range
Set MyRange = Range("A2:A" & LRow)

If Not Intersect(target, MyRange) Is Nothing Then
Application.EnableEvents = False
    Target.Offset(, 1).Value = Now()
Application.EnableEvents = True
End If

End Sub