工作表的change事件 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "AA2" Or Target.Address <> "AA2" Or Target.Address <> "AA2" Then Range("m2") = Format(Now, "yyyy-m-d h:mm:s") End If End Sub
改下,刚才只写了a2的地址 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address <> "AA2" Or Target.Address <> "Z2" Or Target.Address <> "M2" Then Range("m2") = Format(Now, "yyyy-m-d h:mm:s") End If End Sub