I denne artikel lærer vi at sortere ark i stigende rækkefølge gennem VBA i Microsoft Excel 2010.
Når du arbejder på flere ark, finder du ud af, at arkene ikke er ordentligt arrangeret. Du vil hurtigt oprette en makro, som automatisk sorterer arket i stigende rækkefølge, når makroen køres.
Følg nedenstående trin for at sortere arkene i stigende rækkefølge:
- Tryk på Alt+F11 for at starte VB Editor -skærmen
- Vælg modul i menuen Indsæt.
- I modulet skal du indtaste kodelinjer som følger:
Sub SortingSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Hvis ActiveWorkbook ikke er noget, skal du afslutte Sub
Hvis ActiveWorkbook.ProtectStructure Så
MsgBox ActiveWorkbook.Name & "er beskyttet", vbCritical, "Sort Sheets"
Afslut Sub
Afslut Hvis
Hvis MsgBox ("Sorter ark?", VbQuestion + vbYesNo) vbJa Afslut derefter Sub
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
For i = 2 Til SheetsCounter
For n = 1 Til SheetsCounter
If Sheets (n) .Name> Sheets (i) .Name Then
Ark (i). Flyt før: = Ark (n)
Afslut Hvis
Næste n
Næste i
Afslut Sub
- Kør makroen fra modulet ved at trykke på F5.
Alternativt kan du trykke på Alt+F11 og vende tilbage til Excel, tildele makroen til et hvilket som helst Excel -objekt som en knap eller et ikon, eller tryk på Alt+F8 for at vælge makroen, og klik derefter på Kør.
Du vil opdage, at arkene er arrangeret i en alfanumerisk rækkefølge.