Rūšiuokite darbaknygės darbalapius naudodami „Microsoft Excel“ VBA

Šiame straipsnyje mes pateikėme išsamią informaciją apie tai, kaip rūšiuoti darbaknygės darbalapius didėjančia arba mažėjančia tvarka, atsižvelgiant į darbalapio pavadinimą.

Pridedamoje darbaknygėje yra du moduliai:-

1 modulis yra makrokomanda „SortWorksheets“, kuri priskirta „Pateikti“ mygtukui „Makro“ lape.

Ši makrokomanda rūšiuoja visus darbalapius, išskyrus pirmąjį darbalapį, kuris yra pagrindinis lapas, pavadintas „Makro“.

Kai vartotojas spustelės mygtuką „Pateikti“, visi lapai po „Makro“ lapo bus surūšiuoti didėjančia arba mažėjančia tvarka, kaip vartotojas pasirinko kombinuotame laukelyje.

2 modulis yra dvi makrokomandos „AscendingSortOfWorksheets“ ir „DecendingSortOfWorksheets“. Paleidus makrokomandą „AscendingSortOfWorksheets“, ji surūšiuos visus darbaknygėje esančius darbalapius didėjančia tvarka. Paleidus makrokomandą „DecendingSortOfWorksheets“, ji surūšiuos visus darbaknygėje esančius darbalapius mažėjančia tvarka.

Loginis paaiškinimas

Rūšiuoti darbaknygės darbalapius naudojamas burbulų rūšiavimo algoritmas.

„Bubble“ rūšiavimo algoritmas lygina kiekvieną masyvo elementą su kitu masyvo elementu ir keičia juos, priklausomai nuo to, ar rūšiuoti didėjančia, ar mažėjančia tvarka. Kiekvieno veiksmo metu masyvo viršuje bus burbuliuota mažiausia arba didžiausia reikšmė. Algoritmas kartojasi, kol visi elementai bus surūšiuoti.

Šiame straipsnyje mūsų tikslas yra surūšiuoti darbaknygės darbalapius pagal jų pavadinimą. Mūsų naudojamą darbaknygę sudaro skirtingi darbalapiai su pavadinimais, pvz., Finansų informacijos suvestinė, Žmogiškieji ištekliai ir Pardavimo informacijos suvestinė.

Norėdami pasiekti šį tikslą, darbo lapams rūšiuoti naudojome burbulo rūšiavimo algoritmą.

Kodo paaiškinimas

„SortWorksheets“ makrokomanda

Ši makrokomanda bus vykdoma, kai naudotojas spustelės mygtuką Pateikti. Ši makrokomanda surūšiuos visus darbaknygės darbalapius pagal jų pavadinimus, išskyrus pirmąjį darbaknygės darbalapį. Atsižvelgiant į naudotojo pasirinktą reikšmę kombinuotame lauke, jis surūšiuos darbalapius didėjančia arba mažėjančia tvarka.

Norėdami pridėti kombinuotąjį laukelį, atlikite šiuos veiksmus:-

1. Eikite į skirtuką Kūrėjas> Spustelėkite Įterpti> Formos valdiklyje spustelėkite kombinuoto laukelio piktogramą

1. Dešiniuoju pelės mygtuku spustelėkite kombinuotąjį laukelį ir spustelėkite formato valdiklį.

1. Eikite į valdymo skirtuką, priskirkite elementą ir susiekite kombinuotąjį laukelį su langeliu XFC1.

ComboBoxValue = Diapazonas („XFC1“). Reikšmė

„Macro“ darbalapio kombinuotasis langelis yra susietas su langeliu XFC1. Taigi, norint gauti vertę iš langelio XFC1, naudojamas kintamasis „ComboBoxValue“.

Jei i = 2 iki SCount - 1

FOR ciklas prasideda kintamuoju i, kurio vertė prasideda nuo 2, nes norime nerūšiuoti pirmojo darbaknygės darbalapio.

Jei ComboBoxValue = 1 Tada

IF sąlyga naudojama patikrinti, ar rūšiuoti didėjančia ar mažėjančia tvarka. IF ComboBoxValue reikšmė yra 1, tada surūšiuokite didėjančia tvarka, kitaip mažėjančia tvarka.

Darbo lapai surūšiuoti didėjančia tvarka

Darbo lapai surūšiuoti mažėjančia tvarka

AscendingSortOfWorksheets ir DecendingSortOfWorksheets

„AscendingSortOfWorksheets“ ir „DecendingSortOfWorksheets“ makrokomandas galima paleisti paspaudus „Alt“ + F8 spartųjį klavišą arba Eiti į skirtuką „Kūrėjas“> Spustelėkite „Macro“> pasirinkdami makrokomandą ir spustelėkite „Vykdyti“. Jie surūšiuos visus darbaknygėje esančius darbalapius. Šias makrokomandas galima paleisti ir kitose darbaknygėse.

Darbo lapai surūšiuoti paleidus makrokomandą „AscendingSortOfWorksheets“

Darbo lapai surūšiuoti didėjančia tvarka „DecendingSortOfWorksheets“ makrokomanda

Sekite toliau pateiktą kodą

 Sub AscendingSortOfWorksheets () 'Rūšiuoti darbaknygės darbalapius didėjančia tvarka Dim SCount, i, j As Integer' Norėdami išjungti ekrano naujinius Application.ScreenUpdating = False 'Gaunamas bendras Nr. darbo knygelės SCount = Worksheets.Count 'Tikrinama, ar darbalapių skaičius yra didesnis nei 1, Jei skaičius yra vienas, tada išeikite iš procedūros Jei SCount = 1 Tada išeikite iš poskyrio' Naudojant burbuliukų rūšiavimą kaip rūšiavimo algoritmą 'Peržiūra per visus darbalapius = 1 Į SCount - 1 'Lyginamas pasirinkto lapo pavadinimas su kitais lapais, kad pasirinktas lapas būtų perkeltas į atitinkamą vietą.  Darbo lapai (i). Pavadinimas Tada darbalapiai (j). Perkelti anksčiau: = darbalapiai (i) pabaiga, jei kita j Kitas i pabaiga 

Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.

Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el