Hoe werkbladtabs op kleur te sorteren in Excel?

Bij het werken met grote Excel-werkboeken die meerdere werkbladen bevatten, helpt het toewijzen van kleuren aan werkbladtabs bij het visueel categoriseren en organiseren ervan. Excel biedt echter geen ingebouwde optie om werkbladtabs automatisch op kleur te sorteren. In dit artikel verkennen we twee effectieve methoden om werkbladtabs op kleur te sorteren in Excel.

Werkbladtabs op kleur sorteren met VBA-code

Werkbladtabs op kleur sorteren met Kutools voor Excel

Werkbladtabs op kleur sorteren met VBA-code

Met de volgende VBA-code kun je de tabs op kleur sorteren. Volg deze stappen:

1. Klik op "Developer" > "Visual Basic", een nieuw venster "Microsoft Visual Basic for Applications" wordt weergegeven, klik op "Invoegen" > "Module", en voer de volgende code in de Module in:

VBA: Werkbladen sorteren op kleuren.

Sub SortWorkBookByColor()
'UpdatebyExtendoffice
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. Druk vervolgens op "F5" of klik op de knop "Uitvoeren" om de code uit te voeren. Alle werkbladtabs zijn nu gesorteerd op kleur.

Werkbladtabs op kleur sorteren met Kutools voor Excel

Met Kutools kun je snel je tabs opnieuw ordenen op basis van hun kleuren, wat tijd bespaart en elimineert de noodzaak voor handmatig sorteren of sorteren met VBA-code. In deze sectie laten we zien hoe je Kutools voor Excel kunt gebruiken om werkbladtabs eenvoudig op kleur te sorteren.

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

1. Klik op "Kutools Plus" > "Werkblad" > "Alle tabbladen sorteren".

2. Klik in het dialoogvenster "Alle tabbladen sorteren" op de knop "Kleursortering", je ziet de nieuwe volgorde van de tabs in het paneel "Na sorteren".

3. Klik vervolgens op "OK" om de tabs te sorteren.

Deze functie kan snel alle werkbladen in het huidige werkboek opnieuw rangschikken. Het ondersteunt verschillende sorteermethodes, waaronder "Alfabetisch sorteren", "Exact sorteren", "Kleursortering" en "Omgekeerd sorteren". Daarnaast kun je ook werkbladen "omhoog / omlaag" verplaatsen en de sortering resetten.

Het sorteren van werkbladtabs op kleur in Excel verbetert de organisatie en maakt het navigeren door grote werkboeken gemakkelijker. Hoewel Excel geen ingebouwde optie hiervoor heeft, behandelt dit artikel twee nuttige methoden voor jou. Kies de methode die het beste bij je behoeften past, en maak optimaal gebruik van de kleurfunctie van de tabbladen in Excel om je workflow te stroomlijnen! Als je geïnteresseerd bent in meer Excel-tips en -trucs, onze website biedt duizenden tutorials.

Gerelateerd artikel:

Werkbladen in alfabetische / alfanumerieke volgorde sorteren in Excel