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

Jak vložit konce stránek při změně hodnoty v aplikaci Excel?

Předpokládejme, že mám řadu buněk a teď chci vložit konce stránek do listu, když se hodnoty ve sloupci A změní, jak je zobrazen levý snímek obrazovky. Samozřejmě je můžete vkládat jeden po druhém, ale existují nějaké rychlé způsoby, jak vložit konce stránek najednou na základě změněných hodnot jednoho sloupce?

Při změně hodnoty pomocí kódu VBA vložte konce stránek

Vkládání konců stránek při změně hodnoty pomocí výkonné funkce


Při změně hodnoty pomocí kódu VBA vložte konce stránek

Následující kód VBA vám může pomoci vložit konce stránek níže na základě změn údajů v jednom sloupci, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

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

Kód VBA: Při změně hodnoty vložte konce stránky:

Sub insertpagebreaks()
'updateby Extendoffice
    Dim I As Long, J As Long
    J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
    For I = J To 2 Step -1
        If Range("A" & I).Value <> Range("A" & I - 1).Value Then
            ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
        End If
    Next I
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu, všechny konce stránek byly vloženy do listu při změně dat ve sloupci A. Viz screenshot:

Poznámka:Ve výše uvedeném kódu A je záhlaví sloupce, podle kterého chcete vložit konec stránky, můžete jej podle potřeby změnit.

Vkládání konců stránek při změně hodnoty pomocí výkonné funkce

Pokud máte Kutools pro Excel, S jeho Rozlišujte rozdíly Pomocí funkce můžete rychle vložit konce stránek, prázdné řádky, spodní ohraničení nebo barvu pozadí na základě změn hodnot. Klikněte a stáhněte si Kutools pro Excel!

Tip:Použít toto Rozlišujte rozdíly funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools > Formát > Rozlišujte rozdíly, viz screenshot:

2. Ve vyskočené Rozlišujte rozdíly podle sloupce klíče dialogové okno, proveďte následující operace:

  • Vyberte rozsah dat a klíčový sloupec, který chcete použít;
  • Vybrat Konec stránky z možnosti box.

3. Pak klikněte na tlačítko Ok tlačítko, konce stránek byly vloženy do rozsahu na základě změn hodnot, viz screenshot:

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Více relativních článků:

  • Zvýrazněte řádky při změně hodnoty buňky v aplikaci Excel
  • Pokud je v listu seznam opakovaných hodnot a je třeba zvýraznit řádky založené na sloupci A, která se změní na hodnotě buňky, jak ukazuje následující snímek obrazovky. Ve skutečnosti můžete tuto úlohu rychle a snadno dokončit pomocí funkce Podmíněné formátování.
  • Zvýšení čísel při změně hodnoty v jiném sloupci
  • Předpokládejme, že máte seznam hodnot ve sloupci A a nyní chcete zvýšit číslo o 1 ve sloupci B, když se změní hodnota ve sloupci A, což znamená, že čísla ve sloupci B se budou zvyšovat, dokud se nezmění hodnota ve sloupci A, pak přírůstek čísla začíná znovu od 1, jak je zobrazeno levé zobrazení obrazovky. V aplikaci Excel můžete tuto úlohu vyřešit následující metodou.
  • Součet buněk při změně hodnoty v jiném sloupci
  • Když pracujete na listu aplikace Excel, někdy možná budete muset sečíst buňky na základě skupiny dat v jiném sloupci. Například zde chci sečíst objednávky ve sloupci B, když se data změní ve sloupci A, abych získal následující výsledek. Jak byste mohli tento problém vyřešit v aplikaci Excel?
  • Při změně hodnoty v aplikaci Excel vložte prázdné řádky
  • Předpokládejme, že máte rozsah dat a nyní chcete mezi data při změně hodnoty vložit prázdné řádky, abyste mohli oddělit postupné stejné hodnoty v jednom sloupci, jak ukazují následující snímky obrazovky. V tomto článku budu mluvit o některých tricích, jak vyřešit tento problém.
  • Spustit makro při změně hodnoty buňky v aplikaci Excel
  • Normálně v aplikaci Excel můžeme stisknutím klávesy F5 nebo tlačítka Spustit spustit kód VBA. Zkusili jste ale někdy spustit konkrétní kód makra, když se změní hodnota buňky? V tomto článku představím několik rychlých triků, jak zvládnout tuto práci 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-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
Ahoj Děkuji! Při myšlence na VBA se zapotím. Mám však jeden problém s výsledky tohoto kódu. První sloupec je záhlaví sloupce. Kód to považuje za změnu. Moje první stránka zobrazuje pouze záhlaví sloupce, ale další stránky jsou v pořádku. Pro informaci: Toto je pro měsíční přehled a počet řádků pro každé kritérium se mění měsíčně. Nějaké nápady? Děkuji předem.
Tento komentář byl moderátorem webu minimalizován
Promiňte. EDIT: První ŘÁDEK je záhlaví sloupce.
Tento komentář byl moderátorem webu minimalizován
To je opravdu skvělé! Sledoval jsem váš příklad VB a fungovalo to! Jsem také vlastníkem KUTools, takže si s tím taky pohraju.

Velmi ohromen a děkuji!

mikrofon
Tento komentář byl moderátorem webu minimalizován
Je možné přeskočit prvních 20 řádků listu? Pokud jsem zkoušel všechny druhy věcí, ale moje znalosti VBA jsou omezené na to, abych si kód upravil sám.
Tento komentář byl moderátorem webu minimalizován
Ahoj, Wilco,
Chcete-li vložit konec stránky, ale přeskočit prvních 20 řádků, stačí změnit jeden parametr, jak je uvedeno níže:

Dílčí insertpagebreaks()

'aktualizovat od Extendoffice

Dim I As Long, J As Long

J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row

Pro I = J až 21 Krok -1

If Range("A" & I).Value <> Range("A" & I - 1).Value Then

ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)

End If

Příště já

End Sub

Zkuste to prosím, děkuji!
Tento komentář byl moderátorem webu minimalizován
Tôi không muốn ngắt trang tại những hàng bị ẩn. Co to je?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Lê Tuấn
Chcete-li vyřešit svůj problém, použijte níže uvedený kód VBA:
Sub insertpagebreaks()
'updateby Extendoffice
Dim I As Long, J As Long
Dim xRg As Range
On Error Resume Next
J = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
Set xRg = Range("A1:A" & J).SpecialCells(xlCellTypeVisible)

For I = J To 2 Step -1
If Range("A" & I).Value <> Range("A" & I - 1).Value Then
If Not Intersect(xRg, Range("A" & I)) Is Nothing Then
ActiveSheet.HPageBreaks.Add Before:=Range("A" & I)
End If
End If
Next I
End Sub


Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Merci pour le code qui fonctionne très bien, seulement je souhaite asouter un saut de page après et non avant chaque changement de valeur... que faut-il changer dans le code ?

Děkuji moc!
Zatím zde nejsou žádné komentáře
Zanechte prosím své komentáře v angličtině
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