Nuller i Sidetal

Jackie spurgte om der var en måde at inkludere førende nuller i sidetal placeret i en sidefod. Hun har brug for hendes sidetal altid at være fem tegn, med førende nuller, som er nødvendige, for at udfylde længden. Således ville sidetal være 00001, 00002 osv

Excel giver ikke meget god formatering for sine sidetal. En løsning (måske den mest levedygtige) er at udskrive hver side i dit regneark, en ad gangen, ændre sidetallet, som du går. Denne makro tager denne fremgangsmåde:

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

sFormat = "00000"
"Find optælling af sider i aktive ark
iPages = ExecuteExcel4Macro ("Get.Document (50)")

Med ActiveSheet
For j = 1 til iPages
.PageSetup.CenterFooter = Format (J, sFormat)
.PrintOut Fra: = J, Til: = J
Næste J
End med
End Sub

Makroen opdager hvor mange sider der er på hele udskriften, og derefter trin gennem hver side af udskriften. Før udskrivning af hver side, individuelt, er .CenterFooter ejendom sat lig med en formateret streng, der repræsenterer sidetallet med nuller.

Du kan ændre makroen, som ønsket, for at placere forskellige oplysninger i sidefoden. Du kan også ændre det område af sidefoden, der ændres ved hjælp .LeftFooter eller .RightFooter stedet for .CenterFooter.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (3055) gælder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finde en version af dette tip til båndet grænseflade Excel (Excel 2007 og nyere) her: nuller i sidenumre.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com