页眉页脚格式和公式

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

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

保单date2014 | 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 

它用于获取两行数据，但我无法格式化它。 如果有更好的select，我不会拘泥于这个公式。

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是红色的，希望其余的说明和可调。