Quando si stampa un foglio di lavoro, è possibile fare in modo che Excel includa una varietà di elementi nell’intestazione o nel piè di pagina della stampa. Una delle cose che puoi includere è il numero di pagina della pagina da stampare. Questo numero di pagina è piuttosto banale: è il valore arabo della pagina che viene stampata, come in 1, 2, 3, ecc.

Alcune persone potrebbero desiderare un modo per stampare lettere di pagina (A, B, C) invece dei numeri di pagina (1, 2, 3). Non esiste un modo intrinseco per farlo in Excel. Tuttavia, puoi sviluppare una macro che determini la lettera che dovrebbe essere associata a una pagina e quindi utilizzare quella lettera nel piè di pagina. La seguente macro fa proprio questo:

Sub LetterPageNums()

Dim sArr(27 * 26) As String     Dim iPages As Integer     Dim J As Integer, K As Integer

' Fill page letter array     ' "A", "B", "C", ...,"AA", "AB", etc.

For J = 0 To 26         For K = 1 To 26             If J > 0 Then                 sArr((J * 26) + K) = Chr(J + 64) & Chr(K + 64)

Else                 sArr(K) = Chr(K + 64)

End If         Next K     Next J

' Get count of pages in active sheet     iPages = ExecuteExcel4Macro("Get.Document(50)")



' Print worksheet, page by page     With ActiveSheet         For J = 1 To iPages             ' Set page letter             .PageSetup.CenterFooter = sArr(J)

' Print page(J)

.PrintOut From:=J, To:=J         Next J     End With End Sub

In primo luogo, la macro calcola l’equivalente in lettere dei numeri di pagina e li inserisce in un array. In questo caso, vengono calcolate fino a 702 lettere di pagina, che dovrebbero essere più che sufficienti per qualsiasi lavoro di stampa. Le lettere vanno dalla A alla Z, quindi dalla AA alla AZ, dalla BA alla BZ e fino alla ZA fino alla ZZ.

Quindi, iPages è impostato sul numero di pagine nel foglio di lavoro. Infine, ogni pagina viene stampata individualmente, con la lettera della pagina posizionata nel piè di pagina centrale del foglio di lavoro. Se desideri che la lettera della pagina si trovi in ​​una posizione diversa, utilizza .LeftFooter o .RightFooter invece della proprietà .CenterFooter. (Puoi anche usare .LeftHeader, .CenterHeader e .RightHeader, se lo desideri.)

_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 (12930) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui: