将当前日期添加到工作表的标题很容易-Excel提供了一个对话框,您可以在其中指定日期的位置并使用’&[date]’编码实际插入日期。但是,如果要在标题中插入昨天的日期或明天的日期怎么办?

那不是那么容易。实际上,不使用宏就无法做到这一点。也许最灵活的方法是编写宏,以便它在打印工作表之前更新日期,如下所示:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.CenterHeader = _     Format(Date - 1, "mmmm d, yyyy")

End Sub

宏将昨天的日期放在标题的中心;您可以轻松更改其他可用标题位置之一(LeftHeader或RightHeader)的CenterHeader属性。您还可以通过将“-1”更改为“ +1”来更改宏以插入明天的日期。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(3377)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: