Přejít k hlavnímu obsahu

Jak vložit hodnotu buňky do záhlaví / zápatí v aplikaci Excel?

Můžeme snadno vložit záhlaví nebo zápatí obsahující cestu k souboru, název souboru, aktuální datum nebo jiné informace pomocí funkce aplikace Excel, ale někdy chceme použít hodnotu buňky jako záhlaví nebo zápatí v aplikaci Excel. Jak můžeme v sešitu vložit obsah buňky do záhlaví nebo zápatí?

Vložte hodnotu buňky do záhlaví nebo zápatí listu s kódem VBA

Vložte hodnotu buňky do záhlaví nebo zápatí všech listů s kódem VBA

Vložte informace o souboru do záhlaví / zápatí pomocí Kutools pro Excel dobrý nápad3

Pokud chcete umístit obsah buňky do záhlaví nebo zápatí aktuálního listu, může vám pomoci následující kód VBA. Postupujte podle následujících kroků:

1. Aktivujte svůj list, do kterého chcete vložit pastýře nebo zápatí s hodnotou buňky, a poté podržte klávesu ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2.Klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: vložte určenou hodnotu buňky do záhlaví listu

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. Pak stiskněte tlačítko F5 Po spuštění tohoto kódu se zobrazí dialogové okno, které vám připomene výběr buňky, kterou chcete vložit do záhlaví.doc-insert-cell-value-to-header1

4. A pak klikněte na tlačítko OK, tato zadaná hodnota buňky byla vložena do aktuálního levého záhlaví listu. Záhlaví můžete zobrazit kliknutím Soubor > Tisk. Viz snímek obrazovky:doc-insert-cell-value-to-header1

Poznámky:

1. Pokud chcete použít obsah buňky jako zápatí aktivního listu, můžete použít tento kód:

Kód VBA: vložte specifikovanou hodnotu buňky do zápatí listu

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. Můžete také použít výše uvedené kódy pro vložení hodnoty buňky do pravého záhlaví / zápatí nebo středového záhlaví / zápatí, stačí nahradit LeftHeader / Levé zápatí s RightHeader / Pravé zápatí or CenterHeader / CenterFooter v kódech.

Někdy chcete vložit záhlaví nebo zápatí s obsahem vybrané buňky do všech listů otevíracího sešitu, s výše uvedeným kódem je musíte znovu a znovu opakovat. V tomto případě může následující kód VBA přidat obsah buňky do herderu nebo zápatí celého sešitu najednou.

1. Aktivujte sešit, do kterého chcete vložit pastýře nebo zápatí s hodnotou buňky, a poté podržte klávesu ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: vložte specifikovanou hodnotu buňky do zápatí všech listů

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. Pak stiskněte tlačítko F5 klíč k provedení tohoto kódu, vyskočí dialogové okno, které vám připomene výběr buňky, kterou chcete vložit do zápatí celého sešitu.

doc-insert-cell-value-to-header1

4. A pak klikněte na tlačítko OK, tato vybraná hodnota buňky byla přidána do všech zápatí všech listů. Zápatí můžete zobrazit kliknutím Soubor > Tisk. Viz snímek obrazovky:

doc-insert-cell-value-to-header1

Poznámky:

1. Pokud chcete použít obsah buňky jako záhlaví celého sešitu, můžete použít tento kód:

Kód VBA: vložte specifikovanou hodnotu buňky do záhlaví všech listů

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. Náhradník RightHeader / Footer or CenterHeader / Footer for LeftHeader / Footer ve výše uvedených kódech, pokud chcete, aby vaše záhlaví nebo zápatí byly umístěny odlišně.

Chcete-li do záhlaví nebo zápatí vložit informace o souboru, například název listu / sešitu, cestu sešitu atd., Můžete použít Kutools pro ExcelJe Vložte informace o sešitu nástroj, pokud máte nainstalovaný Kutools pro Excel.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 
Stažení zdarma
zdarma plně funkční do 30 dnů

Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Cvičebnice > Vložte informace o sešitu. Viz snímek obrazovky:
doktor kte 1

2. V Vložte informace o sešitu v dialogovém okně zkontrolujte informace, které potřebujete vložit pod Informace sekci a zkontrolujte Hlavička or Zápatí jak chceš.

Tip: informace můžete vložit na tři místa v záhlaví nebo zápatí: uprostřed, vlevo nebo vpravo.
doc vložte cestu sešitu 1

3. cvaknutí Ok. Pak můžete přejít na Pohled > Rozvržení stránky pro zobrazení záhlaví.
doktor kte 3

Pomocí Vložit informace o sešitu můžete také vložit informace o souboru do buňky nebo do řady buněk. Kliknutím sem získáte další informace o tomto nástroji.



Spropitné.Pokud chcete rychle rozdělit sešit na více sešitů / souborů PDF nebo souborů CSV samostatně, zkuste použít Kutools pro Excel Rozdělit sešit jak je znázorněno na následujícím snímku obrazovky. Je plně funkční bez omezení za 30 dní, prosím stáhněte si a získejte bezplatnou zkušební verzi hned teď.

rozdělený sešit doc

Související články:

Jak vložit název souboru nebo cestu do buňky / záhlaví nebo zápatí v aplikaci Excel?

Jak vložit a odstranit obrázek záhlaví, zápatí a záhlaví v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (9)
No ratings yet. Be the first to rate!
Neil
Neil
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?
Reply
0
0
skyyang
skyyang     Neil
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
Reply
Report
0
0
DJ
DJ     skyyang
This comment was minimized by the moderator on the site
maksudnya bagaimana?
Reply
0
0
Dani
Dani
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"
Reply
0
0
Mickey
Mickey
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?
Reply
0
0
Claire
Claire
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,
Reply
0
0
saeid mohammadi
saeid mohammadi
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
Reply
0
0
Ridhwan
Ridhwan     saeid mohammadi
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.
Reply
0
0
Jeffrey Hulbert
Jeffrey Hulbert
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
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations