Ugrás a tartalomra

Hogyan rendezhetjük a munkalap lapjait szín szerint az Excelben?

Szerző: Xiaoyang Utolsó módosítás: 2014-06-24

Például a túl sok munkalapot tartalmazó munkafüzet egyszerű feldolgozásához és kezeléséhez hozzáadhat egy tabulátorszínt a megfelelő munkalap fülhöz, majd az Excelben könnyen rendezheti és azonosíthatja a lapfület a színeik szerint. Ez a cikk megmutatja, milyen gyorsan rendezheti a lapokat a szín szerint az Excelben az alábbiak szerint:

doc-sort-tabs-by-color1

A munkalapok lapjait szín szerint rendezheti VBA kóddal

A munkalapok lapjait szín szerint rendezheti a Kutools for Excel segítségével


nyíl kék jobb buborék A munkalapok lapjait szín szerint rendezheti VBA kóddal

A következő VBA kód használatával a füleket szín szerint rendezheti. Kérjük, tegye a következőket:

1. kettyenés Fejlesztő Visual Basic, egy új Microsoft Visual Basic alkalmazásokhoz ablak jelenik meg, kattintson a gombra betétlap > Modulok, és írja be a következő kódot a modulba:

VBA: Válogassa a lapokat színek szerint.

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. Ezután kattintson  doc-szorzás-számítás-3 gombot a kód végrehajtásához. A munkalap összes fülét szín szerint rendezték. Képernyőképek megtekintése:

doc-sort-tabs-by-color2
-1
doc-sort-tabs-by-color3

nyíl kék jobb buborék A munkalapok lapjait szín szerint rendezheti a Kutools for Excel segítségével

Aktivitáskövető Levélek rendezése of Kutools az Excel számára, nem csak a lapfüleket rendezheti szín szerint, hanem gyorsan rendezheti a lapfüleket alfa vagy alfa numerikus szerint is.

Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Szerezd meg most.

Ha telepítette a Kutools for Excel programot, a következő lépésekkel rendezheti a munkalapok lapjait:

1. kettyenés Vállalkozás > Munkalap eszközök > Levélek rendezése, lásd a képernyőképet:

doc-sort-tabs-by-color4

2. Ban,-ben Levélek rendezése párbeszédpanelen kattintson a gombra Szín rendezés gombra kattintva megjelenik az új lapok sorrendje az Új lap fülek sorrendben. Lásd a képernyőképet:

doc-sort-tabs-by-color5

3. Ezután kattintson OK a fülek rendezéséhez.

Kutools az Excel számára's Levélek rendezése eszköz gyorsan átrendezheti az aktív munkafüzet összes munkalapját. Több rendezési típust támogat, beleértve a Alfa rendezés, Alfa numerikus rendezés, Szín rendezés és a Fordított. Ezen felül, akkor is mozogni fel / le munkalapokat, és állítsa vissza a rendezést. Kattintson, ha többet szeretne megtudni erről a segédprogramról.


Kapcsolódó cikk:

A munkalapok rendezése ábécé / alfanumerikus sorrendbe az Excel programban

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations