Excel에는 아라비아 숫자를 로마 숫자로 변환 할 수있는 워크 시트 함수 (ROMAN)가 포함되어 있습니다. 인쇄물에 로마 숫자를 페이지 번호로 인쇄 할 수있는 기능이 있는지 궁금 할 것입니다.

이를 수행 할 수있는 기본 제공 기능은 없지만 트릭을 수행 할 매크로를 만들 수 있습니다. 다음 매크로를 고려하십시오.

Sub RomanPageNums()

Dim iPages As Integer     Dim J As Integer

' 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 = _               Application.WorksheetFunction.Roman(J)

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

이 매크로는 먼저 인쇄물에있는 페이지 수를 파악하고 값을 iPages 변수에 할당합니다. 그런 다음 각 페이지를 단계별로 진행하여 각 페이지를 인쇄하기 전에 바닥 글 중앙 부분의 페이지 번호를 변경합니다. 페이지 번호는 ROMAN 워크 시트 기능을 사용하여 현재 페이지 번호 (J)를 로마 숫자로 변환하여 설정합니다.

바닥 글의 다른 부분에 로마 숫자를 표시하려면 .CenterFooter 속성을 .LeftFooter 또는 .RightFooter로 바꿀 수 있습니다. 원하는 경우 .LeftHeader, .CenterHeader 또는 .RightHeader를 사용할 수도 있습니다.

RomanPageNums 매크로의 코드는 모든 최신 버전의 Excel에서 작동합니다. Excel 2000 이상을 사용하는 경우 바닥 글을 설정하는 실제 줄을 다음 코드로 바꿀 수도 있습니다.

.PageSetup.CenterFooter = Application.Roman(J)

_ 참고 : _

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

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

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

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

link : / excelribbon-Roman_Numerals_for_Page_Numbers [페이지 번호에 대한 로마 숫자].