0

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

但是当我这样做时

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

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

请问有什么解决方法吗?

4

1 回答 1

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
于 2013-04-07T20:25:54.553 回答