Vai al contenuto principale

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 buona idea 3


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.doc-inserisci-valore-cella-nell'intestazione1

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:doc-inserisci-valore-cella-nell'intestazione1

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.


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.

doc-inserisci-valore-cella-nell'intestazione1

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:

doc-inserisci-valore-cella-nell'intestazione1

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.


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:
documento 1

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.
doc inserisci percorso cartella di lavoro 1

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

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.



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.

cartella di lavoro divisa doc

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

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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

scheda kte 201905


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!
Comments (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This doesn't appear to make a dynamic link, i.e., the value entered into the header doesn't change when the value of the cell does. So what is the purpose of the VBA code, when a copy/paste will do the same?
This comment was minimized by the moderator on the site
Hello, Neil,
If you want to link the cell value to the header or footer dynamically, please apply the following VBA code:

Note: You should insert the code into the sheet code not the normal Module.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Please have a try, hope it can help you
This comment was minimized by the moderator on the site
maksudnya bagaimana?
This comment was minimized by the moderator on the site
Hi,

This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?

I have a workbook where I have three sheets.

Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
This comment was minimized by the moderator on the site
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
This comment was minimized by the moderator on the site
Hi There, Is there a way that you can add a cell value which takes account of applied filters? For example... A1 = Monday A2 = Tuesday A3 = Wednesday. Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1. Is there a way to pick up the variable? Many thanks,
This comment was minimized by the moderator on the site
I want to insert four cells in header.This VB is only for one cell. How can I do it. Thanks
This comment was minimized by the moderator on the site
You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
This comment was minimized by the moderator on the site
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook. Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations