При печати рабочего листа Excel может включать различные элементы в верхний или нижний колонтитул распечатки. Одна из вещей, которые вы можете указать, — это номер печатаемой страницы. Этот номер страницы довольно банален — это арабское значение печатаемой страницы, например, 1, 2, 3 и т. Д.

Некоторые люди могут захотеть напечатать буквы страниц (A, B, C) вместо номеров страниц (1, 2, 3). В 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 устанавливается на количество страниц на листе. Наконец, каждая страница печатается индивидуально, причем буква страницы помещается в центральный нижний колонтитул рабочего листа. Если вы хотите, чтобы буква страницы находилась в другом месте, используйте .LeftFooter или .RightFooter вместо свойства .CenterFooter. (Вы также можете использовать .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 [Изменение формата номера страницы].