Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

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

通常,当您将日期或时间插入到页眉或页脚中时, &[日期] or &[时间] 代码,日期或时间格式基于Windows控制的区域设置。 在这种情况下,您如何更改页眉或页脚中的日期或日期时间格式以适合自己的需要,如下面的屏幕截图所示?

标头1中的doc格式日期

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


箭头蓝色右气泡 使用VBA代码在页眉或页脚中指定日期或日期时间格式

在这里,我将为您介绍一些简单的VBA代码以解决Excel中的此任务,请执行以下操作:

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

标头2中的doc格式日期

2。 按住 ALT + F11 在Excel中打开键 Microsoft Visual Basic应用程序 窗口。

3。 点击 插页 > 模块,然后将以下代码粘贴到 模块 窗口。

VBA代码:在页眉或页脚中插入日期并设置其格式:

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

备注:在上面的代码中,您可以更改 中心头 左标题, 中心脚…,以及日期格式 mmmm dd,yyyy 也可以根据需要进行更改。

4。 然后按 F5 键以运行此代码,并且您指定的日期格式已立即插入到页眉或页脚中。 看截图:

标头3中的doc格式日期

窍门:如果要将自己的日期时间格式插入页眉或页脚,请应用以下代码:

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

您将得到以下结果:

标头4中的doc格式日期


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    C Harvey · 1 months ago
    How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:
    Sub Change_Format()
    ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
    End Sub
  • To post as a guest, your comment is unpublished.
    Kasra · 9 months ago
    Hi, Thank You
    Can I ask you how can I change the font and size of "Date" by VBA?
    I mean with same code that you wrote for insert date into header by VBA.
    Thanks
  • To post as a guest, your comment is unpublished.
    Paula McSorley · 1 years ago
    I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
  • To post as a guest, your comment is unpublished.
    Judy Kunz · 1 years ago
    This doesn't seem to work anymore.