워크 시트를 인쇄 할 때 Excel에서 인쇄물의 머리글이나 바닥 글에 다양한 항목을 포함 할 수 있습니다. 포함 할 수있는 항목 중 하나는 인쇄중인 페이지의 페이지 번호입니다. 이 페이지 번호는 매우 평범합니다. 이것은 1, 2, 3 등과 같이 인쇄되는 페이지의 아랍어 값입니다.

어떤 사람들은 페이지 번호 (1, 2, 3) 대신 페이지 문자 (A, B, C)를 인쇄하는 방법을 갈망 할 수 있습니다. Excel에서이를 수행하는 본질적인 방법은 없습니다. 그러나 페이지와 연결되어야하는 문자를 파악하는 매크로를 개발 한 다음 바닥 글에 해당 문자를 사용할 수 있습니다. 다음 매크로는이를 수행합니다.

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

먼저 매크로는 페이지 번호에 해당하는 문자를 파악하여 배열에 넣습니다. 이 경우 최대 702 페이지의 글자가 계산되며 이는 모든 인쇄 작업에 충분합니다. 문자는 A에서 Z, AA에서 AZ, BA에서 BZ, ZA에서 ZZ까지입니다.

그런 다음 iPages는 워크 시트의 페이지 수로 설정됩니다. 마지막으로 각 페이지가 개별적으로 인쇄되며 페이지 문자는 워크 시트의 중앙 바닥 글에 배치됩니다. 페이지 문자를 다른 위치에 넣으려면 .CenterFooter 속성 대신 .LeftFooter 또는 .RightFooter를 사용하십시오. (원하는 경우 .LeftHeader, .CenterHeader 및 .RightHeader를 사용할 수도 있습니다.)

_ 참고 : _

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

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

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

이 팁 (2126)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Changing_Page_Number_Format [페이지 번호 형식 변경].