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. Затем он проходит через каждую страницу, изменяя номер страницы в центральной части нижнего колонтитула перед печатью каждой страницы. Номер страницы устанавливается путем преобразования текущего номера страницы (J) в римскую цифру с помощью функции рабочего листа ROMAN.

Если вы хотите, чтобы римские цифры отображались в других частях нижнего колонтитула, вы можете заменить свойство .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 [римские цифры для номеров страниц].