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

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

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

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

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。