Excel VBA页眉/页脚 – 添加“Enter”
我制作了一个Excelmacros，可以将表格中的单元格信息放入页眉和页脚中。 我已经从两个单独的单元格中获取信息，并将它们放在同一个页脚中，但我希望它们在页脚的不同行上。
我正在尝试使用Sendkeys，但似乎只在活动工作表中工作，而我正在从活动工作表中拉出单元格，并将其放入其他工作表的页眉/页脚中。
有没有办法让“input”值进入页眉/页脚？ 我的代码如下，我想在单独的行上有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 结束小组
您可以使用chr(10)插入换行符
ws.PageSetup.CenterFooter = "&""Futura-Normal,Bold""&14" & ActiveSheet.Range("B6") & ", " & "&""Futura-Normal,Bold""&14" & chr(10) & ActiveSheet.Range("B7").Value