Как отсортировать вкладки рабочего листа по цвету в 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 Sub2. Затем нажмите 
кнопку для выполнения кода. И все вкладки рабочего листа отсортированы по цвету. Смотрите скриншоты:
 |
 |
 |
Сортировка вкладок рабочего листа по цвету с помощью Kutools for Excel
Для Сортировать листы of Kutools for Excel, вы можете не только сортировать вкладки листа по цвету, но также можете быстро сортировать вкладки листа по алфавиту или алфавиту.
Kutools для Excel: с более чем 300 удобными надстройками Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Получи это сейчас.
Если вы установили Kutools for Excel, вы можете отсортировать вкладки рабочего листа, выполнив следующие действия:
1. Нажмите Предприятие > Инструменты рабочего листа > Сортировать листы, см. снимок экрана:
2. в Сортировать листы диалоговое окно, нажмите Цвет Сортировка , вы увидите новый порядок вкладок на панели Новый порядок вкладок листа. Смотрите скриншот:
3. Затем щелкните OK для сортировки вкладок.
Kutools for Excel's Сортировать листы инструмент может быстро переупорядочить все листы в активной книге. Он поддерживает несколько типов сортировки, в том числе Альфа-сортировка, Буквенно-цифровая сортировка, Цвет Сортировка и Обратный. Кроме того, вы также можете двигаться вверх / вниз рабочие листы и сбросьте сортировку. Нажмите, чтобы узнать больше об этой утилите.
Связанная статья:
Сортировка листов в алфавитном / буквенно-цифровом порядке в Excel
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
