Question

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

如下图，当F列变“→”时，C列对应单元格自动记录当前时间，当F列为其他内容时显示空值，例如：当F6变为→时，C6自动录入当前时间
这个本来用公式可以很容易实现，但是因为数据量太大，公式太多工作表反应慢，所以想用VBA实现，请高手帮帮忙

Answer 1

把下列代码粘贴到工作表代码窗格中

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

Answer 2

Sub 输入当前时间()
    If Cells(6, 6) = "→" Then Cells(6, 3) = Now Else Cells(6, 3) = ""
End Sub