Kā kārtot darblapu cilnes alfabētiskā secībā programmā Excel

Ja Excel darbgrāmatā ir daudz darblapu, var būt grūti atrast konkrētu darblapu. Darblapas cilņu sakārtošana alfabētiskā secībā atvieglotu to, ko meklējat.

Papildus darblapu cilņu organizēšanai, piemērojot tām krāsas, varat arī tos sakārtot alfabētiskā vai burtu un ciparu veidā, ja vien jūsu darblapām esat lietojis pielāgotus vārdus. Diemžēl darblapu cilņu šķirošana alfabēta kārtībā nav iebūvēta programmā Excel, bet jūs varat pievienot makro darbgrāmatai, kas ļaus jums kārtot cilnes augošā vai dilstošā secībā. Mēs jums parādīsim, kā pievienot Microsoft atbalsta vietnē makro, kas pieejama jūsu Excel darbgrāmatai, kas sakārtos 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.

Kopējiet un ielīmējiet šādu makro no Microsoft uz moduļa logu, kas tiek parādīts.

Sub Sort_Active_Book () Dim i As Integer Dim j Kā Integer Dim iAnswer Kā VbMsgBoxResult "Pieprasiet lietotājam, kādā virzienā viņi vēlas" kārtot darblapas. "IAnswer = MsgBox (" Šķirot lapas augošā secībā? "& Chr (10) _ & "Noklikšķinot uz Nē, kārtot dilstošā secībā", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Kārtot darblapas") Attiecībā uz i = 1 uz Sheets.Count For j = 1 uz Sheets.Count - 1 "Ja atbilde ir Yes, tad kārtot augošā secībā. 'Ja iAnswer = vbYes tad, ja UCase $ (lapas (j) .nosaukums)> UCase $ (lapas (j + 1) .nosaukums), tad lapas (j) .Pārvieto pēc: = lapas (j + 1) Beigas Ja "Ja atbilde ir Nē, tad kārtot dilstošā secībā. 'ElseIf iAnswer = vbNo Tad, ja UCase $ (lapas (j) .Name) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

VBA redaktors katram modulim automātiski piešķir nosaukumu ar numuru, piemēram, 1. moduli, 2. moduli utt. Jūs varat vienkārši pieņemt moduļa noklusējuma nosaukumu. Tomēr, ja jūs plānojat pievienot citas makro darbgrāmatai, ir lietderīgi pārdēvēt katru moduli, lai jūs zināt, kas tie ir. Mēs pārdēvēsim moduli, lai parādītu, kā.

Lai moduli pārdēvētu, kreisajā rūtī sadaļā Properties (Atribūti) izvēlieties moduli sadaļā Name (Vārds).

Lodziņā Name ierakstiet moduļa nosaukumu un nospiediet Enter. Ņemiet vērā, ka moduļa nosaukumā nevar būt atstarpes.

Moduļa nosaukums mainās kreisajā rūtī sadaļā Projekts.

Aizveriet VBA redaktoru, dodoties uz failu> Aizvērt un atgriezties programmā Microsoft Excel.

Tagad mēs veiksim makro, lai sakārtotu mūsu cilnes. Nospiediet Alt + F8, lai piekļūtu makro sarakstam dialoglodziņā Makro. Izvēlieties makro sarakstā (mūsu gadījumā ir tikai viens makro) un noklikšķiniet uz “Run”.

Tiek parādīts šāds dialoglodziņš, kas ļauj jums izvēlēties, vai vēlaties kārtot darblapas augošā vai dilstošā secībā. Mēs vēlamies tos sakārtot augošā secībā, tāpēc mēs noklikšķinām uz “Jā”.

Darblapas cilnes tagad ir sakārtotas alfabētiskā secībā.

Pievienotā makro tagad ir daļa no jūsu darbgrāmatas, bet, saglabājot to, jūs, iespējams, redzēsiet šādu dialoglodziņu. Tas ir tāpēc, ka esat saglabājis darbgrāmatu kā .xlsx failu, kas ir parasts Excel darbgrāmatas formāts, kurā nav makro. Lai darbgrāmatā iekļautu makro un tos varētu palaist, jums ir jāsaglabā darbgrāmata kā makro iespējota darbgrāmata vai .xlsm fails. Lai to izdarītu, šajā dialoglodziņā noklikšķiniet uz “Nē”.

Tiek parādīts dialoglodziņš Saglabāt kā. Pārvietojieties uz vietu, kur vēlaties saglabāt makro iespējotu darbgrāmatu, ja neesat jau šajā mapē. Nolaižamajā sarakstā “Saglabāt kā tipu” atlasiet “Excel makro-iespējota darbgrāmata (* .xlsm)”.

Noklikšķiniet uz "Saglabāt".

Ja darbgrāmata netiek saglabāta kā makro-iespējota darbgrāmata (.xlsm fails), pievienotā makro tiks dzēsta. Iespējams, vēlēsities dzēst darbgrāmatas .xlsx versiju, lai neaizmirstiet izmantot darbgrāmatas .xlsm versiju, ja vēlaties pievienot vairāk darblapu cilnes un kārtot tās, izmantojot makro. Ja nevēlaties vairs izmantot makro, jūs vienmēr varat saglabāt darbgrāmatu kā .xlsx failu.