excel中实现最后修改的时间记录

2025-02-21 17:22:51

推荐回答（2个）

回答1：

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Exit Sub '必须加上这句，不然麻烦大了，哈，原因自己想去

'==============================
' 在这里你可以加上区域判断的语句
'这里的意思是：如果你只保存特定区域的数据修改，只要在这里加上判断就可以了，比如，你只记录C1单元格的修改时间，其他都不记录，那么只要加上语句：
If Target.Address <> "$C$1" Then Exit Sub
'这样一来，只有C1单元格的数据修改时，B1单元格的内容才会被更新
'==============================

Sheet1.Cells(1, 2) = Now()

ActiveWorkbook.Save

End Sub

回答2：

审阅——修订——突出显示修订可以实现这个功能，需要另存为一个文件。