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 > Moduli. Quindi copia e incolla il codice VBA sottostante nel file Code 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
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!