Come applicare intestazioni o piè di pagina diversi su ogni pagina su 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 in questo articolo può aiutarti.
Applica intestazioni o piè di pagina diversi su ogni pagina con codice VBA
Applica intestazioni o piè di pagina diversi su ogni pagina con codice VBA
Il seguente codice VBA può aiutarti ad applicare intestazioni o piè di pagina diversi su ogni pagina di un foglio di lavoro. Si prega di fare quanto segue.
1. premi il altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic per l'applicazionefinestra s.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo. Quindi copia e incolla il codice VBA sottostante nel file Codice finestra. 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 F5 chiave per eseguire il codice. Poi il Anteprima si apre la finestra, fare clic su Stampa pulsante per avviare la stampa delle pagine con intestazioni o piè di pagina differenti.
Note:: Se ci sono 4 pagine stampate specificate nel foglio di lavoro, è necessario fare clic su Stampa quattro volte per terminare l'intera stampa.
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
