如何为PageSetup.CenterHeader的内容设置加粗、字体等格式？

嘿，我懂你现在的处境——已经成功把表单里的文件名和长整型数字放到了页眉中间，但想给这些文本加个加粗、换个字体却不知道怎么下手对吧？其实不用费劲去“引用编辑”已设置的页眉内容，Excel的PageSetup.CenterHeader本身就支持内置格式代码，直接把这些代码和你的变量拼接成字符串再赋值就行！

先搞懂常用的格式代码 #

这些代码是Excel页眉页脚的专属语法，用它们就能快速设置样式：

• &b：切换加粗状态（前面加&b开启，后面再加&b关闭）
• &"字体名称"：指定字体，比如&"微软雅黑"或&"Arial"
• &字号：设置字号，比如&14代表14号字
• &i：切换斜体状态
• &u：切换下划线状态

举个具体的代码示例（VBA场景） #

假设你的表单里，文件名存在txtFileName文本框，长整型数字在txtLongNumber文本框，那可以这么写：

' 从表单获取输入值
Dim fileName As String
Dim longNum As Long
fileName = Me.txtFileName.Value
longNum = CLng(Me.txtLongNumber.Value)

' 拼接带格式的页眉内容：这里给文件名设置加粗+微软雅黑14号字，数字用常规12号字
Dim formattedHeader As String
formattedHeader = "&b&""微软雅黑""&14 " & fileName & "&b&""微软雅黑""&12 | 编号：" & longNum

' 应用到中间页眉
ActiveSheet.PageSetup.CenterHeader = formattedHeader

小提示 #

• 格式代码是切换式的，比如开启加粗后，后面的内容都会加粗，直到你再写一个&b关闭它
• 如果不同部分要不同样式，就把对应的格式代码放在那部分内容的前后就行
• 测试的时候可以直接在Excel的页眉设置界面手动输入格式代码预览效果，再对应到代码里

内容的提问来源于stack exchange，提问作者jiwanheo