Ga naar hoofdinhoud

Hoe werkbladtabbladen op kleur in Excel te sorteren?

Als u bijvoorbeeld een werkmap met te veel werkbladen gemakkelijk wilt verwerken en beheren, kunt u een tabbladkleur toevoegen aan het relevante werkbladtabblad en vervolgens kunt u de bladtabs gemakkelijk sorteren en identificeren op basis van hun kleuren in Excel. In dit artikel wordt uitgelegd hoe snel u bladtabs op kleur kunt sorteren in Excel als volgt:

doc-sorteer-tabbladen-op-kleur1

Sorteer werkbladtabbladen op kleur met VBA-code

Sorteer werkbladtabbladen op kleur met Kutools voor Excel


pijl blauw rechts bel Sorteer werkbladtabbladen op kleur met VBA-code

Met behulp van de volgende VBA-code kunt u de tabbladen op kleur sorteren. Ga als volgt te werk:

1. klikken Ontwikkelaar Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Module, en voer de volgende code in de module in:

VBA: sorteer bladen op kleur.

Sub SortWorkBookByColor()
'Updateby20140624
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
    For i = 1 To Application.ActiveWorkbook.Worksheets.Count
        If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
            n = n + 1
            ReDim Preserve xArray1(1 To n)
            ReDim Preserve xArray2(1 To n)
            xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
            xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
        End If
    Next
    For i = 1 To n
        For j = i To n
            If xArray1(j) < xArray1(i) Then
                temp = xArray2(i)
                xArray2(i) = xArray2(j)
                xArray2(j) = temp
                temp = xArray1(i)
                xArray1(i) = xArray1(j)
                xArray1(j) = temp
            End If
        Next
    Next
    For i = n To 1 Step -1
        Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
    Next
End If
Application.ScreenUpdating = True
End Sub

2. Dan klikken  doc-multiply-berekening-3 knop om de code uit te voeren. En alle werkbladtabbladen zijn op kleur gesorteerd. Zie screenshots:

doc-sorteer-tabbladen-op-kleur2
-1
doc-sorteer-tabbladen-op-kleur3

pijl blauw rechts bel Sorteer werkbladtabbladen op kleur met Kutools voor Excel

Met de Sorteer bladen of Kutools for Excel, kunt u de bladtabs niet alleen op kleur sorteren, maar kunt u ook snel de bladtabs sorteren op alfanumeriek of alfanumeriek.

Kutools voor Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Profiteer nu.

Als je Kutools voor Excel hebt geïnstalleerd, kun je werkbladtabbladen sorteren met de volgende stappen:

1. klikken Enterprise > Werkbladhulpmiddelen > Sorteer bladen, zie screenshot:

doc-sorteer-tabbladen-op-kleur4

2. In de Sorteer bladen dialoogvenster, klik Kleur sorteren knop, ziet u de volgorde van de nieuwe tabbladen in het deelvenster Nieuwe bladtabbladen. Zie screenshot:

doc-sorteer-tabbladen-op-kleur5

3. En klik dan OK om de tabbladen te sorteren.

Kutools for Excel's Sorteer bladen tool kan snel alle werkbladen in de actieve werkmap herschikken. Het ondersteunt verschillende sorteringstypen, waaronder Alpha Sorteren, Alfanumeriek sorteren, Kleur sorteren en Omkeren. Bovendien kunt u ook omhoog / omlaag gaan werkbladen en reset de sortering. Klik om meer te weten over dit hulpprogramma.


Gerelateerd artikel:

Sorteer werkbladen in alfabetische / alfanumerieke volgorde in Excel

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations