Näin voit antaa taulukoille aakkosjärjestyksen
Tietojen lajittelu aakkosjärjestyksessä luetteloissasi ei ole ongelma. Mutta miten suhtaudut siihen, kun haluat laittaa laskentataulukot aakkosjärjestykseen niiden nimien mukaan?
Seuraavassa kuvassa on taulukkolaskenta, jossa on useita laskentataulukoita. Ne on lajiteltava aakkosjärjestykseen, jotta ne on helpompi löytää.
3
Muutaman arkin avulla voit tehdä työn manuaalisesti luotettavasti. Monien arkkien avulla tästä tulee nopeasti vaikeaa, aikaa vievää ja hämmentävää. Seuraava makro auttaa sinua edelleen:
LajitteleBlaetter ()
Dim Zaehler1 kokonaislukuna, Zaehler2 kokonaislukuna
Dim -nimi merkkijonona
Nimi = ActiveSheet.Name
Zaehler1 = 1 laskentataulukoihin
Zaehler2 = Zaehler1 laskentataulukoihin
Jos UCase (laskentataulukot (laskuri2). Nimi) <UCase (laskentataulukot (laskuri1). Nimi) Sitten
Laskentataulukot (Zaehler2) .Move before: = Laskentataulukot (Zaehler1)
Loppu Jos
Seuraava laskuri2, laskuri1
Laskentataulukot (Nimi) Aktivoi
End Sub
Makro lajittelee aktiivisen työkirjan laskentataulukot aakkosjärjestyksessä nousevaan järjestykseen. Seuraava kuva näyttää, miltä esimerkkityökirja näyttää makron aloittamisen jälkeen:
Vinkki: Jos haluat tietää, miten voit syöttää ja käynnistää makroja Excelissä, löydät lyhyen kuvauksen täältä: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
