Selles artiklis õpime lehtede sortimist kasvavas järjekorras Microsoft Excel 2010 VBA kaudu.
Mitme lehega töötades leiate, et lehed pole õigesti paigutatud. Soovite kiiresti luua makro, mis sorteerib lehe automaatselt kasvavas järjekorras, kui makro käivitatakse.
Lehtede sortimiseks kasvavas järjekorras tehke järgmist.
- Vajutage klahvikombinatsiooni Alt+F11, et avada VB redaktori ekraan
- Valige lisamenüüst Moodul.
- Tippige moodulisse koodiridad järgmiselt:
AlamjaotamineTahtedInAscending ()
Dim i As Integer, n Nagu täisarv, SheetsCounter As Integer
Kui ActiveWorkbook pole midagi, siis väljuge alamist
Kui ActiveWorkbook.ProtectStructure Siis
MsgBox ActiveWorkbook.Name & "on kaitstud", vbCritical, "Sort Sheets"
Välju sub
Lõpp Kui
Kui MsgBox ("Sort Sheets?", VbQuestion + vbYesNo) vbJah siis väljuge
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
I = 2 jaoks SheetsCounter
N = 1 jaoks SheetsCounter
Kui Arvutustabelid (n). Nimi> Lehed (i). Nimi Siis
Lehed (i). Liigu enne: = Lehed (n)
Lõpp Kui
Järgmine n
Edasi i
End Sub
- Käivitage moodulist makro, vajutades klahvi F5.
Teise võimalusena vajutage klahvikombinatsiooni Alt+F11 ja naaske Excelisse, määrake makro mis tahes Exceli objektile nupu või ikoonina või vajutage makro valimiseks klahve Alt+F8 ja seejärel klõpsake nuppu Käivita.
Leiate, et lehed on paigutatud tähtnumbrilisse järjekorda.