Kaip rūšiuoti darbalapio skirtukus abėcėlės tvarka pagal „Excel“
Jei „Excel“ darbaknygėje turite daug darbo lapų, gali būti sunku rasti konkretų darbalapį. Rūšiuojant darbalapio skirtukus abėcėlės tvarka būtų lengviau rasti tai, ko ieškote.
Be darbo lapų skirtukų organizavimo, pritaikydami jiems spalvas, taip pat galite rūšiuoti juos abėcėlės tvarka arba raidėmis ir skaitmenimis, jei savo darbalapiuose taikėte pasirinktinius pavadinimus. Deja, skaičiuoklės skirtukų abėcėlės tvarka rūšiavimas nėra įtrauktas į „Excel“, tačiau į savo darbaknygę galite įtraukti makrokomandą, kuri leis jums rūšiuoti skirtukus didėjimo arba mažėjimo tvarka. Parodysime, kaip pridėti „Microsoft“ palaikymo svetainėje esančią makrokomandą į „Excel“ darbaknygę, kuri suskirstys darbalapio skirtukus.
Norėdami pradėti, paspauskite Alt + F11, kad atidarytumėte „Microsoft Visual Basic for Applications“ (VBA) redaktorių. Tada eikite į Įterpti> Modulis.
Nukopijuokite ir įklijuokite šią makrokomandą iš „Microsoft“ į rodomą modulio langą.
„Sub Sort_Active_Book“ () „Dim i As Integer“ „Dim“ kaip „Integer“ „Dim iAnswer“ kaip „VbMsgBoxResult“ „Paklauskite naudotojo, kokią kryptį jie nori„ surūšiuoti darbalapius “. & „Paspaudus„ Ne “rūšiuoti mažėjančia tvarka“, _ vbYesNoCancel + vbQuestion + vbDefaultButton1, „Rūšiuoti darbalapius“) „i = 1 į Sheets.Count for j = 1 į Sheets.Count - 1“ Jei atsakymas yra „Yes“, tada surūšiuokite didėjimo tvarka. „Jei iAnswer = vbYes Tada, jei UCase $ (lapai (j) .Name)> UCase $ (lapai (j + 1) .Name), tada lapai (j) .Perkelti po: = lapai (j + 1) Baigti Jei„ Jei atsakymas yra Ne, tada rūšiuoti mažėjančia tvarka. 'ElseIf iAnswer = vbNo Tada, jei UCase $ (lapai (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
VBA redaktorius automatiškai pavadina kiekvieną modulį, kurio numeris yra gale, pvz., 1 modulis, 2 modulis ir kt. Galite tiesiog priimti numatytąjį modulio pavadinimą. Tačiau, jei planuojate į savo darbaknygą įtraukti kitus makrokomandas, gerą idėją pervadinti kiekvieną modulį, kad žinotumėte, kas jie yra. Mes pervadinsime mūsų modulį ir parodysime, kaip.
Norėdami pervardyti modulį, kairiajame lauke esančiose ypatybėse pažymėkite modulio pavadinimą lauke Name.
Lauke Vardas įveskite modulio pavadinimą ir paspauskite Enter. Atminkite, kad modulio pavadinime negali būti tarpų.
Modulio pavadinimas pasikeičia „Modulių“ sąraše, esančiame projekte „Projektas“ kairėje srityje.
Uždarykite „VBA“ redaktorių, eikite į „File“> „Close“ ir „Return to Microsoft Excel“.
Dabar mes vykdysime makrokomandą, kad galėtume rūšiuoti skirtukus. Paspauskite Alt + F8, kad pasiektumėte makrokomandų dialogo lango makrokomandų sąrašą. Sąraše pasirinkite makrokomandą (mūsų atveju yra tik viena makro) ir spustelėkite „Vykdyti“.
Rodomas toks dialogo langas, leidžiantis pasirinkti, ar norite surūšiuoti darbo lapus didėjimo arba mažėjimo tvarka. Norime juos rūšiuoti didėjančia tvarka, todėl spustelėjome „Taip“.
Darbalapio skirtukai dabar išdėstyti abėcėlės tvarka.
Pridėta makro dalis dabar yra jūsų darbaknygės dalis, tačiau, kai ją išsaugosite, tikriausiai matysite šį dialogo langą. Taip yra todėl, kad išsaugojote darbaknygę kaip .xlsx failą, kuris yra įprastas „Excel“ darbaknygės formatas, kuriame nėra makrokomandų. Jei norite įtraukti makrokomandas į savo darbaknygę ir juos paleisti, turite išsaugoti darbo knygą kaip makro įjungtą darbo knygą arba .xlsm failą. Norėdami tai padaryti, šiame dialogo lange spustelėkite „Ne“.
Rodomas dialogo langas Išsaugoti kaip. Jei nesate jau toje aplanke, pereikite prie vietos, kurioje norite išsaugoti įjungtą makrokomandą. Išskleidžiamajame sąraše „Išsaugoti kaip tipą“ pasirinkite „Excel Macro Enabled Workbook (* .xlsm)“.
Spustelėkite „Išsaugoti“.
Jei neišsaugosite darbaknygės kaip makro įjungtos darbo knygos (.xlsm failo), pridėta makro bus ištrinta. Galbūt norėsite ištrinti .xlsx versiją savo darbo knygoje, kad nepamirštumėte naudoti savo darbo knygos .xlsm versijos, jei norite pridėti daugiau darbalapio skirtukų ir juos vėl surūšiuoti naudodami makrokomandą. Jei nenorite naudoti makrokomandų, visada galite išsaugoti darbaknygę kaip .xlsx failą.
