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:
Sortuj karty arkusza według koloru za pomocą kodu VBA
Sortuj karty arkusza według koloru za pomocą Kutools for Excel
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 przycisk, aby wykonać kod. Wszystkie karty arkusza zostały posortowane według kolorów. Zobacz zrzuty ekranu:
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:
2. w Sortuj arkusze okno dialogowe, kliknij Sortowanie kolorów , zobaczysz nową kolejność kart w panelu Kolejność kart nowych arkuszy. Zobacz zrzut ekranu:
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
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...
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!