有時需要在工作表的頁眉或頁腳中顯示最后修改的日期和時間，在Excel中可以用下面的VBA代碼來實現(xiàn)，步驟如下：

例如在頁眉的中部顯示工作簿最后保存時間，按Alt+F11打開VBA編輯器，雙擊“工程”窗口中的“ThisWorkbook”，然后在代碼窗口中粘貼下列代碼：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = "最后修改時間：" + Format(Now, "yyyy-mm-dd hh:mm:ss")
End Sub

這樣，每次保存工作簿，該代碼會在當(dāng)前活動工作表的頁眉中顯示最后修改的日期和時間。

如果要在單元格中顯示最后修改時間，可用下面的自定義函數(shù)，方法是在VBA編輯器中單擊菜單“插入→模塊”，在代碼窗口中輸入下面的代碼：

Function LST()
Application.Volatile
LST = Format(Now, "yyyy-mm-dd hh:mm:ss")
End Function

然后保存工作簿，在單元格中輸入公式：

=LST()

將返回最后保存的日期和時間。Application.Volatile語句將該自定義函數(shù)標(biāo)記為易失性函數(shù)，其作用是當(dāng)任意單元格進行計算時，該自定義函數(shù)都將重新進行計算。