Sortera ark i stigande ordning via VBA i Microsoft Excel 2010

Anonim

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.