Excel의 머리글 / 바닥 글에 셀 값을 넣는 방법은 무엇입니까?

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

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

VBA 코드가있는 모든 워크 시트의 머리글 또는 바닥 글에 셀 값 입력

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

현재 워크 시트의 머리글 또는 바닥 글에 셀 내용을 배치하려는 경우 다음 VBA 코드가 도움이 될 수 있습니다. 다음 단계를 따르십시오.

1. 셀 값과 함께 herder 또는 footer를 삽입하려는 워크 시트를 활성화 한 다음 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

2.딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 모듈 창에 다음 코드를 붙여 넣습니다.

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 이 코드를 실행하려면 해당 내용을 헤더에 넣을 셀을 선택하라는 대화 상자가 나타납니다. doc-insert-cell-value-to-header1

4. 그런 다음 OK,이 지정된 셀 값이 현재 워크 시트 왼쪽 머리글에 삽입되었습니다. 클릭하여 헤더를 볼 수 있습니다. 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄. 스크린 샷보기 : doc-insert-cell-value-to-header1

배송 시 요청 사항:

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. 오른쪽 머리글 / 바닥 글 또는 가운데 머리글 / 바닥 글에 셀 값을 삽입하기 위해 위 코드를 적용 할 수도 있습니다. 왼쪽 헤더 / 왼쪽 바닥글 + 오른쪽 헤더 / 오른쪽 바닥글 or 센터헤더 / 중앙 바닥글 코드에서.

때로는 선택한 셀의 내용이 포함 된 머리글 또는 바닥 글을 여는 통합 문서의 모든 워크 시트에 삽입하려는 경우 위 코드를 사용하여 여러 번 반복해야합니다. 이 경우 다음 VBA 코드는 전체 통합 문서의 herder 또는 footer에 한 번에 셀 콘텐츠를 추가 할 수 있습니다.

1. 셀 값과 함께 herder 또는 footer를 삽입하려는 통합 문서를 활성화 한 다음 ALT + F11 키가 열립니다. Microsoft Visual Basic for Applications 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창.

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 키를 눌러이 코드를 실행하면 전체 통합 문서의 바닥 글에 해당 내용을 넣을 셀을 선택하라는 대화 상자가 나타납니다.

doc-insert-cell-value-to-header1

4. 그런 다음 OK,이 선택된 셀 값이 모든 워크 시트의 왼쪽 바닥 글에 추가되었습니다. 클릭하여 바닥 글을 볼 수 있습니다. 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 인쇄. 스크린 샷보기 :

doc-insert-cell-value-to-header1

배송 시 요청 사항:

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

2. 대체 RightHeader / Footer or CenterHeader / Footer ...에 대한 LeftHeader / Footer 머리글 또는 바닥 글의 위치를 다르게 지정하려면 위 코드에서.

워크 시트 / 통합 문서 이름, 통합 문서 경로 등과 같은 파일러 정보를 머리글 또는 바닥 글에 삽입하려면 다음을 사용할 수 있습니다. Excel 용 Kutools의 통합 문서 정보 삽입 Excel 용 Kutools를 설치 한 경우 유틸리티.

Excel 용 Kutools, 이상과 300 편리한 기능으로 작업이 더 쉬워집니다.
무료 다운로드 완전한 기능을 갖춘 무료 30 일

후 무료 설치 Excel 용 Kutools는 다음과 같이하십시오.

1. 클릭 쿠툴즈 플러스 > 통합 문서 > 통합 문서 정보 삽입. 스크린 샷보기 :
문서 1

2. 에서 통합 문서 정보 삽입 대화 상자에서 삽입해야하는 정보를 확인하십시오. 정보 섹션 및 확인 헤더 or 바닥 글 당신이 원하는대로.

팁 : 머리글 또는 바닥 글의 세 위치 (중앙, 왼쪽 또는 오른쪽)에 정보를 삽입 할 수 있습니다.
문서 삽입 통합 문서 경로 1

3. 클릭 Ok. 그런 다음 갈 수 있습니다. 보기 > 페이지 레이아웃 헤더를 봅니다.
문서 3

통합 문서 정보 삽입을 사용하면 파일 정보를 셀 또는 셀 범위에 삽입 할 수도 있습니다. 이 유틸리티에 대한 자세한 내용을 보려면 여기를 클릭하십시오.

