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
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:
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:
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:
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:
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:
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:
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:
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í.
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:
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:
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:
3. Pak klikněte na tlačítko OK tlačítko, všechna čísla stránek budou ze sešitu odstraněna najednou.
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!