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
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!