Kako razvrstiti zavihek delovnega lista po abecednem vrstnem redu v Excelu
Če imate v Excelovem delovnem zvezku veliko število delovnih listov, je težko najti določen delovni list. Razvrščanje kartic delovnega lista po abecedi bi olajšalo iskanje tistega, kar iščete.
Poleg tega, da lahko zavihke v delovnem listu organizirate z barvami, jih lahko razvrstite tudi po abecedi ali abecedno, če ste v delovnih listih uporabili uporabniška imena. Na žalost sortiranje kartic delovnega lista po abecedi ni vgrajeno v Excel, lahko pa v svoj delovni zvezek dodate makro, ki vam bo omogočil razvrščanje kartic v naraščajočem ali padajočem vrstnem redu. Pokazali vam bomo, kako v Microsoftov delovni zvezek dodajte makro, ki je na voljo na Microsoftovem spletnem mestu za podporo, ki bo razvrstil zavihke delovnega lista.
Za začetek pritisnite Alt + F11, da odprete urejevalnik Microsoft Visual Basic for Applications (VBA). Nato pojdite na Vstavi> Modul.
Kopirajte in prilepite naslednji makro iz Microsofta v okno modula, ki se prikaže.
Sub Sort_Active_Book () Dim i As Integer Dim j Kot Integer Dim iAnswer Kot VbMsgBoxResult "Vprašajte uporabnika, v katero smer želijo" razvrstiti delovne liste. " & "S klikom na Ne bo razvrščen v padajočem vrstnem redu", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Razvrsti delovne liste") Za i = 1 v listih.Count Za j = 1 v listih.Št. v naraščajočem vrstnem redu. "Če iAnswer = vbYes Then Če UCase $ (Listi (j) .Name)> UCase $ (Listi (j + 1) .Name) Potem Listi (j) .Move After: = Listi (j + 1) End Če" Če odgovor je Ne, nato razvrsti v padajočem vrstnem redu. 'ElseIf iAnswer = vbNo Then Če UCase $ (Listi (j) .Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If End If Next j Next i End Sub
Urejevalnik VBA samodejno poimenuje vsak modul s številko na koncu, kot je Modul1, Modul2, itd. Preprosto lahko sprejmete privzeto ime modula. Če pa nameravate v delovni zvezek dodati še druge makre, je dobro, da vsak modul preimenujete, da boste vedeli, kaj so. Modul bomo preimenovali, da vam pokažemo, kako.
Če želite modul preimenovati, izberite besedilo v polju Ime za modul pod Lastnosti v levem podoknu.
V polje Ime vnesite ime modula in pritisnite Enter. Ime modula ne sme vsebovati presledkov.
Ime modula se v levem podoknu spremeni v seznamu Moduli pod Project.
Zaprite urejevalnik VBA tako, da izberete Datoteka> Zapri in se vrnete v Microsoft Excel.
Zdaj bomo zagnali makro, da razvrstimo zavihke. Pritisnite Alt + F8 za dostop do seznama makrov v pogovornem oknu Makro. Izberite makro na seznamu (v našem primeru je samo en makro) in kliknite »Zaženi«.
Prikaže se naslednje pogovorno okno, ki vam omogoča, da izberete, ali želite razvrstiti delovne liste v naraščajočem ali padajočem vrstnem redu. Želimo jih razvrstiti v naraščajočem vrstnem redu, tako da kliknemo »Da«.
Kartice delovnega lista so zdaj razvrščene po abecednem vrstnem redu.
Dodani makro je zdaj del vašega delovnega zvezka, vendar ko ga shranite, boste verjetno videli naslednje pogovorno okno. To je zato, ker ste delovni zvezek shranili kot datoteko .xlsx, ki je običajen format delovnega zvezka Excel, ki ne vključuje makrov. Če želite v svoj delovni zvezek vključiti makre in jih lahko zagnati, morate delovni zvezek shraniti kot delovni zvezek, ki omogoča makro, ali datoteko .xlsm. V tem pogovornem oknu kliknite »Ne«.
Prikaže se pogovorno okno Shrani kot. Poiščite mesto, kamor želite shraniti delovni zvezek, ki omogoča makro, če še niste v tej mapi. Na spustnem seznamu »Shrani kot tip« izberite »Excelov delovni zvezek z omogočenimi makri (* .xlsm)«.
Kliknite »Shrani«.
Če delovnega zvezka ne shranite kot delovni zvezek, ki omogoča makro (datoteka .xlsm), bo dodan makro izbrisan. Morda boste želeli zbrisati različico .xlsx delovnega zvezka, tako da ne pozabite uporabiti različice delovnega zvezka .xlsm, če želite dodati več zavihkov delovnega lista in jih ponovno razvrstiti z makrom. Delovni zvezek lahko vedno shranite kot datoteko .xlsx, če ne želite več uporabljati makrov.
