Автоматическая временная метка

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()) 

Edit: Я не знаю, почему вы изменили свой вопрос, чтобы удалить код, который вы отправили изначально !?

Answer 2

Код ниже проверяет, есть ли изменения в последней строке sheet2, время будет напечатана в колонке 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