Як сортувати вкладки робочих аркушів за кольором у програмі Excel?

Наприклад, для легкої обробки та управління книгою із занадто великою кількістю аркушів ви можете додати колір вкладки на відповідну вкладку аркуша, а потім можна легко сортувати та ідентифікувати вкладки аркушів за їх кольорами в Excel. Ця стаття покаже вам, як швидко ви можете сортувати вкладки аркушів за кольором у Excel таким чином:

Сортуйте вкладки робочого аркуша за кольором за кодом VBA

Сортуйте вкладки аркушів за кольором за допомогою Kutools для Excel

Сортуйте вкладки робочого аркуша за кольором за кодом VBA

Використовуючи наступний код VBA, ви можете сортувати вкладки за кольором. Будь ласка, виконайте наступне:

1. клацання Розробник > Візуальний Бейсік, новий Microsoft Visual Basic для програм відобразиться вікно, натисніть Insert > Модуліта введіть наступний код в Модуль:

VBA: Сортування аркушів за кольорами.

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 Потім натисніть   кнопку для виконання коду. І всі вкладки робочого аркуша відсортовані за кольором. Дивіться скріншоти:

Сортуйте вкладки аркушів за кольором за допомогою Kutools для Excel

З Сортувати аркуші of Kutools для Excel, Ви можете не тільки сортувати вкладки аркушів за кольором, але також можете швидко сортувати вкладки аркушів за алфавітною або буквено-цифровою.

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. Отримайте зараз.

Якщо ви встановили Kutools для Excel, ви можете сортувати вкладки робочого аркуша за допомогою таких кроків:

1. клацання Kutools Plus > Робочий аркуш > Сортувати аркуші.

2 В Сортувати аркуші діалогове вікно натисніть кнопку Сортування кольорів , ви побачите порядок нових вкладок на панелі впорядкування нових вкладок аркуша. Дивіться знімок екрана:

3. А потім натисніть OK для сортування вкладок.

Kutools для Excel's Сортувати аркуші інструмент може швидко переставити всі аркуші в активній книзі. Він підтримує кілька типів сортування, в тому числі Альфа-сорт, Буквено-цифрове сортування, Сортування кольорів та Зворотній. Крім того, ви також можете рухатися вгору / вниз аркуші та скиньте сортування. Натисніть, щоб дізнатись більше про цю утиліту.

Пов'язана стаття:

Сортувати аркуші в алфавітному / буквено-цифровому порядку в Excel