Jak skrýt nebo zobrazit skryté řádky nebo sloupce při poklepání na buňku v aplikaci Excel?

Řádky a sloupce lze obvykle skrýt nebo zobrazit kliknutím pravým tlačítkem a výběrem možnosti Skrýt nebo Zobrazit v místní nabídce. V tomto článku mluvíme o rychlém skrytí nebo zobrazení zadaných řádků nebo sloupců poklepáním na buňku v aplikaci Excel.

Při poklepání na buňku s kódem VBA skryjte nebo odkryjte určené řádky nebo sloupce

Při poklepání na buňku s kódem VBA skryjte nebo odkryjte určené řádky nebo sloupce

Úžasný! Používání efektivních karet v Excelu, jako je Chrome, Edge, Firefox a Safari!
Ušetřete 50% svého času a snížíte tisíce kliknutí myší každý den!

Následující kódy VBA vám pomohou rychle skrýt nebo zobrazit skryté řádky nebo sloupce v listu poklepáním na určitou buňku. Postupujte prosím následovně.

1. Otevřete list, do kterého chcete skrýt řádky nebo sloupce. Klepněte pravým tlačítkem na kartu list a potom klepněte na Zobrazit kód z kontextové nabídky.

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

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("10:13")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("D:E")
        xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
    End If
End Sub

Poznámka: V kódu, A1: A4, 10:13 a D: E označují, že při poklepání na kteroukoli buňku rozsahu A1:A4 se řádek 10:13 nebo sloupec D:E automaticky skryje.

3. zmáčkni Další + F11 klávesy pro zavření Microsoft Visual Basic pro aplikace okno.

Od této chvíle se při dvojitém kliknutí na kteroukoli buňku v rozsahu A1:A4, řádek 10:13 nebo sloupec D:E automaticky skryje. A znovu dvojitým kliknutím na buňku okamžitě zobrazíte všechny skryté řádky nebo sloupce.

Související články:

• Jak kliknutím nebo dvojitým kliknutím na buňku otevřete zadaný formulář uživatele v aplikaci Excel?
• Jak přidat zaškrtnutí do buňky dvojitým kliknutím v aplikaci Excel?
• Jak automaticky přidat / zadat aktuální datum a čas v buňce dvojitým kliknutím v aplikaci Excel?
• Jak dvakrát kliknout na buňku a přidat 1 k této hodnotě buňky v aplikaci Excel?
• Jak zobrazit kalendář při kliknutí na konkrétní buňku v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

🤖	Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
	Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
	Super vyhledávání: Více kritérií VLookup  |   VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
	Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
	Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
	Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar   |  Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky   |  Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
	Top 15 sad nástrojů:  12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

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...

Čtěte více... Stažení zdarma...

---

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!

Čtěte více... Stažení zdarma...