팁.통합 문서를 여러 통합 문서 / pdf 파일 또는 csv 파일로 빠르게 분할하려면 Excel 용 Kutools를 사용해보십시오. 통합 문서 분할 다음 스크린 샷과 같이. 제한없이 완전한 기능입니다 30 일, 지금 다운로드하여 무료 평가판을 받으십시오.

Excel에서 머리글, 바닥 글 및 머리글 그림을 삽입하고 삭제하는 방법은 무엇입니까?

최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.

자세히보기 ... 무료 다운로드... 매수...

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...

코멘트 (9)

아직 평가가 없습니다. 가장 먼저 평가하세요!

제프리 헐버트

약 7 년 전

#13641

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

활성 급여 날짜 범위를 여러 시트에 삽입해야 했습니다. 사용자는 급여 날짜 시트를 열고 날짜 범위를 입력한 다음 인쇄하기 전에 통합 문서의 모든 시트를 업데이트합니다. 다음은 2010 호환 코드가 조금 더 적은 범위에 여러 셀을 삽입할 수 있는 방법입니다. Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'급여 날짜'!A1").Value & vbCr & Range("'급여 날짜'!A2").Value Next End Sub

사이드 모하마디

약 7 년 전

#13803

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

헤더에 XNUMX개의 셀을 삽입하고 싶습니다. 이 VB는 하나의 셀에만 사용됩니다. 어떻게하니. 감사해요

리드환 사이드 모하마디

약 4 년 전

#13804

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

rht XNUMX개 셀의 값을 단일 셀로 연결한 다음 단일 셀을 헤더로 사용할 수 있습니다.

맑은

약 7 년 전

#14786

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요, 적용된 필터를 고려한 셀 값을 추가할 수 있는 방법이 있습니까? 예를 들어... A1 = 월요일 A2 = 화요일 A3 = 수요일. VBA 코드를 사용하여 셀 A1을 표시하면 처음에는 작동하지만 요일에 필터를 적용하면 "상위" 셀 값이 더 이상 A1이 아닙니다. 변수를 선택하는 방법이 있습니까? 많은 감사,

미키

약 3 년 전

#29670

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

"VBA 코드: 모든 워크시트의 헤더에 지정된 셀 값 입력"을 사용할 때 값을 배치하고 싶습니다. Tahoma, 굵게, 글꼴 크기 12.
이것을 코드에 어떻게 추가할 수 있습니까?

대니

약 3 년 전

#30000

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕,

이것은 한 번만 작동하는 것으로 보입니다.
셀 값이 변경되면 어떻게 될까요?
셀 값이 변경되면 헤더가 변경되도록 셀을 연결하는 방법이 있습니까?

XNUMX장의 시트가 있는 통합 문서가 있습니다.

"삭제 시트"라는 레이블이 붙은 시트 1 - 주문에 대해 구개화할 정보가 포함된 시트를 창고로 보냅니다.
"OA"로 표시된 시트 2 - 헤더에 있어야 하는 주문 번호를 포함하여 첫 번째 시트에서 대부분의 데이터를 가져오는 고객에 대한 내 주문 확인. 그래서 첫 번째 작업 시트("삭제 시트")의 (C5)에서 값을 가져오는 주문 번호(F7)를 사용하여 이 페이지의 셀에 헤더를 연결하려고 합니다.
"Deletion Sheet"의 (C3)에서 가져온 이 시트의 값(F5)을 포함하는 헤더가 필요한 첫 번째 시트에서 대부분의 동일한 정보를 가져오는 "Invoice - Invoice"라는 레이블이 붙은 시트 7

닐

약 4 개월 전

#40034

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이것은 동적 링크를 만드는 것으로 보이지 않습니다. 즉, 셀 값이 변경될 때 헤더에 입력된 값이 변경되지 않습니다. 복사/붙여넣기가 동일한 작업을 수행할 때 VBA 코드의 목적은 무엇입니까?

스카이양 닐

약 4 개월 전

#40106

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 닐
셀 값을 머리글이나 바닥글에 동적으로 연결하려면 다음 VBA 코드를 적용하십시오.

주의 사항: 일반 모듈이 아닌 시트 코드에 코드를 삽입해야 합니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub

시도해보십시오. 도움이 되길 바랍니다.

보고서

DJ 스카이양

약 1 개월 전

#42219

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

막수냐 바가이마나?

아직 코멘트가 없습니다

여러분의 의견을 남겨

게스트로 게시

로그인

이름 (필수)

이메일 (필수)

이 게시물 평가 :

다시 쓰기

0 등장 인물

나는에 동의 약관 및 조건