Hvordan sortere Tabs Alfabetisk Med VBA i Excel

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" metode for å flytte et ark til et annet sted i arbeidsboken. Du kan definere navnet og rekkefølgen på ark i en matrise og sløyfe gjennom rekke å flytte slags arkfaner. Denne metoden er svært nyttig når du trenger å sortere gjennom mange ark i en arbeidsbok.

Bruksanvisning

1 Klikk på "Utvikler" 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 inn følgende kode:

Dim shtNamesArray As Variant

Dim shtCntr As Long

4 Definer matrisen ved å legge platenavn i den rekkefølgen du ønsker ved å legge til følgende kode:

shtNamesArray = Array ( "aSheet", "bSheet", "cSheet")

5 Lag en løkke for å sortere arkene i den rekkefølgen definert i rekken ved å legge til følgende kode:

For shtCntr = UBound (shtNamesArray) Til LBound (shtNamesArray) Step -1

Worksheets(shtNamesArray(shtCntr)).Move Before:=Worksheets(1)

Neste shtCntr

6 Avslutt prosedyren ved å skrive "End Sub". Trykk "F5" for å kjøre den og sortere kategoriene.