Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 Then
If Target.Column = 2 Then '列号2
Target.Offset(0, 3) = IIf(Target.Value = "", "", Date)
ElseIf Target.Column = 9 Then '列号9
Target.Offset(0, 1) = IIf(Target.Value = "", "", Date)
End If
End If
End Sub