Question

我一直在填写excel表记录项目信息。我想知道当我更新同一工作表中相邻行中的单元格时，如何使用当前日期填充单元格。目前有相邻单元格中的信息，但我希望它保存我之前更新过的日期。只有当我更新信息时我才想要改变

我已经搜索了逻辑运算符信息，但我似乎找不到直接答案。如果有一个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中键入内容，则会使用当前日期更新相邻列。

我记录数据时自动更新日期

1 个答案: