временная метка в Excel, основанная на предыдущей записи ячейки в двух столбцах

Question

Мне нужен этот код, чтобы сделать то же самое со столбцом 3. Код вставляет отметку времени в ячейку, когда в предыдущей ячейке есть запись.Мне нужен код, чтобы сделать это в столбцах 3 и 5. Я пытался сделать это, но я продолжал получать ошибки, которые позволили бы мне делать только одно или другое.

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error GoTo Handler 
    If Target.Column = 5 And Target.Value <> "" Then 
        Application.EnableEvents = False 
        Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss") 
        Application.EnableEvents = True 
    End If 
Handler: 
End Sub

Answer 1

Я только начал изучать VBA на прошлой неделе, так что я уверен, что кто-то придет и опубликует более эффективный способ, но это, похоже, работает ...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Handler
If Target.Column = 3 And Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    Application.EnableEvents = True
End If

If Target.Column = 5 And Target.Value <> "" Then
    Application.EnableEvents = False
    Target.Offset(0, 1) = Format(Now(), "dd-mm-yyyy hh:mm:ss")
    Application.EnableEvents = True
End If

Handler:
End Sub

Я только чтопопадаются также Создание автоматической отметки даты в Excel из записи