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

Jak používat zaškrtávací políčko pro skrytí / skrytí řádků nebo sloupců v aplikaci Excel?

Předpokládejme, že ke skrytí nebo skrytí určitých řádků nebo sloupců musíte použít zaškrtávací políčko. Když je například zaškrtnuto políčko Ovládací prvek Active X, zobrazí se určité řádky nebo sloupce, jinak budou skryty. Tento článek ukazuje metodu, jak pomocí zaškrtávacího políčka skrýt / odkrýt řádky nebo sloupce v aplikaci Excel s podrobnostmi.

Pomocí zaškrtávacího políčka můžete skrýt nebo zobrazit řádky nebo sloupce pomocí kódu VBA


Pomocí zaškrtávacího políčka můžete skrýt nebo zobrazit řádky nebo sloupce pomocí kódu VBA

Následující kód VBA vám pomůže skrýt / zobrazit některé řádky nebo sloupce pomocí zaškrtávacího políčka.

1. Po vložení zaškrtávacího políčka ovládacího prvku Active X do listu klikněte pravým tlačítkem na zaškrtávací políčko a poté vyberte Zobrazit kód z nabídky pravého tlačítka myši. Viz screenshot:

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte následující kód VBA do okna Kód.

Kód VBA: Pomocí zaškrtávacího políčka skryjete / zobrazíte řádky nebo sloupce

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Poznámky:

1. V kódu VBA, [CD]. Celý sloupec znamená, že sloupce C a D budou skryty nebo odkryty zaškrtnutím nebo zrušením zaškrtnutí příslušného zaškrtávacího políčka.

2. Chcete-li skrýt nebo zobrazit určité řádky, například řádek 6: 9, změňte [CD]. Celý sloupec na [6: 9]. Celá řada v kódu VBA.

3. zmáčkni Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

4. Nyní prosím vypněte Režim návrhu pod Vývojka záložka jak je ukázáno níže:

Od nynějška se po zaškrtnutí políčka zobrazí zadané řádky nebo sloupce. Pokud není zaškrtnuto, zadané řádky nebo sloupce jsou skryty.


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 (26)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak použít zaškrtávací políčko „Použít ke skrytí/odkrytí řádků nebo sloupců s kódem VBA“ na chráněném listu?
Tento komentář byl moderátorem webu minimalizován
@Wayne:

Private Sub CheckBox1_Click ()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
Heslo ActiveSheet.Protect:="xxxx"
End Sub
Tento komentář byl moderátorem webu minimalizován
Zdá se, že tento kód půjde pouze jedním směrem, tj. pouze je skryje a po kliknutí je neodkryje. Dá se to nějak napravit?
Tento komentář byl moderátorem webu minimalizován
Máme stejný problém, ale zjistil jsem, že používáme ovládací prvky formuláře a ne ovládací prvky ActiveX. Kód perfektně funguje v tlačítku ovládacího prvku ActiveX. Stačí vypnout režim návrhu, abyste mohli zaškrtnout políčko.
Tento komentář byl moderátorem webu minimalizován
Máme stejný problém, ale najdeme způsob, jak to udělat. Použijte prosím zaškrtávací políčko Ovládací prvky ActiveX, nikoli zaškrtávací políčko Ovládací prvek formuláře. Kód perfektně funguje se zaškrtávacím políčkem ActiveX.


Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Není zaškrtávací políčko1
End Sub
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Snažím se tento kód použít ke skrytí/odkrytí na samostatném listu ze zaškrtávacího políčka. Co musím přidat, aby to fungovalo? Díky předem.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Není zaškrtávací políčko1
End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Jak je zobrazeno v následujícím kódu, nahraďte prosím „Sheet4“ svým samostatným názvem listu.

Private Sub CheckBox1_Click ()
[List4!C:D].EntireColumn.Hidden = Není zaškrtávací políčko1
End Sub
Tento komentář byl moderátorem webu minimalizován
Dobrý den,

