Leonid는 페이지의 머리글 또는 바닥 글에 배경색을 설정하는 방법이 있는지 물었습니다. 간단한 대답은 Excel에는 이러한 기능이 없다는 것입니다. 그러나 문제를 해결하는 방법에는 몇 가지가 있습니다. 예를 들어 Excel 2002 또는 Excel 2003을 사용하는 경우 머리글 또는 바닥 글에 그래픽을 추가 할 수 있습니다. 올바른 그래픽을 사용하면 실제로 색상이 포함 된 그래픽 일 때 머리글과 바닥 글에 색상이 포함 된 것처럼 보이게 할 수 있습니다.

또 다른 옵션은 “가짜”머리글과 바닥 글을 만드는 것입니다. 다른 색 머리글 만 있으면 워크 시트의 처음 두 행을 머리글로 사용할 수 있습니다. 이 행은 행 색상 설정을 포함하여 원하는대로 형식을 지정할 수 있습니다. 그런 다음 Excel에서 인쇄물의 모든 페이지 맨 위에 해당 행을 반복하도록 지시 할 수 있습니다 (이를 위해 페이지 설정 대화 상자 사용).

Excel에는 각 페이지의 맨 아래에 행을 반복 할 수있는 기능이 포함되어 있지 않기 때문에 바닥 글 영역에 대해 행을 반복하면 문제가 더 커집니다. 머리글과 바닥 글에 대한 행을 추가하는 매크로를 만들 수도 있지만 이로 인해 워크 시트가 변경됩니다. 가짜 머리글과 바닥 글에 행을 추가해야합니다.

예를 들어 다음 매크로를 고려하십시오. 인쇄물의 왼쪽과 오른쪽에 1 인치 테두리를 원하고 페이지 당 46 행만 인쇄하려고한다고 가정합니다. 여백을 설정 한 다음 워크 시트를 단계별로 진행하여 필요에 따라 가짜 머리글 및 바닥 글 행을 추가합니다. (매크로가 워크 시트의 디자인을 조정하므로 매크로를 실행하기 전에 워크 시트를 저장해야합니다.)

Sub FakeHeaderFooter()

Dim LHeader As String     Dim CHeader As String     Dim LFooter As String     Dim CFooter As String     Dim CBottom As Integer     Dim CRow As Integer     Dim PageSize As Integer          LHeader = "Top Left"

CHeader = "Top Center"

LFooter = "Bottom Left"

CFooter = "Bottom Center"

PageSize = 46

With ActiveSheet.PageSetup         .PrintTitleRows = ""

.PrintTitleColumns = ""

.PrintArea = ""

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(1)

.RightMargin = Application.InchesToPoints(1)

.TopMargin = Application.InchesToPoints(0)

.BottomMargin = Application.InchesToPoints(0)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PrintHeadings = False         .Orientation = xlPortrait     End With

CBottom = Range("A16000").End(xlUp).Row

CRow = 1     Do Until CRow > CBottom         If CRow Mod PageSize = 1 Then             Rows(CRow).Select             Selection.Insert Shift:=xlDown             Selection.Insert Shift:=xlDown             CBottom = CBottom + 2

Cells(CRow, 1).Value = LHeader             Cells(CRow, 4).Value = CHeader             Range(Cells(CRow, 1), _               Cells(CRow, 8)).Interior.ColorIndex = 34             Range(Cells(CRow + 1, 1), _               Cells(CRow + 1, 8)).Interior.ColorIndex = xlNone             CRow = CRow + 2         ElseIf CRow Mod PageSize = PageSize - 1 Then             Rows(CRow).Select             Selection.Insert Shift:=xlDown             Selection.Insert Shift:=xlDown             CBottom = CBottom + 2

Cells(CRow + 1, 1).Value = LFooter             Cells(CRow + 1, 4).Value = CFooter             Range(Cells(CRow + 1, 1), _               Cells(CRow + 1, 8)).Interior.ColorIndex = 34             CRow = CRow + 2         Else             CRow = CRow + 1         End If     Loop

LastPageNumber = PageNumber + 1     LastRow = LastPageNumber * PageSize     If CBottom <> LastRow Then             Range(Cells(LastRow, 1), _               Cells(LastRow, 8)).Interior.ColorIndex = 34             Cells(LastRow, 1).Value = LFooter             Cells(LastRow, 4).Value = CFooter     End If

CBottom = Range("A16000").End(xlUp).Row

CRow = 2     Do Until CRow > CBottom         If CRow Mod PageSize = 1 Then             Cells(CRow, 1).PageBreak = xlManual         End If         CRow = CRow + 1     Loop End Sub

페이지 당 줄 수를 변경하려면 PageSize 변수에 할당 된 값을 변경하면됩니다. LHeader, CHeader, LFooter 및 CFooter 변수에 할당 된 내용을 변경하여 “머리글”및 “바닥 글”영역에 나타나는 내용을 변경할 수도 있습니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3056)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.