Excel ti consente di specificare intestazioni e piè di pagina per i tuoi fogli di lavoro. Potresti voler copiare queste intestazioni e piè di pagina da un foglio di lavoro a un altro. Farlo all’interno di una cartella di lavoro è relativamente facile, ma farlo da una cartella di lavoro a un’altra può essere più scoraggiante.

Se l’intestazione e il piè di pagina sono quelli che usi un po ‘nelle nuove cartelle di lavoro e la tua preoccupazione principale è avere l’intestazione e il piè di pagina disponibili in quelle nuove cartelle di lavoro (non nelle cartelle di lavoro esistenti), l’approccio migliore sarebbe creare una cartella di lavoro modello . Basta impostare una cartella di lavoro come desiderato, inclusa la specifica di intestazioni e piè di pagina. Quindi, salva la cartella di lavoro come modello Excel (formato XLT). Puoi quindi creare le tue cartelle di lavoro in base a questo modello e avrà le intestazioni e i piè di pagina che desideri.

Un modo per copiare intestazioni e piè di pagina da un foglio di lavoro in una cartella di lavoro a un foglio di lavoro in un’altra consiste nell’usare i metodi di modifica tradizionali di copia e incolla. In altre parole, è possibile selezionare il materiale dell’intestazione che si desidera copiare, premere Ctrl + C, visualizzare l’intestazione nel foglio di lavoro di destinazione e quindi premere Ctrl + V. Lo svantaggio di questo approccio è che può comportare diversi passaggi. Dopo tutto, ci sono tre sezioni (sinistra, centro e destra) per ogni intestazione e tre per ogni piè di pagina. Ciò significa che è necessario eseguire sei operazioni di copia e incolla per copiare l’intestazione e il piè di pagina completi.

Un altro modo per copiare intestazioni e piè di pagina da una cartella di lavoro a un’altra prevede l’uso di comandi Excel nativi per creare copie di fogli di lavoro.

Segui questi passaggi:

  1. Apri la cartella di lavoro di destinazione; quello in cui si desidera copiare le intestazioni e i piè di pagina.

  2. Apri la cartella di lavoro che è l’origine dell’intestazione e del piè di pagina e assicurati che sia visualizzato il foglio di lavoro desiderato.

  3. Scegli Sposta o Copia foglio dal menu Modifica. Excel visualizza la finestra di dialogo Sposta o Copia. (Vedi figura 1.)

  4. Utilizzando l’elenco a discesa To Book, seleziona la cartella di lavoro di destinazione che hai aperto nel passaggio 1.

  5. Utilizzando l’area Prima del foglio, indicare dove si desidera copiare il foglio.

  6. Assicurati che la casella di controllo Crea una copia sia selezionata.

  7. Fare clic su OK. Il foglio di lavoro viene copiato nella cartella di lavoro di destinazione.

  8. Chiudi la cartella di lavoro di origine dal passaggio 2.

  9. Nella cartella di lavoro di destinazione, visualizza il foglio di lavoro appena copiato.

  10. Nell’area delle schede nella parte inferiore della finestra, fai clic con il pulsante destro del mouse e scegli Seleziona tutti i fogli. Tutti i fogli di lavoro sono ora selezionati.

  11. Visualizza la finestra di dialogo Imposta pagina. (Scegli Imposta pagina dal menu File.)

  12. Assicurati che la scheda Intestazione / Piè di pagina sia selezionata. (Vedi figura 2.)

  13. Utilizzando gli elenchi a discesa Intestazione e Piè di pagina, seleziona l’intestazione e il piè di pagina utilizzati nel foglio di lavoro appena copiato.

  14. Fare clic su OK.

  15. Elimina il foglio di lavoro che hai copiato nei passaggi da 1 a 7.

Quello che hai fatto essenzialmente è copiare il foglio di lavoro contenente l’intestazione e il piè di pagina desiderati, quindi hai copiato l’intestazione e il piè di pagina su altri fogli di lavoro nella cartella di lavoro, quindi hai eliminato il foglio di lavoro originale.

Sebbene questi passaggi funzionino correttamente, possono essere noiosi se è necessario copiare intestazioni e piè di pagina in una serie di cartelle di lavoro diverse. In questo caso, l’utilizzo di una macro per eseguire la copia è l’approccio più sano. Le seguenti due macro possono essere utilizzate per copiare intestazioni e piè di pagina in un semplice passaggio. Tutto quello che devi fare è visualizzare il foglio di lavoro di origine e utilizzare la macro GetHeaders. Questa macro copia le informazioni di intestazione e piè di pagina nelle variabili stringa. È quindi possibile visualizzare, a turno, ogni foglio di lavoro che si desidera avere la stessa intestazione e piè di pagina ed eseguire la macro DoHeaders.

Option Explicit

Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean

Sub GetHeaders()

With ActiveSheet.PageSetup         strHeadLeft = .LeftHeader         strHeadCenter = .CenterHeader         strHeadRight = .RightHeader         strFootLeft = .LeftFooter         strFootCenter = .CenterFooter         strFootRight = .RightFooter         bGotHeaders = True     End With End Sub
Sub DoHeaders()

If bGotHeaders Then         With ActiveSheet.PageSetup             .LeftHeader = strHeadLeft             .CenterHeader = strHeadCenter             .RightHeader = strHeadRight             .LeftFooter = strFootLeft             .CenterFooter = strFootCenter             .RightFooter = strFootRight         End With     Else         MsgBox "Select the sheet with the " _             & "headers you want to copy," _             & vbCrLf & "then run 'GetHeaders'", _             vbExclamation, "No Headers In Memory"

End If End Sub

È anche possibile assegnare le macro ai pulsanti della barra degli strumenti, se lo si desidera, il che può renderle ancora più pratiche per la copia di intestazioni e piè di pagina.

Se si dispone di diversi fogli di lavoro e cartelle di lavoro in cui si desidera copiare le intestazioni e i piè di pagina, è possibile utilizzare un approccio macro diverso. La seguente macro copierà le intestazioni e i piè di pagina dal foglio di lavoro attivo a tutti gli altri fogli di lavoro in tutte le altre cartelle di lavoro aperte.

Sub CopyHeaderFooter()

Dim PS As PageSetup     Dim WB As Workbook     Dim WS As Worksheet

Set PS = ActiveSheet.PageSetup     For Each WB In Workbooks         For Each WS In WB.Worksheets             With WS.PageSetup                 .LeftHeader = PS.LeftHeader                 .CenterHeader = PS.CenterHeader                 .RightHeader = PS.RightHeader                 .LeftFooter = PS.LeftFooter                 .CenterFooter = PS.CenterFooter                 .RightFooter = PS.RightFooter             End With         Next     Next End Sub

In altre parole, se desideri copiare intestazioni e piè di pagina dal foglio di lavoro corrente ad altri 150 fogli di lavoro distribuiti su 15 cartelle di lavoro diverse, tutto ciò che devi fare è aprire le 15 cartelle di lavoro contemporaneamente, visualizzare il foglio di lavoro di origine ed eseguire la macro .

_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.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (2696) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Copia di intestazioni e piè di pagina.