Джеки спросил, есть ли способ включить начальные нули в номера страниц, помещенные в нижний колонтитул. Ей нужно, чтобы номера ее страниц всегда состояли из пяти символов, с ведущими нулями, если необходимо, чтобы заполнить длину. Таким образом, номера страниц будут 00001, 00002 и т. Д.

В Excel не очень хорошее форматирование номеров страниц. Одно из решений (возможно, наиболее жизнеспособное) — распечатывать каждую страницу рабочего листа по одной, меняя номер страницы по мере продвижения. Этот макрос использует такой подход:

Sub FormattedPageNums()

Dim iPages As Integer     Dim J As Integer     Dim sFormat As String

sFormat = "00000"

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



With ActiveSheet         For J = 1 To iPages             .PageSetup.CenterFooter = Format(J, sFormat)

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

Макрос определяет, сколько страниц находится во всей распечатке, а затем просматривает каждую страницу этой распечатки. Перед печатью каждой страницы по отдельности свойство .CenterFooter устанавливается равным отформатированной строке, которая представляет номер страницы с ведущими нулями.

Вы можете изменить макрос по своему желанию, чтобы в нижний колонтитул помещалась различная информация. Вы также можете изменить изменяемую область нижнего колонтитула, используя .LeftFooter или .RightFooter вместо .CenterFooter.

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

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

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

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

Этот совет (5655) применим к Microsoft Excel 2007, 2010, 2013 и 2016.

Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Leading_Zeros_in_Page_Numbers [ведущие нули в номерах страниц].