☰

새 워크시트를 포함하여 모든 워크시트에 동일한 머리글/바닥글을 설정하려면 어떻게 해야 합니까?

tag-icon • tag-icon microsoft-excel microsoft-excel-2007
새 워크시트를 포함하여 모든 워크시트에 동일한 머리글/바닥글을 설정하려면 어떻게 해야 합니까?

동일한 헤더를 적용한 모든 Google 히트에는 모든 시트를 강조 표시하고 헤더를 설정하라고 나와 있습니다. 내가 추가한 새 시트에도 항상 동일한 헤더가 표시되도록 하려면 어떻게 해야 합니까?

답변1

첫 번째 시도로 다음 이벤트를 사용하겠습니다.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   sh.range("A1").value = "xxx"
End Sub

이 매크로를 모듈이나 클래스가 아닌 워크시트가 아닌 통합 문서에 추가해야 합니다.

또 다른 방법은 이를 위해 설계된 추가 기능을 사용하는 것입니다. 이는 모든 통합 문서에서 이 동작을 수행하기 위한 것입니다.

답변2

다음은 첫 번째 시트의 머리글과 바닥글을 새 시트로 복사하는 VBA 코드입니다. 이를 ThisWorkbookVBA 탐색기( Alt+ F11)에 삽입하고 저장합니다. 새 시트를 추가하면 실행됩니다.

이라는 네 번째 줄을 조정하여 Sheet1첫 번째 시트의 이름을 지정합니다.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim Ws As Worksheet
   'Change "Sheet1" below to the name of sheet being copied
   Set Setup = Worksheets("Sheet1").PageSetup
    With ActiveSheet.PageSetup
     .LeftHeader = Setup.LeftHeader
     .CenterHeader = Setup.CenterHeader
     .RightHeader = Setup.RightHeader
     .LeftFooter = Setup.LeftFooter
     .CenterFooter = Setup.CenterFooter
     .RightFooter = Setup.RightFooter
     End With
End Sub

수동으로 실행하려면 첫 번째 줄을 다음으로 변경하십시오.

Sub CopyHeaderFooter()

그런 다음 원할 때 실행할 수 있다는 이름의 실행 가능한 매크로( Alt+ F8) 로 표시됩니다 .CopyHeaderFooter

관련 정보