如何在页眉或页脚中设置日期或日期时间的显示格式？
在使用 Excel 时，您可能经常需要在工作表的页眉或页脚中插入当前日期或时间，例如用于打印报告或跟踪文档修订。默认情况下，若使用 &[Date]或 &[Time]代码插入日期或时间，Excel 会根据您的 Windows 区域设置自动显示相应格式。这意味着您无法直接自定义页眉或页脚中日期或时间的显示样式（例如将“4/23/2024”改为“April 23, 2024”），因为内置功能存在这一限制。
如果您的文档需遵循特定的企业风格指南、区域偏好，或您个人对日期和时间显示方式的偏好，这种限制可能会带来不便。例如，您可能希望以“月 日， 年”的格式显示日期，或在文档页眉或页脚中同时呈现日期与时间（如“April 23, 2024 18:05”）。下图展示了工作表页眉中自定义的日期格式：
要解决此问题，您需借助 VBA（Visual Basic for Applications）以编程方式将页眉或页脚设置为您所需的日期或日期时间格式。该方法灵活高效，可轻松突破 Excel 内置页眉页脚工具的限制。
使用 VBA 代码在页眉或页脚中指定日期或设置日期时间格式
要自定义页眉或页脚中的日期，或设置专属的日期时间格式，您只需使用一段简单的 VBA 代码。当您希望摆脱系统区域设置的限制，实现灵活且个性化的显示效果时，此方案尤为适用。请按以下步骤操作：
1. 打开要在页眉或页脚中插入并自定义日期格式的工作表。建议切换到页面布局视图，以便轻松预览打印时的页眉和页脚效果。要启用页面布局视图，请单击 Excel 窗口右下角的页面布局按钮，如下图所示：
提示：虽然运行 VBA 代码时无需切换到页面布局视图，但若您希望立即看到页眉/页脚的更改效果，建议执行此操作。
2. 按下键盘上的 ALT + F11，即可打开 Microsoft Visual Basic for Applications（VBA）编辑器窗口。
3. 在 VBA 编辑器中，单击插入> 模块，即可创建一个新模块。将以下 VBA 代码复制并粘贴到模块窗口中：
VBA 代码：在页眉或页脚中插入并格式化日期：
Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub
- 此代码将自动以您选择的格式将当前日期插入页眉。您只需将 CenterHeader 更改为 LeftHeader、RightHeader、LeftFooter、CenterFooter 或 RightFooter，即可将格式化后的日期轻松移至页眉或页脚的其他位置。
- 例如，日期格式字符串（如 ）mmmm dd, yyyy，可生成“April 23, 2024”）也可自定义为任意标准的 VBA 日期格式代码，例如 dd/mm/yyyy、yyyy-mm-dd 或其他所需格式。
- 请注意日期格式字符串的语法——使用错误的格式代码可能导致错误或意外结果。请始终在页面布局视图中确认结果是否符合您的预期。
4. 输入并检查代码后，按 F5 或单击 VBA 编辑器中的“运行”按钮以执行代码。工作表页眉或页脚中的日期格式将立即更新。您可在页面布局视图中查看结果，如下图所示：
若希望工作簿在每次打开或打印时日期都能动态更新，您需重新运行 VBA 代码，或将该代码绑定至工作簿的 Open 或 BeforePrint 事件。此 VBA 方法为手动操作，因此除非重新执行代码，否则页眉/页脚中的日期内容不会自动刷新。
提示：若要在自定义格式中同时包含当前日期和时间，可使用以下 VBA 代码。当您的报告需要添加时间戳，或希望在工作表页眉或页脚中同时显示打印或导出的日期和时间时，此方法非常实用：
Sub Change_Format()
ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub
结果将以您指定的格式在页眉或页脚中同时显示日期和时间。例如，若将格式设为 "mmmm dd, yyyy hh:mm"，即可看到类似“April 23, 2024 18:05”的效果。
您将获得如下结果：
注意：保存包含 VBA 宏的工作簿时，必须将文件另存为启用宏的工作簿（.xlsm），以确保代码在日后使用中完整保留。某些 Excel 设置可能会限制宏的执行；如遇错误，请前往文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置检查宏安全设置。若页眉或页脚未按预期更新，请确认您已在正确的 worksheet 上运行宏，并确保代码引用了正确的页眉/页脚部分。
如需为不同工作表设置各自的日期格式，只需在每个相关工作表上重复此操作，并按需调整格式字符串即可。若需频繁使用，可将 VBA 代码分配给按钮或快捷键，实现快速调用。
自定义页眉或页脚日期格式的替代方法包括：
-手动在页眉或页脚中输入日期/时间（简单但静态）：您可在页面布局视图中双击页眉或页脚，手动输入任意所需格式的日期或时间。但此方法在打开或打印工作表时不会自动更新。对于静态文档，这是快速解决方案；若需更新日期，则须手动修改。
总之，当您希望在页眉或页脚中实现灵活、自定义且动态的日期或日期时间格式时，使用 VBA 是最佳选择。请务必仔细核对格式字符串，并始终正确保存宏。如果运行代码后日期格式未更新或仍显示旧内容，请再次检查宏安全设置，或尝试保存并重新打开工作簿。
借助 KUTOOLS AI 解锁 Excel 的神奇功能
- 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
- 自定义公式：生成量身定制的公式，助您优化工作流程！
- VBA 编码：轻松编写并运行 VBA 代码。
- 公式解析：轻松掌握复杂公式，一目了然！
- 文本翻译：轻松打破电子表格中的语言障碍！
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