Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then '如果更改数据在第七列,则在同一行第八列记录时间
Target.Offset(0, 1).Value = Now()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 Then '如果更改数据在第七列,则在同一行第八列记录时间
Target.Offset(0, 1).Value = Now()
End If
End Sub