Sortere ark i stigende rekkefølge gjennom VBA i Microsoft Excel 2010

Anonim

I denne artikkelen lærer vi å sortere ark i stigende rekkefølge gjennom VBA i Microsoft Excel 2010.

Når du arbeider med flere ark, finner du ut at arkene ikke er ordnet ordentlig. Du vil raskt lage en makro som automatisk sorterer arket i stigende rekkefølge når makroen kjøres.

Følg trinnene nedenfor for å sortere arkene i stigende rekkefølge:

  • Trykk Alt+F11 for å starte VB Editor -skjermen
  • Velg Sett inn -menyen.

  • I modulen skriver du inn kodelinjene som følger:

Sub SortingSheetsInAscending ()

Dim i As Integer, n As Integer, SheetsCounter As Integer

Hvis ActiveWorkbook ikke er noe, avslutter du Sub

Hvis ActiveWorkbook.ProtectStructure Da

MsgBox ActiveWorkbook.Name & "er beskyttet", vbCritical, "Sort Sheets"

Avslutt Sub

Slutt om

Hvis MsgBox ("Sort Sheets?", VbQuestion + vbYesNo) vbYes Then Exit Sub

Application.EnableCancelKey = xlDisabled

SheetsCounter = Sheets.Count

For i = 2 til SheetCounter

For n = 1 til SheetsCounter

If Sheets (n) .Name> Sheets (i) .Name Then

Ark (i). Flytt før: = Ark (n)

Slutt om

Neste n

Neste jeg

Slutt Sub

  • Kjør makroen fra modulen ved å trykke F5.

Alternativt kan du trykke Alt+F11 og gå tilbake til Excel, tilordne makroen til et Excel -objekt som en knapp eller et ikon, eller trykk Alt+F8 for å velge makroen, og klikk deretter Kjør.
Du vil finne at arkene er ordnet i en alfanumerisk rekkefølge.