试试以下代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column > 1 And Target.Column < 25 Then
Cells(Target.Row, 1) = Now()
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 And Target.Column > 2 Then
Cells(Target.Row, 1) = Date
End If
End Sub
发文件来吧，我给你看看
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024