Ledende Zeros i sidetall

August 13  by Eliza

Jackie spurte om det var en måte å inkludere ledende nuller i sidetallene plassert i en bunntekst. Hun trenger hennes sidetall for å alltid være fem tegn, med ledende nuller, som er nødvendig, for å fylle ut lengden. Dermed vil sidetall være 00001, 00002, etc.

Excel gir ikke veldig god formatering for sine sidetall. En løsning (kanskje den mest levedyktig) er å skrive ut hver side i regnearket, ett om gangen, endre sidetallet som du går. Denne makroen tar som tilnærming:

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

sFormat = "00000"
"Get teller sider i aktiv ark
iPages = ExecuteExcel4Macro ("Get.Document (50)")

Med Active
For J = 1 Til iPages
.PageSetup.CenterFooter = Format (J, sFormat)
.PrintOut Fra: = J, Til: = J
Neste J
Avslutt med
End Sub

Makroen oppdager hvor mange sider som er på hele utskriften, og trinn gjennom hver side av at utskriften deretter. Før du skriver ut hver side, individuelt, er .CenterFooter eiendom satt lik en formatert streng som representerer sidetallet med ledende nuller.

Du kan endre makro, som ønsket, å plassere ulik informasjon i bunnteksten. Man kan også endre arealet av bunntekst som er endret ved hjelp av .LeftFooter eller .RightFooter istedenfor .CenterFooter.

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (3055) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Ledende Zeros i sidetall.