Hvordan sorterer man regnearkfaner efter farve i Excel?
For eksempel til behandling og administration af en projektmappe med for mange regneark kan du tilføje en fanefarve til den relevante regnearkfane, og derefter kan du nemt sortere og identificere arkfaner efter deres farver i Excel. Denne artikel viser dig, hvor hurtigt du kan sortere arkfaner efter farve i Excel som følger:
Sorter regnearkfaner efter farve med VBA-kode
Sorter regnearkfaner efter farve med Kutools til Excel
Sorter regnearkfaner efter farve med VBA-kode
Ved hjælp af følgende VBA-kode kan du sortere fanerne efter farve. Gør følgende:
1. klik Udvikler > Visual Basic, En ny Microsoft Visual Basic til applikationer vindue vises, skal du klikke indsatte > Moduler, og indtast følgende kode i modulet:
VBA: Sorter ark efter farver.
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. Klik derefter på knap for at udføre koden. Og alle regnearkfaner er sorteret efter farve. Se skærmbilleder:
Sorter regnearkfaner efter farve med Kutools til Excel
Med Sorter ark of Kutools til Excel, kan du ikke kun sortere arkfaner efter farve, men også hurtigt sortere arkfaner efter alfa eller alfanumerisk.
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Hent den nu.
Hvis du har installeret Kutools til Excel, kan du sortere regnearkfaner med følgende trin:
1. klik Enterprise > Arbejdsarkværktøjer > Sorter ark, se skærmbillede:
2. i Sorter ark dialogboksen, klik Farvesortering knappen, vil du se den nye fanerækkefølge i ruden Nyt arkfaner. Se skærmbillede:
3. Klik derefter på OK for at sortere fanerne.
Kutools til Excel's Sorter ark værktøj kan hurtigt omarrangere alle regneark i den aktive projektmappe. Det understøtter flere sorteringstyper, herunder Alfa sortering, Alfanumerisk sortering, Farvesortering , Omvendt. Derudover kan du også bevæg dig op / ned regneark, og nulstil sorteringen. Klik for at vide mere om dette værktøj.
Relateret artikel:
Sorter regneark i alfabetisk / alfanumerisk rækkefølge i Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!