Gå til hovedindhold

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:

doc-sorter-faner-efter-farve1

Sorter regnearkfaner efter farve med VBA-kode

Sorter regnearkfaner efter farve med Kutools til Excel


pil blå højre boble 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å  doc-multiplicere-beregning-3 knap for at udføre koden. Og alle regnearkfaner er sorteret efter farve. Se skærmbilleder:

doc-sorter-faner-efter-farve2
-1
doc-sorter-faner-efter-farve3

pil blå højre boble 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:

doc-sorter-faner-efter-farve4

2. i Sorter ark dialogboksen, klik Farvesortering knappen, vil du se den nye fanerækkefølge i ruden Nyt arkfaner. Se skærmbillede:

doc-sorter-faner-efter-farve5

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

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

Beskrivelse


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!
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