Come applicare intestazioni o piè di pagina diversi su ogni pagina in un foglio di calcolo Excel?
Per impostazione predefinita, quando si inserisce un'intestazione o un piè di pagina in un foglio di lavoro, il contenuto dell'intestazione o del piè di pagina verrà applicato a tutte le pagine. Per molte persone, pagine diverse possono avere contenuti diversi nei loro fogli di lavoro. E tendono a distinguere queste pagine con il contenuto dell'intestazione o del piè di pagina dopo aver stampato il foglio di lavoro. Come applicare intestazioni o piè di pagina diversi su ogni pagina del foglio di lavoro? Il metodo descritto in questo articolo può aiutarti.
Applica intestazioni o piè di pagina diversi su ogni pagina con il codice VBA
Applica intestazioni o piè di pagina diversi su ogni pagina con il codice VBA
Il seguente codice VBA può aiutarti ad applicare intestazioni o piè di pagina diversi su ogni pagina di un foglio di lavoro. Procedi come segue.
1. Premi contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra del Codice. Vedi screenshot:
Codice VBA: Applica intestazioni diverse su ogni pagina in Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
Note:
3. Premi il tasto F5 per eseguire il codice. Poi si aprirà la finestra Anteprima, fai clic sul pulsante Stampa per iniziare a stampare le pagine con intestazioni o piè di pagina diversi.
Nota: Se ci sono 4 pagine specificate da stampare nel foglio di lavoro, devi fare clic sul pulsante Stampa quattro volte per completare l'intera stampa.
Sblocca la Magia di Excel con Kutools AI
- Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
- Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
- Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
- Interpretazione delle Formule: Comprendi facilmente formule complesse.
- Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in