I den här artikeln lär vi oss att sortera blad i stigande ordning via VBA i Microsoft Excel 2010.
När du arbetar med flera ark upptäcker du att arken inte är ordentligt ordnade. Du vill snabbt skapa ett makro som automatiskt sorterar arket i stigande ordning när makro körs.
Följ nedanstående steg för att sortera arken i stigande ordning:
- Tryck på Alt+F11 för att starta VB Editor -skärmen
- På menyn Infoga väljer du modul.
- I modulen skriver du kodraderna enligt följande:
Sub SortingSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Om ActiveWorkbook är ingenting, avsluta Sub
Om ActiveWorkbook.ProtectStructure Då
MsgBox ActiveWorkbook.Name & "is protected", vbCritical, "Sort Sheets"
Avsluta Sub
Avsluta om
Om MsgBox ("Sort Sheets?", VbQuestion + vbYesNo) vbYes Then Exit Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
För i = 2 till SheetsCounter
För n = 1 till SheetsCounter
If Sheets (n) .Name> Sheets (i) .Name Then
Ark (i). Flytta innan: = Ark (n)
Avsluta om
Nästa n
Nästa i
Avsluta Sub
- Kör makrot från modulen genom att trycka på F5.
Alternativt kan du trycka på Alt+F11 och återgå till Excel, tilldela makrot till alla Excel -objekt som en knapp eller ikon, eller tryck på Alt+F8 för att välja makrot och klicka sedan på Kör.
Du kommer att upptäcka att arken är ordnade i en alfanumerisk ordning.
