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.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!