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

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

Сортировка вкладок листов по цвету с помощью кода VBA

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

Сортировка вкладок листов по цвету с помощью кода VBA

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

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

VBA: Сортировка листов по цветам.

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. Затем нажмите «F5» или кнопку «Выполнить», чтобы выполнить код. Все вкладки листов будут отсортированы по цвету.

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

С помощью Kutools вы можете быстро переупорядочить вкладки на основе их цветов, экономя время и исключая необходимость ручной сортировки или сортировки с помощью кода VBA. В этом разделе мы покажем вам, как использовать Kutools для Excel для сортировки вкладок листов по цвету без труда.

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

1. Нажмите «Kutools Plus» > «Лист» > «Сортировать листы».

2. В диалоговом окне «Сортировать листы» нажмите кнопку «Сортировка по цвету», и вы увидите новый порядок вкладок в панели «Новый порядок вкладок листов».

3. Затем нажмите «ОК», чтобы отсортировать вкладки.

Эта функция может быстро переупорядочить все листы в активной книге. Она поддерживает несколько типов сортировки, включая «Алфавитная сортировка», «Точная сортировка», «Сортировка по цвету» и «Обратная сортировка». Кроме того, вы также можете перемещать листы вверх/вниз и сбрасывать сортировку.

Сортировка вкладок листов по цвету в Excel помогает улучшить организацию и облегчает навигацию по большим книгам. Хотя в Excel нет встроенной опции для этого, в данной статье описаны два полезных метода для вас. Выберите метод, который лучше всего соответствует вашим потребностям, и используйте функцию цвета вкладок Excel для оптимизации вашего рабочего процесса! Если вас интересуют дополнительные советы и хитрости Excel, наш веб-сайт предлагает тысячи учебных материалов.

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

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