复制到事件里
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Row > 1 Then
Cells(Target.Row, 1) = Date
End If
Application.EnableEvents = True
End Sub
复制到事件里
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 And Target.Row > 1 Then
Cells(Target.Row, 1) = Date
End If
Application.EnableEvents = True
End Sub