记录数据时自动更新日期

Question

我一直在填写Excel工作表记录项目信息。 我想知道在更新同一张纸的相邻行中的单元格时，如何用当前日期填充一个单元格。 当前在相邻的单元格中有信息，但我希望它保留以前更新它的日期。 只有当我更新信息时，我才希望更改它

我已经在Google上搜索了逻辑运算符信息，但似乎找不到直接答案。 如果有VB宏，我可以接受任何解决方案。 我也在Excel中也找到了关于TODAY（）函数的信息，但是我不知道如何将其应用于我的特定问题。 对VB宏或信息的任何引用都将有所帮助。 谢谢。

Answer 1

尝试使用Alt-F11来启动编辑器，右键单击“ Sheet1”（或您的工作表名称），然后选择添加代码，并粘贴如下内容：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("B2:B10")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Cells(Target.Row, Target.Column - 1) = Now()
    End If
End Sub

如果在B2到B10中键入内容，则相邻列将使用当前日期更新。