Come inserire il valore della cella nell'intestazione / piè di pagina in Excel?

Possiamo facilmente inserire intestazione o piè di pagina contenente il percorso del file, il nome del file, la data corrente o altre informazioni con la funzionalità di Excel, ma, a volte, vogliamo utilizzare un valore di cella come intestazione o piè di pagina in Excel. Come possiamo inserire il contenuto di una cella nell'intestazione o nel piè di pagina della cartella di lavoro?

Inserisci il valore della cella nell'intestazione o nel piè di pagina di un foglio di lavoro con codice VBA

Metti il ​​valore della cella nell'intestazione o nel piè di pagina di tutti i fogli di lavoro con codice VBA

Inserisci le informazioni sul file nell'intestazione/piè di pagina con Kutools per Excel

Inserisci il valore della cella nell'intestazione o nel piè di pagina di un foglio di lavoro con codice VBA

Se desideri posizionare il contenuto di una cella nell'intestazione o nel piè di pagina del foglio di lavoro corrente, il seguente codice VBA può aiutarti. Si prega di fare come segue:

1. Attiva il foglio di lavoro che desideri inserire herder o footer con un valore di cella, quindi tieni premuto il tasto ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2.Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.

Codice VBA: inserisci un valore di cella specificato nell'intestazione di un foglio di lavoro

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Quindi premere F5 tasto per eseguire questo codice, verrà visualizzata una finestra di dialogo per ricordarti di selezionare una cella di cui desideri inserire il contenuto nell'intestazione.

4. E poi clicca OK, questo valore di cella specificato è stato inserito nell'intestazione sinistra del foglio di lavoro corrente. È possibile visualizzare l'intestazione facendo clic su Compila il > Stampa. Vedi screenshot:

Note:

1. Se desideri utilizzare il contenuto della cella come piè di pagina del foglio di lavoro attivo, puoi applicare questo codice:

Codice VBA: inserisci un valore di cella specificato nel piè di pagina di un foglio di lavoro

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. Puoi anche applicare i codici precedenti per inserire il valore della cella nell'intestazione / piè di pagina di destra o nell'intestazione / piè di pagina centrale, basta sostituire il Intestazione sinistra / Piè di pagina sinistro con Intestazione destra / Piè di pagina destro or Intestazione centrale / CenterFooer nei codici.

Metti il ​​valore della cella nell'intestazione o nel piè di pagina di tutti i fogli di lavoro con codice VBA

A volte, vuoi inserire l'intestazione o il piè di pagina con il contenuto di una cella selezionata in tutti i fogli di lavoro della tua cartella di lavoro di apertura, con il codice sopra, devi ripeterli più e più volte. In questo caso, il seguente codice VBA può aggiungere il contenuto della cella a herder o footer dell'intera cartella di lavoro contemporaneamente.

1. Attiva la cartella di lavoro che desideri inserire herder o footer con un valore di cella, quindi tieni premuto il tasto ALT + F11 chiavi e apre il file Finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.

Codice VBA: inserisci un valore di cella specificato nel piè di pagina di tutti i fogli di lavoro

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. Quindi premere F5 tasto per eseguire questo codice, verrà visualizzata una finestra di dialogo per ricordarti di selezionare una cella di cui desideri inserire il contenuto nel piè di pagina dell'intera cartella di lavoro.

4. E poi clicca OK, questo valore di cella selezionato è stato aggiunto a tutti i piè di pagina a sinistra dei fogli di lavoro. È possibile visualizzare il piè di pagina facendo clic Compila il > Stampa. Vedi screenshot:

Note:

1. Se desideri utilizzare il contenuto della cella come intestazione dell'intera cartella di lavoro, puoi applicare questo codice:

Codice VBA: inserisci un valore di cella specificato nell'intestazione di tutti i fogli di lavoro

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Sostituto RightHeader / Footer or CenterHeader / Footer per LeftHeader / Footer nei codici precedenti se desideri che l'intestazione o il piè di pagina siano posizionati in modo diverso.

Inserisci le informazioni sul file nell'intestazione/piè di pagina con Kutools per Excel

Se si desidera inserire le informazioni sul filer nell'intestazione o nel piè di pagina, come il nome del foglio di lavoro / cartella di lavoro, il percorso della cartella di lavoro e così via, è possibile utilizzare Kutools for Excel'S Inserisci le informazioni sulla cartella di lavoro utilità se hai installato Kutools per Excel.

Dopo installazione gratuita Kutools per Excel, per favore fai come di seguito:

1. Clic Kutools Plus > Cartella di lavoro > Inserisci le informazioni sulla cartella di lavoro. Vedi screenshot:

2. Nel Inserisci le informazioni sulla cartella di lavoro finestra di dialogo, controlla le informazioni che devi inserire sotto Informazioni sezione e controllare testata or footer come desidera.

Suggerimento: è possibile inserire le informazioni in tre posizioni dell'intestazione o del piè di pagina: centro, sinistra o destra.

3. Clic Ok. Quindi puoi andare a Visualizza > layout di pagina per visualizzare l'intestazione.

Con Inserisci informazioni sulla cartella di lavoro, puoi anche inserire informazioni sul file in una cella o in un intervallo di celle. Fare clic qui per saperne di più su questa utility.

Demo: Inserisci le informazioni della cartella di lavoro nella cella/intestazione/piè di pagina

Tipo.Se desideri dividere rapidamente una cartella di lavoro in più cartelle di lavoro/file PDF o file CSV separatamente, prova a utilizzare Kutools per Excel Cartella di lavoro divisa come mostrato nello screenshot seguente. È completamente funzionante senza limitazioni in 30 giorni, si prega di scaricare e avere una prova gratuita ora.

Articoli correlati:

Come inserire il nome o il percorso del file nella cella / intestazione o piè di pagina in Excel?

Come inserire ed eliminare intestazione, piè di pagina e immagine dell'intestazione in Excel?