Štai kaip išdėstyti lenteles abėcėlės tvarka
Rūšiuoti duomenis abėcėlės tvarka savo sąrašuose nėra problema. Bet kaip elgtis, kai norite sudėti darbalapius abėcėlės tvarka pagal jų pavadinimus?
Šioje iliustracijoje parodytas lapų registras su darbalapių serija. Jie turėtų būti surūšiuoti abėcėlės tvarka, kad būtų lengviau juos rasti.
3
Turėdami kelis lapus, galite patikimai atlikti darbą rankiniu būdu. Su daugeliu lapų tai greitai tampa sudėtinga, daug laiko ir painu. Toliau jums padės ši makrokomanda:
Sub RūšiuotiBlaetter ()
Dim Zaehler1 kaip sveikasis skaičius, Zaehler2 kaip sveikasis skaičius
Prastas pavadinimas kaip eilutė
Pavadinimas = ActiveSheet.Name
Zaehler1 = 1 Į darbalapius. Skaičiuoti
Zaehler2 = Zaehler1 Į darbalapius. Skaičius
Jei UCase (darbalapiai (Counter2). Pavadinimas) <UCase (darbalapiai (Counter1). Pavadinimas) Tada
Darbo lapai (Zaehler2). Perkelti anksčiau: = darbalapiai (Zaehler1)
Pabaiga Jei
Kitas skaitiklis2, skaitiklis1
Darbo lapai (pavadinimas). Aktyvinti
Pabaiga Sub
Makrokomanda surūšiuoja aktyvios darbaknygės darbalapius abėcėlės tvarka didėjančia tvarka. Toliau pateiktame paveikslėlyje parodyta, kaip atrodo darbaknygės pavyzdys paleidus makrokomandą:
Patarimas: Jei norite sužinoti, kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
