Przejdź do głównej zawartości

Jak sortować karty arkusza według koloru w programie Excel?

Na przykład w celu łatwego przetwarzania i zarządzania skoroszytem zawierającym zbyt wiele arkuszy można dodać kolor karty do odpowiedniej karty arkusza, a następnie można łatwo sortować i identyfikować karty arkuszy według ich kolorów w programie Excel. W tym artykule dowiesz się, jak szybko możesz sortować karty arkuszy według kolorów w programie Excel w następujący sposób:

doc-sortuj-zakładki-według-koloru1

Sortuj karty arkusza według koloru za pomocą kodu VBA

Sortuj karty arkusza według koloru za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Sortuj karty arkusza według koloru za pomocą kodu VBA

Korzystając z następującego kodu VBA, możesz sortować karty według koloru. Wykonaj następujące czynności:

1. kliknij Deweloper Visual Basic, Nowy Microsoft Visual Basic dla aplikacji zostanie wyświetlone okno, kliknij wstawka > Modułi wprowadź następujący kod do modułu:

VBA: Sortuj arkusze według kolorów.

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. Następnie kliknij  doc-pomnóż-obliczenie-3 przycisk, aby wykonać kod. Wszystkie karty arkusza zostały posortowane według kolorów. Zobacz zrzuty ekranu:

doc-sortuj-zakładki-według-koloru2
-1
doc-sortuj-zakładki-według-koloru3

strzałka niebieski prawy bąbelek Sortuj karty arkusza według koloru za pomocą Kutools for Excel

Z Sortuj arkusze of Kutools dla programu Excel, możesz nie tylko sortować karty arkuszy według koloru, ale także szybko sortować karty arkuszy według alfabetu lub alfanumerycznej.

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. Zdobądź to teraz.

Jeśli zainstalowałeś Kutools dla programu Excel, możesz sortować karty arkusza, wykonując następujące czynności:

1. kliknij Enterprise > Narzędzia arkusza roboczego > Sortuj arkuszezobacz zrzut ekranu:

doc-sortuj-zakładki-według-koloru4

2. w Sortuj arkusze okno dialogowe, kliknij Sortowanie kolorów , zobaczysz nową kolejność kart w panelu Kolejność kart nowych arkuszy. Zobacz zrzut ekranu:

doc-sortuj-zakładki-według-koloru5

3. A następnie kliknij OK aby posortować karty.

Kutools dla programu Excel's Sortuj arkusze narzędzie może szybko zmienić kolejność wszystkich arkuszy w aktywnym skoroszycie. Obsługuje kilka typów sortowania, w tym Sortowanie alfa, Sortowanie alfanumeryczne, Sortowanie kolorów i Odwrócenie. Ponadto możesz też ruch w górę / w dół arkusze i zresetuj sortowanie. Kliknij, aby dowiedzieć się więcej o tym narzędziu.


Podobne artykuły:

Sortuj arkusze w porządku alfabetycznym / alfanumerycznym w programie Excel

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
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