Question

我已经创建了一个Excel宏，它将单元格中的单元格信息放入页眉和页脚。我已经从两个单独的单元格中获取信息并将它们放在同一个页脚中，但我希望它们位于页脚的不同行。

我试图使用Sendkeys，但这似乎仅在活动工作表中有效，而我这样做是为了从活动工作表中提取单元格并将它们放在其他工作表的页眉/页脚中。

有没有办法在页眉/页脚中输入“输入”值？我的代码如下，我希望B6和B7的值在单独的行上。

Sub VenueAndCompany()
 'Puts in the venue and company name
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B7").Value
    Next ws

End Sub

Answer 1

您可以使用chr(10)插入换行符

ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & chr(10) & ActiveSheet.Range("B7").Value

Excel VBA页眉/页脚 - 添加“输入”

1 个答案: