V tem članku se bomo naučili razvrščanja listov po naraščajočem vrstnem redu prek VBA v programu Microsoft Excel 2010.
Med delom na več listih ugotovite, da listi niso pravilno razporejeni. Želite hitro ustvariti makro, ki bo samodejno razvrstil list po naraščajočem vrstnem redu, kadar koli zaženete makro.
Če želite liste razvrstiti po naraščajočem vrstnem redu, sledite spodnjim korakom:
- Pritisnite Alt+F11, da odprete zaslon urejevalnika VB
- V meniju Vstavljanje izberite Modul.
- V modul vnesite kodne vrstice na naslednji način:
PodrazvrstitevSheetsInAscending ()
Dim i As Integer, n As Integer, SheetsCounter As Integer
Če ActiveWorkbook ni nič, zaprite Sub
Če ActiveWorkbook.ProtectStructure Potem
MsgBox ActiveWorkbook.Name & "je zaščiteno", vbCritical, "Razvrsti liste"
Zapri pod
Konec Če
Če MsgBox ("Razvrsti liste?", VbQuestion + vbDa Ne) vbDa Potem zapustite pod
Application.EnableCancelKey = xlDisabled
SheetsCounter = Število listov
Za i = 2 Za števec listov
Za n = 1 Za števec listov
Če Sheets (n) .Name> Sheets (i) .Name Potem
Listi (i). Premakni se prej: = Listi (n)
Konec Če
Naprej n
Naprej i
End Sub
- Zaženite makro iz modula s pritiskom na F5.
Druga možnost je, da pritisnete Alt+F11 in se vrnete v Excel, makro dodelite kateremu koli Excelovemu predmetu kot gumb ali ikono ali pritisnite Alt+F8, da izberete makro, in nato kliknite Zaženi.
Ugotovili boste, da so listi razporejeni po alfanumeričnem vrstnem redu.