如何在页眉或页脚中指定日期或日期时间格式？

通常，当您使用 &[Date] 或 &[Time] 代码将日期或时间插入到页眉或页脚时，日期或时间的格式是基于由 Windows 控制的区域设置。在这种情况下，如何根据自己的需求更改页眉或页脚中的日期或日期时间格式，如下截图所示？

使用VBA代码在页眉或页脚中指定日期或日期时间格式

使用VBA代码在页眉或页脚中指定日期或日期时间格式

在这里，我将为您介绍一些简单的VBA代码，帮助您在Excel中完成此任务，请按照以下步骤操作：

1. 激活您要在页眉或页脚中插入并设置日期格式的工作表，然后单击工作簿右下角的 “页面布局”按钮以启用页面布局视图，参见截图：

2. 在Excel中按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 单击“插入” > “ 模块”，然后将以下代码粘贴到模块窗口中。

VBA代码：在页眉或页脚中插入和设置日期格式：

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

注意：在上述代码中，您可以将居中页眉更改为 左对齐页眉、居中页脚等，并且日期格式 mmmm dd, yyyy 也可以根据需要进行更改。

4. 然后按 F5 键运行此代码，您指定的日期格式将立即插入到页眉或页脚中。参见截图：

提示：如果您想在页眉或页脚中插入自定义的日期时间格式，请应用以下代码：

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

您将获得以下结果：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！