David는 전문 사회를위한 선거를 관리하고 있으며 유권자 명단은 워크 시트입니다. 약 1,200 명의 유권자가 있으므로 인쇄물은 20 페이지가 넘습니다. David는 페이지 번호가 포함 된 바닥 글을 가지고 있습니다. 도움이되지만 각 페이지의 머리글에 페이지의 이름과 페이지의 성을 포함 할 수 있다면 좋을 것입니다.

Excel에는이를 수행하는 기본 방법이 없습니다. 그러나 Word에서 수행하는 것은 상대적으로 스냅이므로 한 가지 해결책은 정렬 된 이름을 Word 문서에 붙여 넣은 다음 이름을 표시하는 원하는 헤더를 추가하는 것입니다.

이 방법이 작동 할 수 있지만 Word 버전의 목록이 항상 Excel 버전의 목록과 동기화되고 그 반대의 경우도 마찬가지인지 확인하는 것이 어렵습니다.

Excel에서 단일 버전의 투표자 목록을 유지하기로 결정한 경우 문제에 접근하는 가장 좋은 방법은 매크로를 사용하여 머리글에 성과 이름을 삽입하는 것입니다. 이러한 매크로의 코드는 워크 시트의 데이터 레이아웃에 맞게 조정되어야합니다. 다음 매크로는 이름이 A ~ C 열에 있고 성 (헤더에 사용하려는 이름)이 C 열에 있다고 가정합니다.

Sub PrintNamesInHeader()

Dim iPages As Integer     Dim iPage As Integer     Dim iHorPgs As Integer     Dim iHP As Integer     Dim iHPNext As Integer     Dim iCol As Integer     Dim iColLast As Integer     Dim lRow As Long     Dim lRowLast As Long     Dim sPrtArea As String

iCol = 1        'Col A     iColLast = 3    'Col C     With ActiveSheet         iPages = ExecuteExcel4Macro("Get.Document(50)")

iHorPgs = .HPageBreaks.Count + 1         sPrtArea = .PageSetup.PrintArea

For iPage = 1 To iPages             iHP = ((iPage - 1) Mod iHorPgs)

iHPNext = iHP + 1             If iHP = 0 Then                 If sPrtArea = "" Then                     lRow = 1                 Else                     lRow = .Range(sPrtArea).Cells(1).Row                 End If             Else                 lRow = .HPageBreaks(iHP).Location.Row             End If             If iHPNext > .HPageBreaks.Count Then                 lRowLast = .Cells(lRow, iColLast).End(xlDown).Row             Else                 lRowLast = .HPageBreaks(iHPNext).Location.Row - 1             End If             .PageSetup.LeftHeader = .Cells(lRow, iCol).Value & _               " - " & .Cells(lRowLast, iColLast)

.PrintOut From:=iPage, To:=iPage, preview:=True         Next     End With End Sub

매크로를 실행하면 워크 시트의 각 페이지를 단계별로 실행합니다. 페이지의 헤더가 설정되고 단일 페이지가 인쇄 된 후 다음 페이지가 검사 및 처리됩니다.

_ 참고 : _

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

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

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

이 팁 (9543)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-First_and_Last_Names_in_a_Page_Header [페이지 머리글의 성과 이름].