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.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.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9362) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Roman_Numerals_for_Page_Numbers [римские цифры для номеров страниц].