Numeri romani per numeri di pagina

Excel include una funzione di foglio di lavoro (ROMAN) che permette di convertire i numeri arabi in numeri romani. Ci si potrebbe chiedere se non vi è una tale funzione che consente di stampare i numeri romani come numeri di pagina su una stampa.

Non vi è alcun funzionalità incorporata che consente di farlo, ma è possibile creare una macro che farà il trucco. Si consideri la seguente macro:

RomanPageNums Sub ()
IPages Dim As Integer
Dim J As Integer

'Get conteggio delle pagine in foglio attivo
iPages = ExecuteExcel4Macro ("GET.DOCUMENT (50)")

'Foglio di lavoro di stampa, pagina per pagina
Con ActiveSheet
Per J = 1 Per iPages
'Set lettera pagina
.PageSetup.CenterFooter = _
Application.WorksheetFunction.Roman (J)
'Stampa pagina J
.PrintOut Da: = J, A: = J
Successivo J
End With
End Sub

Questa macro primi dati su quante pagine sono in stampa e assegna il valore alla variabile iPages. E poi i passaggi attraverso ogni pagina, cambiare il numero di pagina nella parte centrale del piè di pagina prima di stampare ogni pagina. Il numero di pagina viene impostato convertendo il numero di pagina corrente (J) per un numero romano utilizzando la funzione di foglio ROMANO.

Se si desidera che i numeri romani a comparire in altre parti del piè di pagina, è possibile sostituire la proprietà .CenterFooter sia con .LeftFooter o .RightFooter. È inoltre possibile utilizzare .LeftHeader, .CenterHeader o .RightHeader, se lo si desidera.

Il codice nella macro RomanPageNums funziona in tutte le versioni recenti di Excel. Se si utilizza Excel 2000 o superiore, si potrebbe anche sostituire la linea attuale che imposta il piè di pagina con il seguente codice:

.PageSetup.CenterFooter = Application.Roman (J)

ExcelTips è la vostra fonte per la formazione Microsoft Excel conveniente. Questo suggerimento (2518) si applica a Microsoft Excel 97, 2000, 2002, e 2003. È possibile trovare una versione di questo suggerimento per l'interfaccia ribbon di Excel (Excel 2007 e versioni successive) qui: numeri romani per i numeri di pagina.