自動時間戳

Question

以下是正在運行。 如果我想在B列中創建一個時間和日期戳，並將值插入A列，那麼如何修改現有模塊？ （我不能粘貼代碼，這就是爲什麼有一個鏈接）

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

以下的代碼檢查是否存在在最後一行Sheet 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 

結束子