用VBA更改頁(yè)Excel眉頁(yè)腳中的日期格式

在Excel中通過(guò)自定義頁(yè)腳的方式在頁(yè)腳中插入日期時(shí)，Excel默認(rèn)將使用短日期格式，如“2009-10-9”，但大家通常習(xí)慣使用“2009年10月9日”這樣的長(zhǎng)日期格式。Excel沒有提供直接的方法在頁(yè)眉或頁(yè)腳中修改日期格式。在工作量不大的情況下，可以在頁(yè)眉或頁(yè)腳中手工輸入這種長(zhǎng)日期格式，但如果工作簿中的工作表數(shù)量較多，逐一手工輸入顯得很繁瑣。用下面的VBA代碼可以快速在所有工作表的頁(yè)腳右邊插入長(zhǎng)日期格式的當(dāng)前日期：

Sub FormatDateInFooter()Dim ws As WorksheetFor Each ws In ThisWorkbook.Sheetsws.PageSetup.RightFooter = "更新日期：" & Format(Date, "yyyy年m月d日")Next wsEnd Sub