求助各位大神。怎么在E列变动的同时在F列显示时间。
Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row
n = Target.Column
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
For Each Rng In Application.Intersect(Target, Columns(1))
If Rng = "选1" Then
Cells(Target.Row, "B").Value = Date
End If
If Rng = "选2" Then
Cells(Target.Row, "C").Value = Date
End If
If Rng = "选3" Then
Cells(Target.Row, "D").Value = Date
End If
Next
Application.EnableEvents = True
End Sub