In dit artikel leren we sorteerbladen in oplopende volgorde via VBA in Microsoft Excel 2010.
Als u aan meerdere bladen werkt, merkt u dat bladen niet goed zijn gerangschikt. U wilt snel een macro maken die het blad automatisch in oplopende volgorde sorteert wanneer de macro wordt uitgevoerd.
Volg de onderstaande stappen om de bladen in oplopende volgorde te sorteren:
- Druk op Alt+F11 om het VB Editor-scherm te openen
- Selecteer in het menu Invoegen de optie Module.
- Typ in de module de coderegels als volgt:
SubsorteerbladenInAscending()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Als ActiveWorkbook niets is, sluit dan Sub af
Als ActiveWorkbook.ProtectStructure Dan
MsgBox ActiveWorkbook.Name & " is beschermd", vbCritical, "Sorteer bladen"
Sluit sub
Stop als
If MsgBox("Sorteer bladen?", vbQuestion + vbYesNo) vbYes Sub afsluiten
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Voor i = 2 naar bladenteller
Voor n = 1 Naar Bladenteller
Als Bladen(n).Naam > Bladen(i).Naam Dan
Bladen(i).Verplaats voor:=Blads(n)
Stop als
volgende nr
volgende i
Einde sub
- Voer de macro uit vanuit de module door op F5 te drukken.
Of druk op Alt+F11 en keer terug naar Excel, wijs de macro toe aan een Excel-object als een knop of pictogram, of druk op Alt+F8 om de macro te selecteren en klik vervolgens op Uitvoeren.
U zult zien dat de bladen in alfanumerieke volgorde zijn gerangschikt.