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

Jak opakovat řádky nad každým výtiskem kromě poslední stránky v aplikaci Excel?

V mnoha případech možná budete muset opakovat řádek záhlaví v horní části každé vytištěné stránky v aplikaci Excel. Jak ale opakovat řádky nad každým výtiskem kromě poslední stránky? Tento článek vám ukáže způsob, jak toho dosáhnout.

Opakujte řádky v horní části každého výtisku kromě poslední stránky s kódem VBA


Opakujte řádky v horní části každého výtisku kromě poslední stránky s kódem VBA

Níže uvedený kód VBA můžete spustit a vytisknout všechny stránky s opakovanými řádky nahoře kromě poslední stránky. Postupujte prosím následovně.

1. Otevřete list, který potřebujete opakovat nahoře kromě poslední stránky, a stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do okna modulu.

VBA: Opakujte řádky na každém výtisku kromě poslední stránky v aplikaci Excel

Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xPages > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
            ActiveSheet.PrintOut from:=1, To:=xPages - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xPages, To:=xPages
        End With
    End If
End Sub

3. zmáčkni F5 klíč ke spuštění kódu, pak a Kutool pro Excel Zobrazí se dialogové okno, vyberte rozsah řádků, který je třeba opakovat nad každým výtiskem kromě poslední stránky, a poté klikněte na OK knoflík. Viz screenshot:

Poté se vytisknou všechny stránky v tomto listu s určitým opakováním řady nahoře kromě poslední stránky.


Související články:


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 (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj,


Jak mohu upravit kód pro export souboru do pdf pomocí stejných principů namísto tisku dokumentu?


Děkuji
Tento komentář byl moderátorem webu minimalizován
Jo... Musel byste exportovat do dvou .pdf s různými názvy, pak tyto dva pdf zkombinovat (v Adobe?)... Jsem na stejné lodi. Existuje způsob, jak automatizovat tento poslední krok (přes Excel?)? Poslední stránka mého exportovaného pdf nevyžaduje záhlaví.
Tento komentář byl moderátorem webu minimalizován
Jo... Musel byste exportovat do dvou .pdf s různými názvy, pak tyto dva pdf zkombinovat (v Adobe?)... Jsem na stejné lodi. Existuje způsob, jak automatizovat tento poslední krok (přes Excel?)? Poslední stránka mého exportovaného pdf nevyžaduje záhlaví.
Tento komentář byl moderátorem webu minimalizován
Ve staré aplikaci Lotus 1-2-3 se to snadno provádělo vložením dvojitých dvojteček (::) do levé horní buňky (A1) listu, kde jste nechtěli záhlaví nebo opakování řádku. Proč nemůže Microsoft udělat něco stejně jednoduchého? Mělo by se jednat o vestavěný proces, který lze aktivovat jediným kliknutím myši. Proč všechny ty komplikace????
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