在Excel 2013中，如何在打印时强制使用date格式？

我正在设置打印页脚，如下图所示。

如何强制格式为DD MMM YYYY？ 例如，

13 Oct 2015 

谢谢！

Answer 1

下面的macros可以完成这个：

 Option Explicit Private Sub UpdateFooter() ActiveSheet.PageSetup.RightFooter = Format(Now, "mmm d yyyy") End Sub 

如果在工作簿中有意义，则可以使用LeftFooter或CenterFooter来代替RightFooter 。

如果您想将页脚更新应用于工作簿中的所有工作表，则可以像这样遍历它们：

 Option Explicit Private Sub UpdateFooter() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.PageSetup.RightFooter = Format(Now, "mmm d yyyy") Next ws End Sub 

PageSetup对象的完整列表可以在这里find。