Preskoči na glavno vsebino

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:

doc-razvrsti zavihke po barvi1

Razvrstite zavihke delovnega lista po barvi s kodo VBA

Razvrstite zavihke delovnih listov po barvah s programom Kutools za Excel


puščica modri desni mehurček 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  doc-pomnoži-izračun-3 za izvedbo kode. Vsi zavihki delovnega lista so razvrščeni po barvah. Oglejte si posnetke zaslona:

doc-razvrsti zavihke po barvi2
-1
doc-razvrsti zavihke po barvi3

puščica modri desni mehurček 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 Podjetje > Orodja za delovne liste > Razvrsti liste, glej posnetek zaslona:

doc-razvrsti zavihke po barvi4

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:

doc-razvrsti zavihke po barvi5

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

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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