Как да сортирате раздели на работен лист по цвят в Excel?
Например, за лесно обработване и управление на работна книга с твърде много работни листове, можете да добавите цвят на раздел към съответния раздел на работен лист и след това можете лесно да сортирате и идентифицирате разделите на листа по техните цветове в Excel. Тази статия ще ви покаже колко бързо можете да сортирате разделите на листа по цвят в Excel, както следва:
Сортирайте разделите на работния лист по цвят с VBA код
Сортирайте разделите на работния лист по цвят с Kutools за Excel
Сортирайте разделите на работния лист по цвят с VBA код
Използвайки следния VBA код, можете да сортирате разделите по цвят. Моля, направете следното:
1. кликване Софтуерен Инженер > Visual Basic, Нов 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 за Excel
С Сортиране на листове of Kutools за Excel, можете не само да сортирате разделите на листа по цвят, но също така можете бързо да сортирате разделите на листа по буква или цифра.
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Вземи го сега.
Ако сте инсталирали Kutools за Excel, можете да сортирате раздели на работния лист със следните стъпки:
1. кликване Enterprise > Инструменти за работни листове > Сортиране на листове, вижте екранна снимка:
2. В Сортиране на листове кликнете върху Сортиране по цвят ще видите подредбата на новите раздели в панела Подредба на нови раздели в листа. Вижте екранна снимка:
3. И след това щракнете OK за сортиране на разделите.
Kutools за Excel's Сортиране на листове инструментът може бързо да пренареди всички работни листове в активната работна книга. Поддържа няколко вида сортиране, включително Алфа сортиране, Буквено-цифрово сортиране, Сортиране по цвят намлява Обратни. Освен това можете също движение нагоре/надолу работни листове и нулирайте сортирането. Кликнете, за да научите повече за тази помощна програма.
Свързана статия:
Сортирайте работни листове по азбучен / буквено-цифров ред в Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!