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