Přejít k hlavnímu obsahu

Jak rozbalit nebo zavřít všechny řádky a sloupce skupiny v aplikaci Excel?

V aplikaci Excel můžete použít nástroj Group k seskupení dat podle potřeby. Pokud ale v listu existuje mnoho skupin, jak můžete rychle rozbalit nebo zavřít všechny skupiny bez ručního kliknutí? Zde představuji kódy VBA, abych tuto práci snadno vyřešil v aplikaci Excel.
rozbalit dokument zavřít celou skupinu 1

Rozbalte nebo zavřete všechny skupiny řádků a sloupců v aplikaci Excel


Rozbalte nebo zavřete všechny skupiny řádků a sloupců v aplikaci Excel

Zde je několik kódů VBA, které vám pomohou rozšířit nebo zavřít všechny skupiny najednou.

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, zkopírujte a vložte foukací kód do nového modulu。

VBA: Rozbalte všechny skupiny

Sub ExpandAll()
'UpdatebyExtendoffice20181031
    Dim I As Integer
    Dim J As Integer
   
    On Error Resume Next
    For I = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next I
    For J = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next J
End Sub

 

3. lis F5 klíč, skupiny v Listu1 byly rozšířeny.
rozbalit dokument zavřít celou skupinu 2

Chcete-li zavřít všechny skupiny, můžete použít níže uvedený kód:

Sub CollapseAll()
    Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub

rozbalit dokument zavřít celou skupinu 3

Poznámka: ve výše uvedených kódech je List1 list obsahující skupiny, které budou rozbaleny nebo uzavřeny. Pokud potřebujete, změňte jej na název vlastního listu.

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

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

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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations