Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
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 te groeperen zoals u nodig hebt. Maar als er veel groepen in het blad zitten, hoe kunt u dan snel alle groepen uitbreiden of sluiten zonder handmatig te klikken? Hier introduceer ik VBA-codes om deze taak gemakkelijk in Excel op te lossen.
doc expand sluit alle groep 1

Breid of sluit alle groepen rijen en kolommen in Excel

Met tabbladen bladeren en bewerken van meerdere Excel-werkmappen / Word-documenten als Firefox, Chrome, Internet Verkennen 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Excel-werkmappen of Word-documenten kunt bladeren in een Excel-venster of in een Word-venster en eenvoudig kunt schakelen tussen deze werkbladen door op hun tabbladen te klikken. Klik voor gratis 45-dag proef van Office Tab!

iet uitblinken

Breid of sluit alle groepen rijen en kolommen in Excel

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

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

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

VBA: alle groepen uitvouwen

Sub ExpandAll () 'UpdatebyExtendoffice20181031 Dim I As Integer Dim J As Integer On Error Doorgaan Volgende Voor I = 1 Naar 100 werkbladen ("Sheet1"). Outline.ShowLevels rowLevels: = I If Err.Number <> 0 Then Err.Clear Exit Voor einde als volgende ik voor J = X NUMX naar 1 werkbladen ("Sheet100"). Outline.ShowLevels columnLevels: = J If Err.Number <> 1 Dan Err.Clear afsluiten voor einde als volgende J einde sub

3. druk op F5 sleutel, de groepen in Sheet1 zijn uitgebreid.
doc expand sluit alle groep 2

Als je alle groepen wilt sluiten, kun je onderstaande code gebruiken:

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

doc expand sluit alle groep 3

Let op: in bovenstaande codes, Blad1 is het blad bevat groepen die u zult worden uitgebreid of gesloten. Wijzig deze alsjeblieft in je eigen bladnaam als je dat wilt.


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 29 days ago
    Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs