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

Jak vložit číslo stránky do buňky / záhlaví / zápatí v aplikaci Excel?

Při tisku souboru Excel možná budete muset do stránek vložit čísla stránek, aby byl tištěný soubor úhledně a čitelně. V tomto článku vám představím několik rychlých triků, jak pro vás vložit čísla stránek do buňky, záhlaví nebo zápatí.

Vložte číslo stránky do záhlaví / zápatí v jednom listu

Vložte číslo stránky do záhlaví / zápatí do více listů

Vložte číslo stránky do buňky s kódem VBA

Odstraňte všechna čísla stránek najednou v aplikaci Excel


šipka modrá pravá bublina Vložte číslo stránky do záhlaví / zápatí v jednom listu

Normálně můžeme čísla stránek vložit do záhlaví nebo zápatí rychle pomocí Záhlaví zápatí funkce, postupujte následovně:

1. Přejděte na list, do kterého chcete vložit čísla stránek do záhlaví nebo zápatí.

2. Pak klikněte na tlačítko Vložit > Záhlaví zápatía váš list bude v Rozvržení stránky zobrazit, zobrazit snímek obrazovky:

doc vložte čísla stránek 1

3. Klikněte na záhlaví nebo zápatí, kam chcete vložit číslo stránky, a poté a Design karta s Nástroje záhlaví a zápatí se zobrazí na pásu karet a poté klikněte na Design > Číslo stránky, viz screenshot:

doc vložte čísla stránek 2

4. A můžete vidět zástupný symbol &[Strana] ve vybrané části se zobrazí a poté kliknutím kamkoli mimo oblast záhlaví nebo zápatí zobrazíte čísla stránek. Viz snímek obrazovky:

doc vložte čísla stránek 3

5. Nyní můžete kliknutím zpět obnovit normální zobrazení Pohled > Normální, a při tisku tohoto listu uvidíte, že čísla stránek byla vložena do záhlaví nebo zápatí, které jste vybrali.

Poznámka: Pokud chcete, aby se čísla stránek zobrazovala ve formátu 1 z 15, 2 z 15, stačí toto zadat přímo & [Stránka] z & [Stránky] do pole pole záhlaví nebo zápatí, viz screenshot:

doc vložte čísla stránek 4


šipka modrá pravá bublina Vložte číslo stránky do záhlaví / zápatí do více listů

Výše uvedená metoda vám pomůže vložit čísla stránek do jednoho listu, pokud chcete vložit čísla stránek do všech listů sešitu, aby byly všechny stránky číslovány v postupném pořadí, postupujte takto:

1. Vyberte všechny karty listů a přejděte na Rozvržení stránky kartu a klepněte na tlačítko Tlačítko spouštěče dialogového okna ikona v Vzhled stránky skupina, viz screenshot:

doc vložte čísla stránek 5

2. V Vzhled stránky dialogové okno, klikněte prosím Záhlaví zápatí a klepněte na tlačítko Vlastní záhlaví or Vlastní zápatí Chcete-li nastavit požadované záhlaví nebo zápatí, viz snímek obrazovky:

doc vložte čísla stránek 6

3. A v Hlavička or Zápatí V dialogovém okně definujte umístění, kam se vkládají čísla stránek, kliknutím uvnitř Levá část:, Střední část:nebo Pravá část: podle potřeby a poté klikněte na Vložte číslo stránky ikona a zástupný symbol &[Strana] objeví se. Viz screenshot:

doc vložte čísla stránek 7

Poznámka: Zadejte toto & [Stránka] z & [Stránky] do pole pole záhlaví nebo zápatí, pokud se vám líbí čísla stránek zobrazená jako 1 ze 45, 2 ze 45…

4. Pak klikněte na tlačítko OK > OK Chcete-li zavřít dialogová okna, můžete při tisku tohoto sešitu v náhledu tisku zobrazit všechna čísla stránek vložená do záhlaví nebo zápatí v postupném pořadí.


šipka modrá pravá bublina Vložte číslo stránky do buňky s kódem VBA

Vložit čísla stránek do záhlaví nebo zápatí je snadné, ale pokud potřebujete vložit čísla stránek do buňky listu, neexistuje přímý způsob, jak to udělat. Následující kód VBA vám může pomoci tento problém vyřešit.

1. Klikněte na buňku, kde chcete zobrazit číslo stránky této buňky.

2. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

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

Kód VBA: Vložte aktuální číslo stránky do buňky:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a číslo stránky této buňky se zobrazí ve vybrané buňce, viz screenshot:

doc vložte čísla stránek 8


šipka modrá pravá bublina Odstraňte všechna čísla stránek najednou v aplikaci Excel

Chcete-li odebrat všechna čísla stránek, můžete použít následující kroky:

1. Vyberte všechny karty listů a přejděte na Rozvržení stránky na pásu karet a poté klikněte na Tlačítko spouštěče dialogového okna ikona v Vzhled stránky skupina, viz screenshot:

doc vložte čísla stránek 9

2. V Vzhled stránky , klepněte na tlačítko OK Záhlaví zápatí a vyberte (Žádné) z Hlavička or Zápatí rozevírací seznam, viz screenshot:

doc vložte čísla stránek 10

3. Pak klikněte na tlačítko OK tlačítko, všechna čísla stránek budou ze sešitu odstraněna najednou.


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-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné 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 snižuje 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
Dobrý den, použil jsem výše uvedené číslo stránky Vložit do buňky s kódem VBA a funguje to skvěle. Můj list může mít délku buď 2 stránky (2 dolů a 1 napříč), 4 stránky (2 dolů a 2 napříč) nebo 6 stránek (2 dolů a 3 napříč). Vložil jsem kód do každé buňky ze 6, které vyžadují vytištění čísla stránky (výběrem každé buňky a spuštěním VBA), adresy buněk jsou H1, H35, T1, T35, AF1, AF35. Nyní bych chtěl přidat tlačítko pro obnovení těchto čísel stránek bez ovlivnění kterékoli buňky, která může být aktivní, když se příslušný uživatel může rozhodnout ji spustit, v současné době musím znovu vybrat každou buňku a spustit VBA :( Pomoc by byla obrovská oceňuji! Antoinette
Tento komentář byl moderátorem webu minimalizován
Zkoušel jsem makro VBA, ale zobrazuje se chyba dolního indexu mimo rozsah... Udělal jsem něco špatně?
Tento komentář byl moderátorem webu minimalizován
Ahoj, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrianský revizor... Gracias
Tento komentář byl moderátorem webu minimalizován
terima kasih, kawan
Tento komentář byl moderátorem webu minimalizován
Mohu vědět, pokud mám rozsah buněk, které chci vložit do čísel stránek, co bych měl změnit? Aktuální VBA mi umožňuje měnit pouze jeden po druhém.
Tento komentář byl moderátorem webu minimalizován
Mohu vědět, jak bych měl upravit výše uvedený VBA, který mi umožňuje provést toto na rozsah buněk v sešitu a pomocí 1 klávesové zkratky použít všechny vybrané buňky?
Tento komentář byl moderátorem webu minimalizován
Ahoj, el codigo si mě funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna form de lograr que al moment de imprimir pueda cambiar la pagina, en la misma pestaña?
Tento komentář byl moderátorem webu minimalizován
Hay forma de convertir esta sub en una función?
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í

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL