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

Question

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

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

13 Oct 2015

谢谢！

Answer 1

以下宏可以实现此目的：

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对象的完整成员列表here。