页眉页脚格式和公式答案

【问题标题】：Header Footer Format and formula页眉页脚格式和公式
【发布时间】：2015-10-30 03:36:20
【问题描述】：

我想引用另一个工作表的单元格并将其放在中心标题中并将其格式化为特定的字体和大小。接下来，我想采用 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

它适用于获取两行数据，但我无法格式化它。如果有更好的选择，我不会坚持使用这个公式。

【问题讨论】：

进行这种格式化的一个好方法是录制一个宏并进行所需的格式化，然后查看代码并根据需要进行修改。
那么，使用我上面的代码获取头部信息，然后记录宏进行格式化？
那行得通。我会在上面运行您的代码以将数据放在正确的位置。然后我会录制一个宏并放入我想要的格式。然后，检查代码并在您取出宏中的 .selects 后将其添加到现有代码中。

标签： vba excel header format

【解决方案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 是红色，希望其余的不言自明和可调。

【讨论】：

工作得很好，正是我想要的。非常感谢！