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 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.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. | ||
Dopo shavasana, sedersi in silenzio; saluti; 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.
Mancia: è 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.
Inserisci le informazioni della cartella di lavoro in cella / intestazione / piè di pagina
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?
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!