当前位置: 主页 > Office办公 > Excel专区 > Excel函数 > 用VBA更改页Excel眉页脚中的日期格式

用VBA更改页Excel眉页脚中的日期格式

  • 2022-10-09
  • 来源/作者: Wps Office教程网/ 菜鸟图库
  • 120 次浏览

在Excel中通过自定义页脚的方式在页脚中插入日期时,Excel默认将使用短日期格式,如“2009-10-9”,但大家通常习惯使用“2009年10月9日”这样的长日期格式。Excel没有提供直接的方法在页眉或页脚中修改日期格式。在工作量不大的情况下,可以在页眉或页脚中手工输入这种长日期格式,但如果工作簿中的工作表数量较多,逐一手工输入显得很繁琐。用下面的VBA代码可以快速在所有工作表的页脚右边插入长日期格式的当前日期:

Sub FormatDateInFooter()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
ws.PageSetup.RightFooter = "更新日期:" & Format(Date, "yyyy年m月d日")
Next ws
End Sub