自动时间戳

Question

以下内容正在运行。 如果我想在B列中插入值时在B列中创建时间和日期戳，我该如何修改现有模块？ （我无法粘贴代码，这就是为什么有链接）

Log Value in Excel

Answer 1

这只是对该行的一个小改动：

Worksheets("Sheet2").Range("a" & Cells(Rows.Count).Row).End(xlUp).Offset(1, 0).Resize(, 2).Value = Array(Range("E15").Value, Now())

编辑：我不确定您为什么更改了问题以删除最初发布的代码！

Answer 2

以下代码将检查最后一行表2是否有任何变化， 时间戳将打印在B栏

中

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Worksheets("sheet2").Range("A" & Cells(Rows.Count).Row).End(xlUp)) Is Nothing Then

   lastrow = Worksheets("sheet2").Cells(Worksheets("sheet2").Rows.Count, "A").End(xlUp).Row
    Worksheets("sheet2").Cells(lastrow, 2).Value = Now()
End If

End Sub