Sortering faner alfabetisk med Visual Basic for Applications ( VBA ) i Excel er ikke så vanskelig som du kanskje tror. I VBA kan du bruke " Worksheet.Move "-metoden for å flytte et ark til et annet sted i arbeidsboken . Du kan definere navn og rekkefølgen på ark i en matrise og loop gjennom rekke å flytte sortere de arkfaner . Denne metoden er svært nyttig når du trenger å sortere gjennom mange ark i en arbeidsbok . Instruksjoner
en
Klikk på " Developer " og klikk " Visual Basic " for å åpne Microsoft Visual Basic Editor . Klikk på " Insert"-menyen og klikk " Module" for å legge til en ny modul
2
Start med å lage en ny sub prosedyre og legge til følgende VBA -kode: .
Sub sortSheetsAlphabetically ( )
3
Lag to variabler ved å skrive følgende kode :
Dim shtNamesArray Som Variant
Dim shtCntr Som Long
4
Definer array ved å legge arket navnene i den rekkefølgen du ønsker, ved å legge til følgende kodelinje : en
shtNamesArray = Array ( " aSheet ", " bSheet ", " cSheet ")
5
Lag en løkke for å sortere ark i den rekkefølgen definert i matrisen ved å legge følgende kode:
for shtCntr = UBound ( shtNamesArray ) til LBound ( shtNamesArray ) Step -1
.
Regneark ( shtNamesArray ( shtCntr ) ) Flytt Før: " . End Sub " = Regneark ( 1 )
Neste shtCntr
6
Avslutt prosedyren ved å skrive Trykk "F5 " for å kjøre den og sortere kategoriene.