Ahoj, kód jsem udělal, funguje to dobře, ale když se pokusím udělat totéž ve více než jednom zaškrtávacím políčku na stejném listu, fungují „společně“, pouze skryjí nebo odkryjí řádky, pokud jsou zaškrtnuta všechna tři zaškrtávací políčka.
Snažím se, aby tato tři zaškrtávací políčka fungovala nezávisle na sobě. A nechat uživatele označit vždy pouze jedno pole.
Tento komentář byl moderátorem webu minimalizován
ahoj lou,
Ujistěte se, že zaškrtávací políčka, která jste vytvořili, jsou zaškrtávací políčka ovládacích prvků ActiveX. Tato zaškrtávací políčka fungují ve vašem listu nezávisle.
Díky za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Existuje způsob, jak skrýt pouze jeden řádek. Pokud dám 6:9, všechny řádky se skryjí, ale pokud dám pouze 6, vyjde to jako chyba. Ocenili bychom vaši pomoc, děkujeme!
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Změňte prosím druhý řádek v kódu na:
[6:6].EntireRow.Hidden = Není zaškrtávací políčko1.
Děkujeme za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Snažil jsem se odkrýt první tři role, ale nešlo to. Jak to mohu udělat, vím, že ten, kdo mi poslal ten soubor, chce znát moje dovednosti, mohu to vyřešit nebo ne.
Tento komentář byl moderátorem webu minimalizován
ahoj May,
Promiň, že jsem nepochopil tvůj názor.
Tento komentář byl moderátorem webu minimalizován
Fungovalo to, ale když jsem soubor uložil a znovu otevřel, nefunguje to. Zkusil jsem to uložit jako makro excelový list a jako běžný sešit. co jsem udělal špatně? Chci to dát k použití někomu jinému a nechci, aby byl zmatený.
Tento komentář byl moderátorem webu minimalizován
Ahoj angelo, po přidání kódu do sešitu klikněte na Soubor > Uložit jako, vyberte, kam chcete soubor uložit, v dialogovém okně Uložit jako vyberte sešit Excel s podporou maker (*.xlsm) z rozevírací nabídky Uložit jako typ a nakonec klikněte na Uložit. Pak tento excelový sešit s podporou maker pošlete ostatním.
Tento komentář byl moderátorem webu minimalizován
Velmi užitečné, ale jak jej mohu použít ke skrytí pouze části tabulky? Mám na mysli například buňky B2:B11, jak tyto dvě funkce zkombinovat? Dík.
Tento komentář byl moderátorem webu minimalizován
Co kdybych chtěl použít 3 různá zaškrtávací políčka a chtěl, aby každé přepínalo skrývání různých skupin řádků? Zkoušel jsem a prohledal vše. Když se pokouším upravit tento kód, zaškrtávací políčka se navzájem ruší.
Tento komentář byl moderátorem webu minimalizován
Co kdybych chtěl použít 3 různá zaškrtávací políčka a chtěl, aby každé přepínalo skrývání různých skupin řádků? Zkoušel jsem a prohledal vše. Když se pokouším upravit tento kód, zaškrtávací políčka se navzájem ruší.
Tento komentář byl moderátorem webu minimalizován
Esse código oculta, mas não executa a reexibição quando desmarkcar.

Alguém pode komplementární por favor? Přesný kód pro okultní a reexibir colunas indicadas.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Není zaškrtávací políčko1
End Sub

Děkuji
Tento komentář byl moderátorem webu minimalizován
Ahoj Welingtone Mesquita,
Tento kód VBA může dosáhnout:
Když je zaškrtnuto políčko 1, zobrazí se sloupec C:D;
Pokud není zaškrtnuto, sloupec C:D je skrytý.
Kód v mém případě funguje dobře. Jakou verzi Excelu používáte?
Tento komentář byl moderátorem webu minimalizován
Dobrý den!
Espero que todos estejam bem!

Tato situace se nachází v přesném okultu / reexibir a sloupec používá o Control ActiveX jako samostatný prvek.

Příklad: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) a Variação (%), no entanto, que poder selectionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não estando on the seequencia.

Desde já agradeço,
Welington
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Promiň, nerozumím tomu, co myslíš. Nevadilo by vám poskytnout snímek obrazovky vašich dat?
Možná budete muset připojit snímek obrazovky nebo ukázkový soubor, abyste jasněji popsali problém, na který jste narazili.
Tento komentář byl moderátorem webu minimalizován
E para ocultar colunas não sequências?
Příklad: A a C

Esta situação seria aplicado de que form para A e C ?

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Není CheckBox1
End Sub"
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Následující kód VBA vám může pomoci. Zkuste to prosím.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Tento komentář byl moderátorem webu minimalizován
Bei mir werden die Zellen nict ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Pomoci ....
Tento komentář byl moderátorem webu minimalizován
Ahoj Rose,
Pomoci může následující kód VBA.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
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