excel VBA 当单元格输入指定内容时，自动记录当前时间

把下列代码粘贴到工作表代码窗格中 Private Sub Worksheet_Change(ByVal Target As Range)Application.EnableEvents = FalseIf Target.Column 6 Or Target.Row < 6 Then GoTo iNextIf Target.Value = "→" Then Cells(Target.Row, 3) = NowiNext:Application.EnableEvents = Tru