Note: The other languages of the website are Google-translated. Back to English
English English▼
X
en Englishar Arabichy Armenianzh-CN Chinese (Simplified)zh-TW Chinese (Traditional)cs Czechda Danishnl Dutchfr Frenchde Germanel Greekhu Hungarianid Indonesianga Irishit Italianja Japaneseko Koreanpl Polishpt Portuguesero Romanianru Russiansl Slovenianes Spanishsv Swedishth Thaitr Turkishuk Ukrainianvi Vietnamesecy Welsh

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 > Moduloe 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-insert-cell-value-to-header1

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-insert-cell-value-to-header1

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 > Moduloe 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-insert-cell-value-to-header1

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-insert-cell-value-to-header1

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. 
Scarica gratis
gratuito completo in 30 giorni

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:
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 View > 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. È pienamente 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
Commenti (8)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Jeffrey Hulbert
Jeffrey Hulbert
Questo commento è stato fatto dal moderatore sul sito
Avevo bisogno di inserire un intervallo di date del libro paga attivo in più fogli. L'utente apre il foglio Data busta paga, inserisce l'intervallo di date e prima di stamparlo aggiorna tutti i fogli della cartella di lavoro. Ecco come posso inserire più celle nell'intervallo con un po 'meno codice compatibile con il 2010: Private Sub Workbook_BeforePrint (Annulla come booleano) Dim WorkRng As Range On Error Riprendi Avanti per ogni ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Intervallo("'Data busta paga'!A1").Valore & vbCr & Intervallo("'Data busta paga'!A2").Valore Next End Sub
Rispondi
0
0
Said Mohammadi
Said Mohammadi
Questo commento è stato fatto dal moderatore sul sito
Voglio inserire quattro celle nell'intestazione. Questo VB è solo per una cella. Come posso farlo. Grazie
Rispondi
0
0
Ridwan
Ridwan     Said Mohammadi
Questo commento è stato fatto dal moderatore sul sito
Puoi provare a concatenare il valore di rht quattro celle in una singola cella e quindi utilizzare la singola cella come intestazione.
Rispondi
0
0
Chiaro
Chiaro
Questo commento è stato fatto dal moderatore sul sito
Ciao. C'è un modo per aggiungere un valore di cella che tenga conto dei filtri applicati? Ad esempio... A1 = lunedì A2 = martedì A3 = mercoledì. L'utilizzo del codice VBA per visualizzare la cella A1 funzionerà inizialmente, ma una volta applicato un filtro nei giorni della settimana, il valore della cella "superiore" non è più A1. C'è un modo per raccogliere la variabile? Grazie molto,
Rispondi
0
0
Mickey
Mickey
Questo commento è stato fatto dal moderatore sul sito
Quando si utilizza il "codice VBA: inserire un valore di cella specificato nell'intestazione di tutti i fogli di lavoro", vorrei che il valore inserito fosse formattato: Tahoma, grassetto, nella dimensione del carattere 12.
Come può essere aggiunto al tuo codice?
Rispondi
0
0
Dani
Dani
Questo commento è stato fatto dal moderatore sul sito
Ciao,

Questo sembra funzionare solo una volta.
Cosa succede se il valore della cella cambia?
C'è un modo per collegare la cella in modo che l'intestazione cambi quando cambia il valore della cella?

Ho una cartella di lavoro in cui ho tre fogli.

Foglio 1 etichettato "Foglio Eliminazione" - Foglio che inviamo al magazzino con info cosa palatalizzare per l'ordine
Foglio 2 etichettato "OA" - La mia conferma d'ordine al cliente che estrae la maggior parte dei dati dal primo foglio incluso il numero dell'ordine che devo avere nell'intestazione. Quindi sto cercando di collegare l'intestazione alla cella in questa pagina con il numero d'ordine (F5) che ottiene il suo valore da (C7) nel primo foglio di lavoro ("Foglio di eliminazione")
Foglio 3 etichettato "Fattura - Fattura che estrae anche la maggior parte delle stesse informazioni dal primo foglio che richiederebbe anche l'intestazione per includere il valore (F5) di questo foglio preso da (C7) in "Foglio di eliminazione"
Rispondi
0
0
Neil
Neil
Questo commento è stato fatto dal moderatore sul sito
Questo non sembra creare un collegamento dinamico, ovvero il valore inserito nell'intestazione non cambia quando cambia il valore della cella. Quindi qual è lo scopo del codice VBA, quando un copia/incolla farà lo stesso?
Rispondi
0
0
skyyang
skyyang     Neil
Questo commento è stato fatto dal moderatore sul sito
Ciao, Neil,
Se desideri collegare il valore della cella all'intestazione o al piè di pagina in modo dinamico, applica il seguente codice VBA:

Note:: Dovresti inserire il codice nel foglio codice non il normale Modulo.
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


Per favore, fai una prova, spero che possa aiutarti
Rispondi
Report
0
0
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
GUEST
Pubblicazione come ospite
Accedi
×
Valuta questo post:
cancella
0   Personaggi
Posizioni suggerite