Question

如何在EXCEL中显示EXCEL被修改并且被保存的时间和日期.

我有个Q.xls的EXCEL文件,里面只有一个工作表Sheet1,想在A1和A2分别显示被修改并且被保存的时间和日期: 如果EXCEL被修改了并且被保存,则A1,A2分别显示保存的时间和日期.如果EXCEL为修改后就保存了,则A1,A2显示的时间和日期不变化
打错了一个字最后一句为: 如果EXCEL未被修改后就直接保存了,则A1,A2显示的时间和日期不变化

Answer 1

简单有效的方法如下：

1. 将电脑的日期时间改为需要修改excel文件最后访问的时间；

2. 打开excel文件，随便输入文字，然后删除，点击保存；

3. 此时excel文件最后访问时间就变更了。

Answer 2

按下alt+F11
你试试看。thisworkbook中的如下代码：
Public flag As Boolean
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If flag = True Then
Sheet1.[a1] = Format(FileDateTime(ThisWorkbook.FullName), "HH:MM:SS")
Sheet1.[a2] = Format(FileDateTime(ThisWorkbook.FullName), "YYYY-MM-DD")

End If
End Sub

Private Sub Workbook_Open()
flag = False
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
flag = True
End Sub

Answer 3

工具>选项，选择重新计算标签，将“手动重算（保存前自动重算）”，改为“自动重算”，（也就是选种“自动重算”前面的单选框）。

Answer 4

你太有才了，这样都能想得到，修改后推出鼠标移动到EXECL表格上就会显示最后一次修改的日期。你要显示到表格上没看到过，不过告诉你一个日期快捷键按住Ctrl+:就可以直接显示当前日期。

Answer 5

按下alt+F11
thisworkbook中的代码
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ThisWorkbook.Saved Then
Sheet1.[a1] = Format(FileDateTime(ThisWorkbook.FullName), "HH:MM:SS")
Sheet1.[a2] = Format(FileDateTime(ThisWorkbook.FullName), "YYYY-MM-DD")
End If
ThisWorkbook.Save
End Sub

追问

我按照你的代码写了,好像还是不理想