Šajā rakstā mēs iemācīsimies kārtot lapas augošā secībā, izmantojot Microsoft Excel 2010 VBA.
Strādājot pie vairākām loksnēm, jūs atklājat, ka lapas nav pareizi sakārtotas. Jūs vēlaties ātri izveidot makro, kas automātiski sakārtos lapu augošā secībā, kad tiek palaists makro.
Lai kārtotu lapas augošā secībā, rīkojieties šādi:
- Nospiediet Alt+F11, lai palaistu VB redaktora ekrānu
- Izvēlnē Ievietot atlasiet Modulis.
- Modulī ierakstiet koda rindiņas šādi:
Apakškartēšana
Dim i As Integer, n Kā Integer, SheetsCounter As Integer
Ja ActiveWorkbook nav nekas, tad izejiet no apakš
Ja ActiveWorkbook.ProtectStructure Tad
MsgBox ActiveWorkbook.Name & "ir aizsargāts", vbCritical, "Šķirot lapas"
Iziet no apakšnodaļas
Beigas Ja
Ja MsgBox ("Kārtot lapas?", VbQuestion + vbYesNo) vbJā, tad iziet
Application.EnableCancelKey = xlDisabled
SheetsCounter = Sheets.Count
Ja i = 2 uz SheetsCounter
Ja n = 1 uz SheetsCounter
Ja Izklājlapas (n). Nosaukums> Izklājlapas (i). Nosaukums Tad
Loksnes (i). Pārvietot pirms: = loksnes (n)
Beigas Ja
Nākamais n
Tālāk i
Beigt apakš
- Palaidiet makro no moduļa, nospiežot F5.
Vai arī nospiediet Alt+F11 un atgriezieties programmā Excel, piešķiriet makro jebkuram Excel objektam kā pogu vai ikonu vai nospiediet Alt+F8, lai atlasītu makro, un pēc tam noklikšķiniet uz Palaist.
Jūs atradīsit, ka lapas ir sakārtotas burtciparu secībā.