Как отсортировать листы в 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 Sub2. Затем нажмите «F5» или кнопку «Выполнить», чтобы запустить код — все ярлыки листов будут отсортированы по цвету.
 |
 |
 |
Сортировка ярлыков листов по цвету с помощью Kutools для Excel
С помощью Kutools вы сможете мгновенно упорядочить ярлыки листов по цвету — без ручной сортировки и без написания кода VBA, что значительно экономит время. В этом разделе мы покажем, как легко отсортировать ярлыки листов по цвету с помощью Kutools для Excel.
Если вы установили Kutools для Excel, вы можете отсортировать ярлыки листов, выполнив следующие шаги:
1. Нажмите «KUTOOLS PLUS» > «Лист» > «Сортировать все листы».
2. В диалоговом окне «Сортировать все листы» нажмите кнопку «Сортировка по цвету», и новый порядок ярлыков сразу отобразится на панели «После сортировки».
3. Затем нажмите «ОК», чтобы отсортировать ярлыки.
Эта функция позволяет быстро переупорядочить все листы в текущей книге. Поддерживается несколько типов сортировки, включая «Алфавитную сортировку», «Точную сортировку», «Сортировку по цвету» и «Обратный порядок». Кроме того, вы можете перемещать листы вверх или вниз, а также сбрасывать порядок сортировки.
Сортировка ярлыков листов по цвету в Excel помогает навести порядок и упрощает навигацию по объёмным книгам. Хотя Excel не предлагает встроенной функции для этого, в статье описаны два удобных способа. Выберите тот, что подходит именно вам, и раскройте весь потенциал цветных ярлыков Excel для оптимизации вашего рабочего процесса! Если вы хотите узнать ещё больше полезных советов и приёмов по Excel,на нашем сайте доступны тысячи обучающих материалов.
См. также:
Сортировка листов в алфавитном / буквенно-цифровом порядке в Excel
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек