Как отсортировать вкладки рабочего листа по цвету в Excel?

Например, для легкой обработки и управления книгой со слишком большим количеством листов вы можете добавить цвет вкладки на соответствующую вкладку рабочего листа, а затем вы можете легко сортировать и идентифицировать вкладки листов по их цвету в Excel. Эта статья покажет вам, как быстро можно отсортировать вкладки листов по цвету в Excel следующим образом:

Сортировка вкладок рабочего листа по цвету с кодом VBA

Сортировка вкладок рабочего листа по цвету с помощью Kutools for Excel

Сортировка вкладок рабочего листа по цвету с кодом VBA

Используя следующий код VBA, вы можете отсортировать вкладки по цвету. Пожалуйста, сделайте следующее:

1. Нажмите Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, и введите в модуль следующий код:

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 for Excel

Для Сортировать листы of Kutools for Excel, вы можете не только сортировать вкладки листа по цвету, но также можете быстро сортировать вкладки листа по алфавиту или алфавиту.

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

Если вы установили Kutools for Excel, вы можете отсортировать вкладки рабочего листа, выполнив следующие действия:

1. Нажмите Кутулс Плюс > Рабочий лист > Сортировать листы.

2. в Сортировать листы диалоговое окно, нажмите Цвет Сортировка , вы увидите новый порядок вкладок на панели Новый порядок вкладок листа. Смотрите скриншот:

3. Затем щелкните OK для сортировки вкладок.

Kutools for Excel's Сортировать листы инструмент может быстро переупорядочить все листы в активной книге. Он поддерживает несколько типов сортировки, в том числе Альфа-сортировка, Буквенно-цифровая сортировка, Цвет Сортировка и Обратный. Кроме того, вы также можете двигаться вверх / вниз рабочие листы и сбросьте сортировку. Нажмите, чтобы узнать больше об этой утилите.

Связанная статья:

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