Kennsluforritið sýnir hvernig þú getur fljótt flokkað Excel vinnublöð í stafrófsröð með því að nota VBA kóða og Workbook Manager tólið.

Microsoft Excel býður upp á ýmsar fljótlegar og auðveldar leiðir til að raða dálka eða raðir í stafrófsröð. En það er aðeins ein aðferð til að endurraða vinnublöðum í Excel - dragðu þau á viðeigandi stað á flipastikunni. Þegar kemur að stafrófsröðun flipa í mjög stórri vinnubók getur þetta verið löng og röng leið. Ertu að leita að tímasparandi vali? Það eru aðeins til tveir: VBA kóða eða verkfæri þriðja aðila.

Hvernig á að raða flipa í stafrófsröð í Excel með VBA

Hér að neðan finnur þú þrjú VBA kóða dæmi til að flokka Excel blöð hækkandi, lækkandi og í hvora áttina sem er byggt á vali notandans.

Þar sem þú gefur í skyn að þú hafir einhverja reynslu af VBA, munum við aðeins útlista grunnskref til að bæta fjölvi við vinnublaðið þitt:

1. Í Excel vinnubókinni þinni, ýttu á Alt + F11 til að opna Visual Basic Editor.
2. Á vinstri glugganum skaltu hægrismella á ThisWorkbook og smella síðan á Insert > Module .
3. Límdu VBA kóðann í kóðagluggann.
4. Ýttu á F5 til að keyra fjölva.

Fyrir nákvæmar skref-fyrir-skref leiðbeiningar, vinsamlegast sjáðu Hvernig á að setja inn og keyra VBA kóða í Excel.

Ábending. Ef þú vilt halda makróinu til frekari notkunar, vertu viss um að vista skrána þína sem Excel makróvirka vinnubók (.xlsm).

Að öðrum kosti geturðu hlaðið niður sýnishorninu okkar Alphabetize Excel Tabs vinnubók, virkjað efni ef beðið er um það og keyrt viðkomandi fjölvi beint þaðan. Vinnubókin inniheldur eftirfarandi fjölva:

• TabsAscending - raða blöðum í stafrófsröð frá A til Ö.
• FlipsDescending - raða blöðum í öfugri röð, frá Ö til A.
• Alphabetize Tabs - flokkaðu blaðflipa í báðar áttir, hækkandi eða lækkandi.

Með sýnishornsvinnubókinni niðurhalaða og opna í Excel, opnaðu þína eigin vinnubók þar sem þú vilt raða flipa í stafrófsröð, ýttu á Alt + F8 , veldu viðeigandi fjölva og smelltu á Run .

Raða Excel flipa í stafrófsröð frá A til Ö

Þessi litli fjölvi raðar blöðunum í núverandi vinnubók í hækkandi alfanumerískri röð , fyrst vinnublöð þar sem nöfnin byrja á tölum, síðan blöðum frá A til Ö.

Sub TabsAscending() For i = 1 To Application.Sheets.Count For j = 1 To Application.Sheets.Count - 1 Ef UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Síðan Sheets(j). Færa eftir:=Sheets(j + 1) End If Next Next MsgBox "Fliparnir hafa verið flokkaðir frá A til Ö." End Sub

Raðaðu Excel flipum frá Ö til A

Ef þú vilt raða blöðunum þínum í lækkandi alfanumerískri röð (Ö til A, síðan blöð með tölulegum nöfnum), notaðu þá eftirfarandi kóða:

Sub TabsDescending() Fyrir i = 1 ToApplication.Sheets.Count For j = 1 To Application.Sheets.Count - 1 Ef UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Síðan Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "Fliparnir hafa verið flokkaðir frá Z til A. " End Sub

Stafrófsröðun flipa hækkandi eða lækkandi

Þessi fjölvi gerir notendum kleift að ákveða hvernig á að raða vinnublöðum í tiltekinni vinnubók, í stafrófsröð frá A til Ö eða í öfugri röð.

Þar sem staðalgluggi (MsgBox) í Excel VBA gerir aðeins kleift að velja úr handfylli af fyrirfram skilgreindum hnöppum, við munum búa til okkar eigið eyðublað (UserForm) með þremur sérsniðnum hnöppum: A til Z , Z til A og Hætta við .

Til þess skaltu opna Visual Basic Editor, hægrismella á ThisWorkbook og smella á Insert > UserForm . Nefndu eyðublaðið þitt SortOrderFrom og bættu 4 stjórntækjum við það: merkimiða og þrjá hnappa:

Næst, ýttu á F7 (eða tvísmelltu á eyðublaðið ) til að opna Kóði gluggann og líma kóðann hér að neðan. Kóðinn grípur smelli á hnappa og úthlutar einstöku merki á hvern hnapp:

Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click () Me.Tag = 0 Me.Hide End Sub

Það fer eftir því hvort notandinn smellir á A til Ö eða Z til A hnappinn á eyðublaðinu þínu, flokkaðu flipa íhækkandi stafrófsröð (valið sjálfgefið) eða lækkandi stafrófsröð; eða lokaðu eyðublaðinu og gerðu ekkert ef Hætta við . Þetta er gert með eftirfarandi VBA kóða, sem þú setur inn á venjulegan hátt í gegnum Insert > Module .

Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm If SortOrder = 0 Þá Hætta Sub For x = 1 Til Application.Sheets.Count For y = 1 Til Application.Sheets.Count - 1 Ef SortOrder = 1 Þá Ef UCase$(Application.Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Then Sheets(y). Færa á eftir:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$(Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Síðan Sheets(y). Færa á eftir:=Sheets(y + 1) End If End If Next Next End Undiraðgerð showUserForm() As Heiltala showUserForm = 0 Load SortOrderForm SortOrderForm .Show (1) showUserForm = SortOrderForm.Tag Unload SortOrderForm End Function

Ef þú ert ekki mjög ánægður með VBA ennþá, geturðu einfaldlega hlaðið niður sýnishornsvinnubókinni okkar til að stafrófsröð flipa, opnaðu hana í Excel ásamt eigin skrá þar sem þú vilt til að raða flipum og keyra AlphabetizeTabs fjölva úr vinnubókinni þinni:

Veldu æskilega röðunarröð, segjum A til Ö og athugaðu niðurstöðurnar:

Ábending. Með VBA geturðu líka búið til afrit af Excel vinnublöðunum þínum. Kóðinn er fáanlegur hér: Hvernig á aðafrit blaðs í Excel með VBA.

Hvernig á að flokka Excel flipa í stafrófsröð með Ultimate Suite

Notendur Ultimate Suite fyrir Excel þurfa ekki að fikta í VBA - þeir eru með fjöl -virkur vinnubókastjóri til ráðstöfunar:

Með þessu tóli bætt við Excel borðið þitt er stafrófsröðun flipa gert með einum smelli, nákvæmlega eins og það ætti að vera!

Ef þú ert forvitinn að kanna þetta og 70+ fleiri fagleg verkfæri fyrir Excel, er prufuútgáfa af Ultimate Suite okkar til niðurhals hér.

Ég þakka þú fyrir lesturinn og vonumst til að sjá þig á blogginu okkar í næstu viku!