VB-New для VB Excel

Question

Я пытаюсь получить пару столбцов для изменения в моем листе на основе следующего кода, однако я продолжаю получать код ошибки.

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 12 Then 
     Application.EnableEvents = False 
     Cells(Target.Row, 13).Value = Date + Time 
     Application.EnableEvents = True 
    End If 
    If Target.Column = 13 Then 
     Application.EnableEvents = False 
     Cells(Target.Row, 14).Value = Date + Time 
     Application.EnableEvents = True 
    End If 
End Sub 

Answer 1

с диким ножом, но я предполагаю, что вы хотите отформатировать его, как показано ниже

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 12 Then 
    Application.EnableEvents = False 
    Cells(Target.Row, 13).Value = Format(DateTime.Now, "mm/dd/yyyy") 
    Application.EnableEvents = True 
    End If 
    If Target.Column = 13 Then 
    Application.EnableEvents = False 
    Cells(Target.Row, 14).Value = Format(DateTime.Now, "hh:mm:ss") 
    Application.EnableEvents = True 
    End If 
End Sub