通常,Excel在页眉和页脚中使用的日期(带有[DATE]代码)基于Windows控制的区域设置。

因此,如果您的本地设置在Windows本身中以特定格式显示日期,则该格式与Excel在页眉和页脚中使用的格式相同。

如果您需要维护某种类型的系统日期格式以与办公室中的其他系统兼容,那么这可能是一个缺点,但是您需要在特定工作表的页眉或页脚中使用其他日期格式。解决此问题的唯一方法是更改​​Windows中的区域设置,或还原为使用宏来设置页眉或页脚的适当区域。

例如,假设您想将正确的标头设置为m / d / yy格式的当前日期。为此,可以使用一个非常简单的宏,例如:

Sub HeaderDate()

ActiveSheet.PageSetup.RightHeader = Format(Date, "m/d/yy")

End Sub

要使用此功能,只需运行它,然后它将指定格式的日期添加到标题的右侧部分。如果要将信息添加到页脚或页眉中的其他位置,只需将宏的RightHeader部分替换为以下之一:LeftFooter,CenterFooter,RightFooter,LeftHeader或CenterHeader。

要更改添加日期的格式,只需更改“格式”功能中使用的格式。您可以为日期使用各种模式。检查联机帮助系统以获取有关VBA中的“格式”功能的信息。

您应注意,以这种方式添加到页眉或页脚的日期不是动态的,[DATE]代码的结果也是如此。当您使用宏插入日期时,它将作为文本字符串插入。如果您以后想将日期更改为其他日期(例如当时的日期),则需要重新运行宏。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

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

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