Kako razvrstiti zavihke delovnih listov po barvah v Excelu?

Na primer, za enostavno obdelavo in upravljanje delovnega zvezka s preveč delovnimi listi lahko na zavihek ustreznega delovnega lista dodate barvo zavihka, nato pa lahko zavihke listov enostavno razvrstite in prepoznate po njihovih barvah v Excelu. Ta članek vam bo pokazal, kako hitro lahko v Excelu razvrstite zavihke listov po barvah, kot sledi:

Razvrstite zavihke delovnega lista po barvi s kodo VBA

Razvrstite zavihke delovnih listov po barvah s programom Kutools za Excel

Razvrstite zavihke delovnega lista po barvi s kodo VBA

Z naslednjo kodo VBA lahko jezičke razvrstite po barvah. Naredite naslednje:

1. klik Razvojni > Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

VBA: Razvrsti liste po barvah.

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. Nato kliknite   za izvedbo kode. Vsi zavihki delovnega lista so razvrščeni po barvah. Oglejte si posnetke zaslona:

Razvrstite zavihke delovnih listov po barvah s programom Kutools za Excel

Z Razvrsti liste of Kutools za Excel, jezičke listov lahko razvrstite ne samo po barvah, temveč lahko tudi jezičke listov hitro razvrstite po alfa ali številkah.

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. Pridi zdaj.

Če ste namestili Kutools za Excel, lahko razvrstite zavihke delovnih listov z naslednjimi koraki:

1. klik Kutools Plus > Delovni list > Razvrsti liste.

2. V Ljubljani Razvrsti liste pogovorno okno, kliknite Razvrstitev barv gumb, boste videli nov vrstni red zavihkov v podoknu New list tabs. Oglejte si posnetek zaslona:

3. In nato kliknite OK za razvrščanje zavihkov.

Kutools za Excel's Razvrsti liste orodje lahko hitro preuredi vse delovne liste v aktivnem delovnem zvezku. Podpira več vrst razvrščanja, vključno z Alfa Razvrsti, Črkovno številčno razvrščanje, Razvrstitev barv in Povratne. Poleg tega lahko tudi premikanje gor / dol in ponastavite razvrščanje. Kliknite, če želite izvedeti več o tej pripomočki.

Povezani članek:

Razvrstite delovne liste v abecednem / alfanumeričnem vrstnem redu v Excelu