Note: The other languages of the website are Google-translated. Back to English
English English

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

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í do 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (8)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Potřeboval jsem vložit aktivní časové období mezd do více listů. Uživatel otevře list Datum mezd, zadá časové období a před tiskem aktualizuje všechny listy v sešitu. Zde je návod, jak mohu vložit více buněk do rozsahu s o něco menším kódem kompatibilním s rokem 2010: Private Sub Workbook_BeforePrint (Cancel As Boolean) Dim WorkRng As Range On Error Obnovit další pro každý ws In Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Range("'Datum výplaty'!A1").Value & vbCr & Rozsah("'Datum výplaty'!A2").Value Next End Sub
Tento komentář byl moderátorem webu minimalizován
Chci vložit čtyři buňky do header.This VB je pouze pro jednu buňku. Jak to mohu udělat. dík
Tento komentář byl moderátorem webu minimalizován
Můžete zkusit zřetězení hodnoty rht čtyř buněk do jedné buňky a pak použít jednu buňku jako záhlaví.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Existuje způsob, jak můžete přidat hodnotu buňky, která zohledňuje použité filtry? Například... A1 = pondělí A2 = úterý A3 = středa. Použití kódu VBA k zobrazení buňky A1 bude zpočátku fungovat, ale jakmile aplikuji filtr na dny v týdnu, „horní“ hodnota buňky již není A1. Existuje způsob, jak vyzvednout proměnnou? Mnohokrát děkuji,
Tento komentář byl moderátorem webu minimalizován
Při použití vašeho "VBA kódu: vložte zadanou hodnotu buňky do záhlaví všech listů" bych chtěl, aby byla umístěná hodnota formátována: Tahoma, tučné, velikost písma 12.
Jak to lze přidat do vašeho kódu?
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Zdá se, že to funguje pouze jednou.
Co když se změní hodnota buňky?
Existuje způsob, jak propojit buňku, aby se záhlaví změnilo, když se změní hodnota buňky?

Mám sešit, kde mám tři listy.

List 1 označený jako "Deletion Sheet" - List zasíláme do skladu s informacemi o tom, co palatalizovat pro objednávku
List 2 označený "OA" - Potvrzení mé objednávky zákazníkovi, které stáhne většinu dat z prvního listu včetně čísla objednávky, které potřebuji mít v záhlaví. Snažím se tedy propojit záhlaví s buňkou na této stránce s číslem objednávky (F5), které získá svou hodnotu z (C7) v prvním pracovním listu ("Smazat list")
List 3 označený jako „Faktura – Faktura, která také přebírá většinu stejných informací z prvního listu, který by také potřeboval, aby hlavička obsahovala hodnotu (F5) tohoto listu převzatého z (C7) v „List pro odstranění“
Tento komentář byl moderátorem webu minimalizován
Zdá se, že to nevytváří dynamický odkaz, tj. hodnota zadaná do záhlaví se nezmění, když se změní hodnota buňky. Jaký je tedy účel kódu VBA, když kopírování/vkládání udělá totéž?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Neile,
Pokud chcete dynamicky propojit hodnotu buňky se záhlavím nebo zápatím, použijte následující kód VBA:

Poznámka: Kód byste měli vložit do kódu listu, nikoli do normálního modulu.
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


Zkuste to prosím, doufám, že vám to pomůže
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění