vba - 页眉页脚格式和公式

Question

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

合规报告 (这不需要被单元格引用，它可以保持不变)。

保单日期 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是红色的，希望其余的不言自明且可调整。