在工作表事件中加入下列代码,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then Target = Now()
'这是A1,也就是第一行 第一列,其它自己改
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Target = Now()
'这是A列 整列有效的代码
End Sub
温馨提示:答案为网友推荐,仅供参考