Töölehtede vahekaartide sortimine tähestikulises järjekorras Excelis

Kui teie Exceli töövihikus on suur hulk töölehti, võib olla raske leida konkreetset töölehte. Töölehe vahekaartide sortimine tähestikulises järjekorras lihtsustaks otsitava teabe leidmist.

Lisaks töölehtede vahekaartide korraldamisele neile värvide abil saate neid sorteerida ka tähestikulises või tähtnumbrilises järjekorras, kui olete oma töölehtedele kohandatud nimed kandnud. Kahjuks ei ole töölehtede vahekaartide tähestikuline sortimine Excelisse sisse ehitatud, kuid saate oma töövihikusse lisada makro, mis võimaldab sul sortida vahekaarte kasvavas või kahanevas järjekorras. Näitame teile, kuidas lisada Microsofti toe saidile makro, mis on teie Exceli töövihikus, mis sorteerib teie töölehe vahekaardid.

Alustamiseks vajutage Alt + F11, et avada Microsoft Visual Basic for Applications (VBA) redaktor. Seejärel avage Lisa> Moodul.

Kopeerige ja kleepige järgmine makro Microsoftist kuvatavasse mooduliaknasse.

Sub Sort_Active_Book () Dim i kui terviklik Dim j kui terviklik Dim iAnswer Nagu VbMsgBoxResult "Küsi kasutajalt, millises suunas nad soovivad" sorteerida töölehti. "IAnswer = MsgBox (" Sorteeri lehted kasvavas järjekorras? " & "Ei klõpsates sorteeritakse kahanevas järjekorras", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sorteerige töölehed") i = 1 lehele.Kaart j = 1 to Sheets.Count - 1 "Kui vastus on jah, siis sort kasvavas järjekorras. 'Kui iAnswer = vbYes siis, kui UCase $ (lehed (j) .Nimi)> UCase $ (lehed (j + 1) .Nimi), siis lehed (j) .Move After: = lehed (j + 1) Lõpeta kui "Kui vastus on Ei, seejärel sorteeri kahanevas järjekorras. 'ElseIf iAnswer = vbNo Siis kui UCase $ (lehed (j) .Nimi) < UCase$(Sheets(j + 1).Name) Then                Sheets(j).Move After:=Sheets(j + 1)             End If          End If       Next j    Next i End Sub

VBA-redaktor nimetab iga mooduli automaatselt lõpus oleva numbri, näiteks mooduli 1, mooduli 2 jne. Mooduli vaikenime saab lihtsalt aktsepteerida. Kui aga plaanite oma töövihikusse lisada muid makroid, on hea moodus ümber nimetada iga moodul, et teada saada, mis need on. Me nimetame oma mooduli ümber, et näidata teile, kuidas.

Mooduli ümbernimetamiseks valige vasakpoolsel paanil suvandil Atribuudid mooduli nimi.

Tippige väljale Nimi nimi mooduli nimi ja vajutage Enter. Pidage meeles, et mooduli nimi ei tohi sisaldada tühikuid.

Mooduli nimi muutub vasakul paanil Projekti all olevasse moodulite loendisse.

Sulgege VBA redaktor, minnes menüükäsuga Fail> Sule ja naaske Microsoft Excelisse.

Nüüd käivitame makro, et sorteerida oma kaarte. Macro dialoogiboksi makrode loendi avamiseks vajutage Alt + F8. Valige loendis makro (meie puhul on ainult üks makro) ja klõpsake „Run”.

Kuvatakse järgmine dialoogiboks, mis võimaldab teil valida, kas soovite töölehti sorteerida kasvavas või kahanevas järjekorras. Soovime neid sorteerida kasvavas järjekorras, nii et me klõpsame „Jah“.

Töölehe sakid on nüüd paigutatud tähestikulises järjekorras.

Lisatav makro on nüüd teie töövihiku osa, kuid selle salvestamisel näete ilmselt järgmist dialoogiboksi. Seda seetõttu, et salvestasite oma töövihiku .xlsx-failina, mis on tavaline Exceli töövihiku formaat, mis ei sisalda makroid. Makrode lisamiseks töövihikusse ja nende käivitamiseks peate oma töövihiku salvestama makro-toega töövihikuks või .xlsm-failiks. Selleks klõpsake selles dialoogiboksis „Ei“.

Kuvatakse dialoogiboks Salvesta kui. Navigeerige sinna, kuhu soovite makro-toega töövihiku salvestada, kui te pole selles kaustas juba olemas. Valige rippmenüüst „Save as type“ (Salvesta tüüp) „Excel Macro-Enabled Workbook (* .xlsm)”.

Klõpsake „Salvesta“.

Kui te ei salvesta töövihikut makromajandusliku töövihikuna (.xlsm fail), kustutatakse lisatud makro. Võib-olla soovite oma töövihiku .xlsx versiooni kustutada, et te ei unustaks oma töövihiku .xlsm versiooni kasutada, kui soovite lisada rohkem töölehe sakke ja sorteerida neid uuesti makro abil. Kui te ei soovi enam makroid kasutada, saate töövihiku alati .xlsx-failina uuesti salvestada.