_ 워크 시트의 머리글 / 바닥 글에 파일 이름 / 파일 경로 또는 현재 날짜 또는 페이지 번호와 같은 특정 정보를 삽입하려면 아래 코드를 사용하면됩니다. 하나의 워크 시트 인 경우 수동으로 수행 할 수 있지만이 정보를 입력해야하는 통합 문서의 모든 시트 또는 여러 시트 인 경우 간단한 vba 매크로 / 코드를 사용하여 수행 할 수 있습니다 ._

이 샘플 매크로는 활성 통합 문서의 모든 워크 시트에 머리글 / 바닥 글을 삽입합니다. 또한 통합 문서의 전체 경로를 삽입합니다.

Option Explicit

Sub InsertHeaderFooter()

Dim wsAs Worksheet

Application.ScreenUpdating = False

Each wsInThisWorkbook.Worksheets

With ws.PageSetup

.LeftHeader = “Company Name:”

.CenterHeader = “Page &P of &N”

.RightHeader = “Printed &D &T”

.LeftFooter = “Path : “ &ActiveWorkbook.Path

.CenterFooter = “Workbook Name: & F”

.RightFooter = “Sheet: &A”

End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

이 코드를 통합 문서에 복사하려면 키보드에서 Alt + F11을 누릅니다.

그런 다음 왼쪽에 Microsoft Excel 개체가 표시됩니다. 마우스 오른쪽 버튼을 클릭하고 삽입을 선택합니다. 그런 다음 모듈을 클릭하고이 코드를 오른쪽의 코드 창에 복사합니다.

코드의 각 부분을 분해 해 보겠습니다. 변수를 선언하는 일반적인 Dim 문으로 시작합니다.

이 경우 워크 시트에 대해 ws라는 변수가 하나만 있습니다. 그런 다음 화면 업데이트를 비활성화합니다.

이제 FOR 루프에서 매크로가 포함 된 통합 문서의 각 워크 시트를 반복합니다. 그리고 페이지 설정에서 각 매개 변수를 설정합니다. & P, & N, & D, & T, & F 및 & A는 머리글 및 바닥 글에 적용 할 수있는 특정 형식 코드입니다. & P는 페이지 번호를 인쇄합니다. & N은 문서의 총 페이지 수를 인쇄합니다. & D는 현재 날짜를 인쇄합니다. & T는 현재 시간을 인쇄합니다. & F는 문서의 이름을 인쇄하고 & A는 통합 문서 탭의 이름을 인쇄합니다.

마지막에 워크 시트를 아무것도 설정하지 않고 개체를 해제하고 화면 업데이트를 활성화합니다.

여기에 2 개의 사진이 있습니다. 1 ^ st ^는 헤더를 보여주고 2 ^ nd ^는 매크로가 실행 된 후의 바닥 글을 보여줍니다.

img1

헤더에는 회사 이름이라는 레이블이 있습니다. 이름은 셀에 연결하지 않았거나 회사 이름에 대한 텍스트를 입력하지 않았기 때문에 아직 입력되지 않았습니다. 코드 또는 엑셀 시트에 아무 것도 입력하고 참조하면 이름이 여기에 입력되어 채워집니다.

Page # of 0은 빈 파일에서이 코드를 실행했기 때문에 현재 파일에 0 페이지가 있음을 보여줍니다. 데이터가 포함 된 파일에서이 코드를 실행하면 페이지 번호가 표시됩니다.

Printed <Date> <Time>은 “Printed”텍스트와 함께 매크로가 실행 된 날짜 및 시간을 제공합니다.

img2

바닥 글에서 경로 레이블은 현재 파일의 경로를 보여줍니다.

파일 이름은 Book1.xlsx이며 현재 저장되지 않은 파일입니다. 따라서 경로 레이블에 대해 표시되는 경로가 없습니다.

시트 번호는 바닥 글 오른쪽에 채워집니다.

_ 블로그가 마음에 들면 Facebook에서 친구들과 공유하세요. Twitter와 Facebook에서도 팔로우 할 수 있습니다 ._

_ 우리는 여러분의 의견을 듣고 싶습니다. 우리가 작업을 개선, 보완 또는 혁신하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]_로 문의 해주세요