热心网友
回答时间:2024-10-13 01:44
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim x As Integer
x = Target.Row
If x > 7 And x < 200 Then
If Target.Column = 1 And Target <> "" Then
Cells(x, 2) = Now()
ElseIf Target.Column =1 And Target = "" Then
Cells(x, 2) = ""
End If
End If
End Sub
收起