Zeri iniziali nei numeri di pagina (Microsoft Excel)
Jackie ha chiesto se c’era un modo per includere gli zeri iniziali nei numeri di pagina inseriti in un piè di pagina. Ha bisogno che i suoi numeri di pagina siano sempre lunghi cinque caratteri, con zeri iniziali, se necessario, per riempire la lunghezza. Pertanto, i numeri di pagina sarebbero 00001, 00002, ecc.
Excel non fornisce una formattazione molto buona per i suoi numeri di pagina. Una soluzione (forse la più praticabile) è stampare ogni pagina del foglio di lavoro, una alla volta, modificando il numero di pagina mentre procedi. Questa macro adotta questo approccio:
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
La macro rileva quante pagine ci sono nell’intera stampa e quindi passa attraverso ogni pagina di quella stampa. Prima di stampare ogni pagina, singolarmente, la proprietà .CenterFooter è impostata uguale a una stringa formattata che rappresenta il numero di pagina con zeri iniziali.
È possibile modificare la macro, come desiderato, per inserire informazioni diverse nel piè di pagina. È inoltre possibile modificare l’area del piè di pagina modificata utilizzando .LeftFooter o .RightFooter invece di .CenterFooter.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.
ExcelTips è la tua fonte di formazione economica su Microsoft Excel.
Questo suggerimento (3055) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui: