Siin on tabelite tähestikulises järjekorras paigutamine
Andmete sortimine loendites tähestikulises järjekorras pole probleem. Kuidas aga toimida, kui soovite töölehed nende nimede järgi tähestikulises järjekorras panna?
Järgmisel joonisel on leheregister koos töölehtede seeriaga. Need tuleks sorteerida tähestikulises järjekorras, et neid oleks lihtsam leida.
3
Mõne lehega saate tööd käsitsi usaldusväärselt teha. Paljude lehtede puhul muutub see kiiresti keeruliseks, aeganõudvaks ja segaseks. Järgmine makro aitab teid edasi:
Alam sorteerimine (parem)
Dim Zaehler1 täisarvuna, Zaehler2 täisarvuna
Dim nimi stringina
Nimi = ActiveSheet.Name
Zaehleri jaoks 1 = 1 töölehtedele. Loend
Zaehler2 = Zaehler1 töölehtedele. Loend
Kui UCase (töölehed (loendur2) .Nimi) <UCase (töölehed (loendur1). Nimi) Siis
Töölehed (Zaehler2). Liigu enne: = Töölehed (Zaehler1)
Lõpp Kui
Järgmine loendur2, loendur1
Töölehed (nimi). Aktiveeri
End Sub
Makro sorteerib aktiivse töövihiku töölehed tähestikulises kasvavas järjekorras. Järgmisel joonisel on näidatud, kuidas töövihiku näidis välja näeb pärast makro käivitamist:
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate lühikirjelduse siit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
