U ovom ćemo članku naučiti sortirati listove uzlaznim redoslijedom kroz VBA u programu Microsoft Excel 2010.
Tijekom rada na više listova otkrijete da listovi nisu pravilno raspoređeni. Želite brzo stvoriti makronaredbu koja će automatski sortirati list uzlaznim redoslijedom kad god se makro pokrene.
Za sortiranje listova uzlaznim redoslijedom slijedite dolje navedene korake:
- Pritisnite Alt+F11 za pokretanje zaslona VB Editor
- Na izborniku Umetanje odaberite Modul.
- U Modul upišite linije koda na sljedeći način:
Pod sortiranjeSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Ako ActiveWorkbook nije ništa, izađite iz Sub
Ako ActiveWorkbook.ProtectStructure Zatim
MsgBox ActiveWorkbook.Name & "zaštićen je", vbCritical, "Sortiraj listove"
Izlaz iz podv
Završi ako
Ako MsgBox ("Sortiraj listove?", VbQuestion + vbDaNe) vbDa Zatim izađite iz podv.
Application.EnableCancelKey = xlDisabled
SheetsCounter = Tablice.Broj
Za i = 2 To SheetsCounter
Za n = 1 Za Brojač listova
Ako Listovi (n) .Naziv> Listovi (i) .Imenujte zatim
Listovi (i). Premjesti prije: = Listovi (n)
Završi ako
Dalje n
Sljedeći i
Kraj podm
- Pokrenite makro iz Modula pritiskom na F5.
Alternativno, pritisnite Alt+F11 i vratite se u Excel, dodijelite makro bilo kojem Excelovom objektu kao gumb ili ikonu ili pritisnite Alt+F8 za odabir makronaredbe, a zatim kliknite Pokreni.
Otkrit ćete da su listovi poredani alfanumeričkim redoslijedom.