Hoe werkbladtabbladen op kleur in Excel te sorteren?
Als u bijvoorbeeld een werkmap met te veel werkbladen gemakkelijk wilt verwerken en beheren, kunt u een tabbladkleur toevoegen aan het relevante werkbladtabblad en vervolgens kunt u de bladtabs gemakkelijk sorteren en identificeren op basis van hun kleuren in Excel. In dit artikel wordt uitgelegd hoe snel u bladtabs op kleur kunt sorteren in Excel als volgt:
Sorteer werkbladtabbladen op kleur met VBA-code
Sorteer werkbladtabbladen op kleur met Kutools voor Excel
Sorteer werkbladtabbladen op kleur met VBA-code
Met behulp van de volgende VBA-code kunt u de tabbladen op kleur sorteren. Ga als volgt te werk:
1. klikken Ontwikkelaar > Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, klik op Invoegen > Module, en voer de volgende code in de module in:
VBA: sorteer bladen op kleur.
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. Dan klikken knop om de code uit te voeren. En alle werkbladtabbladen zijn op kleur gesorteerd. Zie screenshots:
Sorteer werkbladtabbladen op kleur met Kutools voor Excel
Met de Sorteer bladen of Kutools for Excel, kunt u de bladtabs niet alleen op kleur sorteren, maar kunt u ook snel de bladtabs sorteren op alfanumeriek of alfanumeriek.
Kutools voor Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Profiteer nu.
Als je Kutools voor Excel hebt geïnstalleerd, kun je werkbladtabbladen sorteren met de volgende stappen:
1. klikken Enterprise > Werkbladhulpmiddelen > Sorteer bladen, zie screenshot:
2. In de Sorteer bladen dialoogvenster, klik Kleur sorteren knop, ziet u de volgorde van de nieuwe tabbladen in het deelvenster Nieuwe bladtabbladen. Zie screenshot:
3. En klik dan OK om de tabbladen te sorteren.
Kutools for Excel's Sorteer bladen tool kan snel alle werkbladen in de actieve werkmap herschikken. Het ondersteunt verschillende sorteringstypen, waaronder Alpha Sorteren, Alfanumeriek sorteren, Kleur sorteren en Omkeren. Bovendien kunt u ook omhoog / omlaag gaan werkbladen en reset de sortering. Klik om meer te weten over dit hulpprogramma.
Gerelateerd artikel:
Sorteer werkbladen in alfabetische / alfanumerieke volgorde in Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!