Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe alle groepsrijen en -kolommen in Excel uit te vouwen of te sluiten?

In Excel kunt u het hulpprogramma Groep gebruiken om gegevens naar behoefte te groeperen. Maar als er veel groepen op het blad staan, hoe kunt u dan snel alle groepen uitvouwen of sluiten zonder handmatig te klikken? Hier introduceer ik VBA-codes om deze taak eenvoudig in Excel op te lossen.
doc uitvouwen sluit alle groep 1

Vouw alle rijen en kolommen van groepen uit of sluit deze in Excel


Vouw alle rijen en kolommen van groepen uit of sluit deze in Excel

Hier zijn enkele VBA-codes die u kunnen helpen om alle groepen tegelijk uit te breiden of te sluiten.

1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > module, kopieer en plak de blaascode in de nieuwe module。

VBA: vouw alle groepen uit

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. druk op F5 key, zijn de groepen in Sheet1 uitgebreid.
doc uitvouwen sluit alle groep 2

Als u alle groepen wilt sluiten, kunt u onderstaande code gebruiken:

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

doc uitvouwen sluit alle groep 3

Opmerking: in bovenstaande codes is Blad1 het blad dat groepen bevat die u zult worden uitgevouwen of gesloten. Wijzig het indien nodig in uw eigen bladnaam.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    CJ · 1 years ago
    Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs