如何在Excel工作表中添加最后保存時間

如何在Excel工作表中添加最后保存時間

有時我們在Excel中制作的工作表需要反復修改，并保存為多個版本。修改的次數多了，很容易混淆。如果能把工作簿的最后保存日期和時間顯示在工作表的某個單元格或頁眉頁腳中，查看起來就非常方便了。用VBA代碼就能夠輕松地實現這一點，方法如下：

1.按Alt+F11，打開VBA編輯器。

2.在“工程”窗口中，雙擊“ThisWorkBook”，在右側的代碼窗口中輸入下列代碼：

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ActiveSheet.Range("G3").Value = Format(Now, "yyyy年m月d日 hh:mm:ss")End Sub

說明：上述代碼將工作簿保存的日期和時間保存在活動工作表的“G3”單元格中，需根據實際進行修改。如果要將保存的時間放到頁眉或頁腳中，可以改為類似下面的代碼，下例中將工作簿的保存日期和時間放到頁腳右側：

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)ActiveSheet.PageSetup.RightFooter = "修改時間：" & Format(Now, "yyyy年m月d日 hh:mm:ss")End Sub

3.關閉VBA編輯器，回到Excel界面中。以后每次單擊工具欄中的“保存”按鈕，G3單元格或頁眉頁腳中就會顯示當前保存的日期和時間。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。