如何在EXCEL中显示EXCEL被修改并且被保存的时间和日期...-excel日期修改,excel表格日期格式无法修改

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If ThisWorkbook.Saved = False Then

   [A1] = Now()

   [A2] = Now()

    Range("A1").Select

    Selection.NumberFormatLocal = "h:mm;@"

    Range("A2").Select

    Selection.NumberFormatLocal = "yyyy/m/d"

End If

End Sub

可以实现抄，希望能帮到你~zhidao

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

在EXCEL表格中，对日期设定为自动更新状态，可以通来过如下方法：

在预期显示自动更新日期的单源元格中，输入“=today()”亦或“=now()”回车确认。

前者输入执行百后显示为结果为当前日期；格式为yyyy-m-d；

而后者则被显示包括度当前的时间信息；格式为yyyy-m-d hh:mm.

若不需问要时间可以鼠标右击单元格，选择设置单元格格式，删除如图右框【类型答】下面显示格式hh:mm,只保留yyyy-m-d；

按下抄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