Excel VBA 页眉/页脚 - 添加“Enter”答案

【问题标题】：Excel VBA Header/Footer - Adding an "Enter"Excel VBA 页眉/页脚 - 添加“Enter”
【发布时间】：2016-08-05 20:25:45
【问题描述】：

我制作了一个 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

结束子

【问题讨论】：

标签： vba excel

【解决方案1】：

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

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

【讨论】：