Sut i ddidoli tabiau taflen waith yn ôl lliw yn Excel?
Er enghraifft, ar gyfer prosesu a rheoli llyfr gwaith gyda gormod o daflenni gwaith yn hawdd, gallwch ychwanegu lliw tab at y tab taflen waith berthnasol, ac yna gallwch chi ddidoli ac adnabod y tabiau dalen yn ôl eu lliwiau yn Excel. Bydd yr erthygl hon yn dangos i chi pa mor gyflym y gallwch chi ddidoli tabiau dalen yn ôl lliw yn Excel fel a ganlyn:
Trefnu tabiau taflen waith yn ôl lliw gyda chod VBA
Trefnu tabiau taflen waith yn ôl lliw gyda Kutools for Excel
Trefnu tabiau taflen waith yn ôl lliw gyda chod VBA
Gan ddefnyddio'r cod VBA canlynol, gallwch chi ddidoli'r tabiau yn ôl lliw. Gwnewch fel a ganlyn:
1. Cliciwch Datblygwr > Visual Basic, Newydd Microsoft Visual Basic ar gyfer cymwysiadau ffenestr yn cael ei harddangos, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:
VBA: Trefnu dalennau yn ôl lliwiau.
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. Yna cliciwch 
botwm i weithredu'r cod. Ac mae pob un o'r tabiau taflen waith wedi'u didoli yn ôl lliw. Gweler sgrinluniau:
 |
 |
 |
Trefnu tabiau taflen waith yn ôl lliw gyda Kutools for Excel
Efo'r Trefnu Taflenni of Kutools for Excel, gallwch nid yn unig ddidoli'r tabiau dalen yn ôl lliw ond hefyd gallwch ddidoli tabiau dalen yn gyflym yn ôl Alpha neu Alpha Numeric.
Kutools for Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Ei gael Nawr.
Os ydych chi wedi gosod Kutools for Excel, gallwch chi ddidoli tabiau taflen waith gyda'r camau canlynol:
1. Cliciwch Menter > Offer Taflen Waith > Trefnu Taflenni, gweler y screenshot:
2. Yn y Trefnu Taflenni blwch deialog, cliciwch Trefnu Lliw botwm, fe welwch y gorchymyn tabiau newydd yn y cwarel archebu tabiau dalen Newydd. Gweler y screenshot:
3. Ac yna cliciwch OK i ddidoli'r tabiau.
Kutools for Excel's Trefnu Taflenni gall offeryn aildrefnu'r holl daflenni gwaith yn y llyfr gwaith gweithredol yn gyflym. Mae'n cefnogi sawl math o ddidoli, gan gynnwys Trefnu Alpha, Trefnu Rhifol Alpha, Trefnu Lliw ac Reverse. Yn ogystal, gallwch chi hefyd symud i fyny / i lawr taflenni gwaith, ac ailosod y didoli. Cliciwch i wybod mwy am y cyfleustodau hwn.
Erthygl gysylltiedig:
Trefnu taflenni gwaith yn nhrefn yr wyddor / alffaniwmerig yn Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
