Header 页脚格式和公式

Question

我想引用另一个工作表的单元格并将其放在中心 header 并将其格式化为特定的字体和大小。接下来，我想使用 Right header 并将我的报告名称作为顶部，使用特定大小的粗体字体，而下面的行具有单独的大小并且不是粗体。如下所示：

合规报告（不需要引用单元格，可以保持不变）。

保单日期 2014 | 2015 年 9 月 30 日（这因帐户而异，需要来自来源范围。）

我从这段代码开始：

Sub header()
    With Worksheets("Sheet1").PageSetup
        .RightHeader = Worksheets("Compliance Report").Range("a99") _
            & Chr(10) & Worksheets("Compliance Report").Range("a100")
        End With
End Sub

它可以在两行中获取数据，但我无法对其进行格式化。如果有更好的选择，我不会坚持使用这个公式。

Answer 1

请尝试：

Sub RHeader()
    With Worksheets("Sheet1").PageSetup
       .RightHeader = "&""Courier New,Bold""&12&KFF0000" _
       & Worksheets("Compliance Report").Range("a99") & Chr(10) _
       & "&""Courier New,Regular""&10&K000000" _
       & Worksheets("Compliance Report").Range("a100")
    End With
End Sub

10 和 12 是字体大小，KFF0000 是红色，希望其余的不言自明和可调。

Header 页脚格式和公式

Header Footer Format and formula

format

excel

vba

header