把下列代码粘贴到工作表代码窗格中
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column <> 6 Or Target.Row < 6 Then GoTo iNext
If Target.Value = "→" Then Cells(Target.Row, 3) = Now
iNext:
Application.EnableEvents = True
End Sub
Sub 输入当前时间()
If Cells(6, 6) = "→" Then Cells(6, 3) = Now Else Cells(6, 3) = ""
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024