Hur sorterar man kalkylbladets flikar efter färg i Excel?

Om du till exempel enkelt kan bearbeta och hantera en arbetsbok med för många kalkylblad kan du lägga till en flikfärg till den relevanta kalkylfliken och sedan enkelt sortera och identifiera arkflikarna efter deras färger i Excel. Den här artikeln visar hur snabbt du kan sortera arkflikar efter färg i Excel enligt följande:

Sortera kalkylbladets flikar efter färg med VBA-kod

Sortera kalkylbladets flikar efter färg med Kutools för Excel

---

Sortera kalkylbladets flikar efter färg med VBA-kod

Med hjälp av följande VBA-kod kan du sortera flikarna efter färg. Gör så här:

1. klick Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch mata in följande kod i modulen:

VBA: Sortera ark efter färger.

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. Klicka sedan   för att köra koden. Och alla kalkylbladets flikar har sorterats efter färg. Se skärmdumpar:

---

Sortera kalkylbladets flikar efter färg med Kutools för Excel

Med Sortera ark of Kutools för Excelkan du inte bara sortera arkflikarna efter färg utan också snabbt sortera arkflikar efter alfanumeriskt eller alfanumeriskt nummer.

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Hämta den nu.

Om du har installerat Kutools för Excel kan du sortera kalkylbladets flikar med följande steg:

1. klick Företag > Verktyg för kalkylblad > Sortera ark, se skärmdump:

2. I Sortera ark dialogrutan, klicka Färgsortering -knappen, kommer du att se den nya flikordningen i rutan Ny flikordning. Se skärmdump:

3. Och klicka sedan på OK för att sortera flikarna.

Kutools för Excel's Sortera ark verktyget kan snabbt ordna om alla kalkylblad i den aktiva arbetsboken. Den stöder flera sorteringstyper, inklusive Alpha sortering, Alfanumerisk sortering, Färgsortering och Vända. Dessutom kan du också flytta upp / ner kalkylblad och återställ sorteringen. Klicka för att veta mer om det här verktyget.

---

Relaterad artikel:

Sortera kalkylblad i alfabetisk / alfanumerisk ordning i Excel