我试图做一个简单的宏来更改显示在右页眉的日期为“明天的”日期.当我尝试设置我的页眉和页脚的默认格式为20，然后运行宏，Excel更改字体大小为11.但是，当我在VBA代码中指定更改为20，Excel增加字体大小为409！我使用的当前脚本如下：
Sub tomorrow()
Dim today As Date
Dim tomorrow As Date
today = Date
tomorrow = Date + 1
With ActiveSheet.PageSetup
.DifferentFirstPageHeaderFooter = False
.RightHeader = "&""Calibri""&20" & Format(tomorrow, "dd/mm/yyyy")
End With
End Sub有谁能指出我哪里出错了吗？我只需要字体大小为20，看起来很简单，但我被难住了……提前感谢！
1条答案
按热度按时间wecizke31#
"&""Calibri""&20" & Format(tomorrow, "dd/mm/yyyy")演变为&"Calibri"&2020.04.2020（当然取决于当前日期）。因此，字体大小将被读取为2020，并且由于Excel中的最大字体大小为409，您将获得该字体大小作为标题的字体大小。为了防止日期与字体大小直接连接，您应该简单地添加一个空格-这不会造成任何伤害，因为右标题无论如何都是右对齐的（如果您手动设置标题，这正是Excel所做的）。