Hogyan rendezhetjük a munkalap lapjait szín szerint az Excelben?
Például a túl sok munkalapot tartalmazó munkafüzet egyszerű feldolgozásához és kezeléséhez hozzáadhat egy tabulátorszínt a megfelelő munkalap fülhöz, majd az Excelben könnyen rendezheti és azonosíthatja a lapfület a színeik szerint. Ez a cikk megmutatja, milyen gyorsan rendezheti a lapokat a szín szerint az Excelben az alábbiak szerint:
A munkalapok lapjait szín szerint rendezheti VBA kóddal
A munkalapok lapjait szín szerint rendezheti a Kutools for Excel segítségével
A munkalapok lapjait szín szerint rendezheti VBA kóddal
A következő VBA kód használatával a füleket szín szerint rendezheti. Kérjük, tegye a következőket:
1. kettyenés Fejlesztő > Visual Basic, egy új Microsoft Visual Basic alkalmazásokhoz ablak jelenik meg, kattintson a gombra betétlap > Modulok, és írja be a következő kódot a modulba:
VBA: Válogassa a lapokat színek szerint.
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. Ezután kattintson gombot a kód végrehajtásához. A munkalap összes fülét szín szerint rendezték. Képernyőképek megtekintése:
A munkalapok lapjait szín szerint rendezheti a Kutools for Excel segítségével
Aktivitáskövető Levélek rendezése of Kutools az Excel számára, nem csak a lapfüleket rendezheti szín szerint, hanem gyorsan rendezheti a lapfüleket alfa vagy alfa numerikus szerint is.
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Szerezd meg most.
Ha telepítette a Kutools for Excel programot, a következő lépésekkel rendezheti a munkalapok lapjait:
1. kettyenés Vállalkozás > Munkalap eszközök > Levélek rendezése, lásd a képernyőképet:
2. Ban,-ben Levélek rendezése párbeszédpanelen kattintson a gombra Szín rendezés gombra kattintva megjelenik az új lapok sorrendje az Új lap fülek sorrendben. Lásd a képernyőképet:
3. Ezután kattintson OK a fülek rendezéséhez.
Kutools az Excel számára's Levélek rendezése eszköz gyorsan átrendezheti az aktív munkafüzet összes munkalapját. Több rendezési típust támogat, beleértve a Alfa rendezés, Alfa numerikus rendezés, Szín rendezés és a Fordított. Ezen felül, akkor is mozogni fel / le munkalapokat, és állítsa vissza a rendezést. Kattintson, ha többet szeretne megtudni erről a segédprogramról.
Kapcsolódó cikk:
A munkalapok rendezése ábécé / alfanumerikus sorrendbe az Excel programban
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!