Ledande nollor i Sidnummer

September 4

Jackie frågade om det fanns ett sätt att inkludera inledande nollor i sidnumren placerade i en sidfot. Hon behöver hennes sidnummer att alltid vara fem tecken långt, med ledande nollor efter behov, för att fylla ut längden. Således skulle sidnummer vara 00001, 00002, etc.

Excel ger inte mycket bra formatering för sina sidnummer. En lösning (kanske den mest livskraftiga) är att skriva ut varje sida i kalkylbladet, en i taget, ändra sidnumret som du går. Detta makro tar detta synsätt:

Sub FormattedPageNums ()
Dim iPages As Integer
Dim J As Integer
Dim sformat As String

sformat = "00000"
"Få räkna sidor i aktiva bladet
iPages = ExecuteExcel4Macro ("Get.Document (50)")

Med ActiveSheet
För J = 1 Till iPages
.PageSetup.CenterFooter = Format (J, sformat)
.PrintOut Från: = J, Att: = J
Nästa J
End Med
End Sub

Makrot upptäcker hur många sidor som finns i hela utskriften, och sedan steg igenom varje sida av den utskriften. Innan du skriver ut varje sida, individuellt, är egenskapen .CenterFooter lika med en formaterad sträng som representerar sidnumret med inledande nollor.

Du kan ändra makro, enligt önskemål, för att placera olika information i sidfoten. Du kan också ändra det område av sidfoten som ändras med hjälp .LeftFooter eller .RightFooter istället för .CenterFooter.

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (3055) gäller för Microsoft Excel 97, 2000, 2002, och 2003. Du kan hitta en version av detta tips för menyfliksområdet i Excel (Excel 2007 och senare) här: Ledande nollor i Sidnummer.