Ja Excel darbgrāmatā ir liels skaits darblapu, var būt grūti atrast konkrētu darblapu. Darblapu ciļņu šķirošana alfabētiskā veidā atvieglotu jūsu meklēto meklēšanu.
Papildus darblapu ciļņu organizēšanai, piemērojot tām krāsas, tos var arī sakārtot alfabētiskā secībā vai burtciparu veidā, ja vien savām darblapām esat pielāgojis savus nosaukumus. Diemžēl darblapu tabulas šķirošana alfabētiskā ceļā nav iebūvēta programmā Excel, taču jūs varat pievienot savu darbgrāmatu makro, kas ļaus šķirot cilnes augošā vai dilstošā secībā. Mēs parādīsim, kā pievienot Microsoft Excel atbalsta darblapā pieejamo makro, kas atdala jūsu darblapu cilnes.
Lai sāktu, nospiediet Alt + F11, lai atvērtu Microsoft Visual Basic for Applications (VBA) redaktoru. Pēc tam dodieties uz Ievietot> Modulis.
Nokopējiet un ielīmējiet šo makro no Microsoft moduļa logā, kas tiek parādīts.
Apakšizvēlne Sort_Active_Book () Dim I kā Integer Dim j Kā Integer Dim iAnswer Kā VbMsgBoxResult "Uzaicināt lietotājam, kādā virzienā viņi vēlas" kārtot darblapas. "IAnswer = MsgBox (" Šķirošanas lapas augošā secībā? "& Chr (10) _ & "Noklikšķinot uz Nē, tiks sakārtots dilstošā secībā", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Veidņu šķirošana") Ja i = 1 līdz Sheets.Count J = 1 līdz Sheets.Count - 1 "Ja atbilde ir Jā, tad sakārtojiet augošā secībā. Ja iAnswer = vbYes tad, ja UCase $ (Sheets (j) .Name)> UCase $ (Sheets (j + 1) .Name) Tad Sheets (j) .Move After: = Sheets (j + 1) End If "If atbilde ir Nē, pēc tam sakārtojiet dilstošā secībā. ElseIf iAnswer = vbNo Tad ja UCase $ (Sheets (j) .Name) <UCase $ (Sheets (j + 1) .Name) Tad Sheets (j) .Move After: = Izklājlapas (j + 1) Beigt, ja Beigas Ja Nākamais j Nākamais i Beigas Apakšvirsraksts VBA redaktors automātiski nosauc katru moduli ar numuru beigās, piemēram, Module1, Module2 utt. Jūs varat vienkārši pieņemt moduļa noklusējuma nosaukumu. Tomēr, ja plānojat pievienot citus makro darbgrāmatam, ir ieteicams pārdēvēt katru moduli, lai jūs zināt, kas tas ir. Mēs pārdēvējam mūsu moduli, lai parādītu, kā to izdarīt.
Lai pārdēvētu moduli, kreisajā rūtī izvēlnē Properties (Īpašības) atlasiet moduļa Vārdu lodziņā esošo tekstu.
Nosaukuma lodziņā ierakstiet moduļa nosaukumu un nospiediet taustiņu Enter. Ņemiet vērā, ka moduļa nosaukumā nevar būt atstarpes.
Moduļa nosaukums ir mainīts moduļu sarakstā sadaļā Projekts kreisajā rūtī.
Aizveriet VBA redaktoru, dodoties uz Fails> Aizvērt un Atgriezties programmā Microsoft Excel.
Tagad mēs veiksim makro, lai sakārtotu mūsu cilnes. Nospiediet Alt + F8, lai atvērtu makro sarakstu makro dialoga logā. Sarakstā atlasiet makro (mūsu gadījumā ir tikai viens makro) un noklikšķiniet uz "Palaist".
Parādās šāds dialoglodziņš, kas ļauj jums izvēlēties, vai vēlaties kārtot darblapas augošā vai dilstošā secībā. Mēs vēlamies sakārtot tos augošā secībā, tāpēc mēs noklikšķinām uz "Jā".
Darba lapu cilnes tagad ir sakārtotas alfabētiskā secībā.
Pievienotais makro tagad ir daļa no jūsu darbgrāmatas, bet, kad to saglabājat, jūs, iespējams, redzēsiet šādu dialoglodziņu. Tas ir tāpēc, ka jūs saglabājāt savu darbgrāmatu kā .xlsx failu, kas ir parasts Excel darbgrāmatas formāts, kurā nav ietverti makro. Lai jūsu darbgrāmatā iekļautu makro un varētu tos palaist, jums jāaizsargā sava darbgrāmata kā makro aktivizēta darbgrāmata vai .xlsm fails. Lai to paveiktu, šajā dialoglodziņā noklikšķiniet uz "Nē".
Parādās dialoglodziņš Saglabāt kā. Pārejiet uz vietu, kur vēlaties saglabāt darbgrāmatu ar makro, ja vēl neesat šajā mapē. Nolaižamajā sarakstā "Saglabāt kā veids" atlasiet "Excel makroekonomiskās darbgrāmatas (* .xlsm)".
Noklikšķiniet uz "Saglabāt".
Ja jūs neesat saglabājis darbgrāmatu kā makro aktivizētu darbgrāmatu (.xlsm fails), pievienotais makro tiks dzēsts. Iespējams, vēlēsities izdzēst savas darbgrāmatas .xlsx versiju, lai jūs neaizmirstu izmantot savas darbgrāmatas .xlsm versiju, ja vēlaties pievienot vairāk darblapu cilnes un kārtot tos vēlreiz, izmantojot makro. Jūs vienmēr varat saglabāt darbgrāmatu kā .xlsx failu vēlreiz, ja vairs nevēlaties izmantot makro.