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 Sub2. 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 Podjetje > Orodja za delovne liste > Razvrsti liste, glej posnetek zaslona:
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
Najboljša pisarniška orodja za produktivnost
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...
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!
