Excel에서 머리글/바닥글에 셀 값을 넣으려면 어떻게 해야 하나요?

파일 경로, 파일 이름, 현재 날짜 또는 기타 정보를 포함하는 머리글이나 바닥글을 Excel의 기능으로 쉽게 삽입할 수 있습니다. 하지만 때때로 Excel에서 셀 값을 머리글이나 바닥글로 사용하고 싶을 수 있습니다. 워크북의 머리글이나 바닥글에 셀 내용을 어떻게 넣을 수 있을까요?

VBA 코드를 사용하여 워크시트의 머리글 또는 바닥글에 셀 값 넣기

VBA 코드를 사용하여 모든 워크시트의 머리글 또는 바닥글에 셀 값 넣기

Kutools for Excel을 사용하여 파일 정보를 머리글/바닥글에 삽입하기

VBA 코드를 사용하여 워크시트의 머리글 또는 바닥글에 셀 값 넣기

현재 워크시트의 머리글이나 바닥글에 셀 내용을 배치하려는 경우 다음 VBA 코드가 도움이 될 수 있습니다. 아래 단계를 따라 진행해 주세요:

1. 셀 값을 사용하여 머리글이나 바닥글을 삽입하려는 워크시트를 활성화한 후 ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. Insert > Module을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 특정 셀 값을 워크시트의 머리글에 넣기

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. 그런 다음 코드를 실행하기 위해 F5 키를 누르면 머리글에 삽입할 셀을 선택하라는 대화 상자가 나타납니다.

4그리고 나서 확인버튼을 클릭하면 지정된 셀 값이 현재 워크시트의 왼쪽 머리글에 삽입됩니다. 머리글은 파일 > 인쇄를 클릭하여 확인할 수 있습니다. 파일 > 인쇄아래 스크린샷을 참조하세요:

참고:

1. 활성 워크시트의 바닥글에 셀 내용을 사용하려면 다음 코드를 적용할 수 있습니다:

VBA 코드: 특정 셀 값을 워크시트의 바닥글에 넣기

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. 위의 코드를 사용하여 오른쪽 머리글/바닥글 또는 가운데 머리글/바닥글에 셀 값을 삽입할 수도 있습니다. 코드에서 LeftHeader / LeftFooter를 RightHeader / RightFooter 또는 CenterHeader / CenterFooter로 교체하기만 하면 됩니다.

VBA 코드를 사용하여 모든 워크시트의 머리글 또는 바닥글에 셀 값 넣기

선택한 셀의 내용을 머리글 또는 바닥글로 삽입하여 열려 있는 워크북의 모든 워크시트에 추가하려는 경우 위의 코드를 반복적으로 실행해야 합니다. 이 경우 다음 VBA 코드를 사용하면 한 번에 전체 워크북의 머리글 또는 바닥글에 셀 내용을 추가할 수 있습니다.

1. 셀 값을 사용하여 머리글이나 바닥글을 삽입하려는 워크북을 활성화한 후 ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. Insert > Module을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 모든 워크시트의 바닥글에 특정 셀 값 넣기

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. 그런 다음 코드를 실행하기 위해 F5 키를 누르면 전체 워크북의 바닥글에 삽입할 셀을 선택하라는 대화 상자가 나타납니다.

4. 그리고 나서 확인 버튼을 클릭하면 선택한 셀 값이 모든 워크시트의 왼쪽 바닥글에 추가됩니다. 바닥글은 파일 > 인쇄를 클릭하여 확인할 수 있습니다. 아래 스크린샷을 참조하세요:

참고:

1. 전체 워크북의 머리글에 셀 내용을 사용하려면 다음 코드를 적용할 수 있습니다:

VBA 코드: 모든 워크시트의 머리글에 특정 셀 값 넣기

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

머리글이나 바닥글의 위치를 다르게 설정하려면 위의 코드에서 LeftHeader/Footer를 RightHeader/Footer 또는 CenterHeader/Footer로 대체합니다.

Kutools for Excel을 사용하여 파일 정보를 머리글/바닥글에 삽입하기

워크시트/워크북 이름, 워크북 경로 등을 머리글이나 바닥글에 삽입하려는 경우 Kutools for Excel의 Insert Workbook Information 유틸리티를 사용할 수 있습니다 (Kutools for Excel이 설치된 경우).

무료로 설치한 후 Kutools for Excel 아래 단계를 수행하세요:

1. 클릭 Kutools Plus > Workbook > Insert Workbook Information아래 스크린샷을 참조하세요:

2. Insert Workbook Information 대화 상자에서 정보 섹션에서 삽입하려는 정보를 선택하고 원하는 대로 머리글 또는 바닥글을 선택합니다.

팁: 머리글 또는 바닥글의 세 가지 위치(가운데, 왼쪽, 오른쪽) 중 하나에 정보를 삽입할 수 있습니다.

3. 클릭 확인그런 다음 보기 > 페이지 레이아웃 머리글을 확인할 수 있습니다.

Insert Workbook Information을 사용하면 파일 정보를 셀 또는 셀 범위에 삽입할 수도 있습니다. 이 유틸리티에 대해 자세히 알아보려면 여기를 클릭하세요.

데모: 워크북 정보를 셀/머리글/바닥글에 삽입하기

팁. 워크북을 여러 워크북/PDF 파일 또는 CSV 파일로 빠르게 분할하려면 아래 스크린샷과 같이 Kutools for Excel의 Split Workbook 기능을 사용해 보세요. 30 일 동안 제한 없이 전체 기능을 사용할 수 있으며 지금 바로 다운로드하여 무료로 사용해 보세요.

관련 기사:

Excel에서 셀/머리글/바닥글에 파일 이름 또는 경로를 삽입하려면 어떻게 해야 하나요?

Excel에서 머리글, 바닥글 및 머리글 사진을 삽입하고 삭제하려면 어떻게 해야 하나요?