excel - Excel VBA - 将范围指定为页眉

Question

我想从我的 VBA 代码中指定一个范围作为页眉。

但是当我这样做时

ActiveSheet.PageSetup.LeftHeader = HeaderSheet.Range("A1:L2").Value

我只取第一个单元格，即 HeaderSheet 中的 A1 作为页眉，而忽略其余部分。它也不适用于页眉中的边框。

请问有什么解决方法吗？

Answer 1

因此，“左页眉”将是描述工作表或报表的三个页眉的最左侧页眉。通常它会有诸如报告标题、作者、报告日期等值。

您确定您不是要指示行或列标题吗？

下面，PrintTitleRows 指定第 1 行和第 2 行用作在顶部重复的行。或者，要在左侧重复的列只是“A”列。

Sub example()

    'ActiveSheet.PageSetup.LeftHeader = HeaderSheet.Range("A1:L2").Value

    With ActiveSheet.PageSetup
       .PrintTitleRows = "$1:$2"
       .PrintTitleColumns = "$A:$A"
    End With
End Sub

如果您确实打算将单元格 A1-L2 的内容放入最左侧的标题部分，那么您将不得不对单元格进行串联，我相信......即，

With ActiveSheet.PageSetup
    .LeftHeader = Range("a1").Value & " " & Range("b1").Value & " " & Range("a2").Value & " " & Range("b2").Value
End With