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

Ha több munkalapot tartalmazó nagy Excel-munkafüzetekkel dolgozik, a munkalapfülekhez színek hozzárendelése segít a vizuális kategorizálásban és rendszerezésben. Az Excel azonban nem biztosít beépített lehetőséget a munkalapok lapjainak automatikus szín szerinti rendezésére. Ebben a cikkben két hatékony módszert vizsgálunk meg a munkalapok lapjainak szín szerinti rendezésére az Excelben.

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

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()
'UpdatebyExtendoffice
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   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:

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

A Kutools segítségével gyorsan átrendezheti lapjait színük alapján, így időt takaríthat meg, és nincs szükség kézi rendezésre vagy VBA-kód rendezésre. Ebben a részben megmutatjuk, hogyan használhatja a Kutools for Excel alkalmazást a munkalapok lapjainak szín szerinti egyszerű rendezéséhez.

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

1. kettyenés Kutools Plus > Munkalap > Levélek rendezése.

2. Ban,-ben Levélek rendezése párbeszédpanelen kattintson a gombra Szín rendezés gombot, az új lapok sorrendjét láthatja a Új lapfülek sorrendje ablaktábla. Lásd a képernyőképet:

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.

A munkalapok lapjainak szín szerinti rendezése az Excelben javítja a rendszerezést és megkönnyíti a navigációt a nagy munkafüzetekben. Noha az Excel nem rendelkezik erre a beépített lehetőséggel, ez a cikk két hasznos módszerről szól. Válassza ki az igényeinek leginkább megfelelő módszert, és használja ki teljes mértékben az Excel lapszín funkcióját a munkafolyamat egyszerűsítésére! Ha további Excel-tippeket és trükköket szeretne felfedezni, weboldalunk több ezer oktatóanyagot kínál.

Kapcsolódó cikk:

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