Excel VBA 머리글/바닥 글 - "Enter"추가

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 

최종 하위

Answer 1

당신이

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