Question

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

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

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是红色，希望其余部分不言自明且可调整。

页眉页脚格式和公式

1 个答案: