Как да сортирате табла в лист по азбучен ред в Excel

Ако имате голям брой работни листове във вашата работна книга на Excel, може да е трудно да намерите конкретен работен лист. Сортирането на разделите в работния лист по азбучен ред ще улесни намирането на това, което търсите.

В допълнение към организирането на разделите в работния лист чрез прилагане на цветове към тях, можете също да ги подредите по азбучен ред или буквено-цифров начин, стига да използвате потребителски имена в работните си листове. За съжаление, сортирането на табовете по азбучен ред не е вградено в Excel, но можете да добавите макрос към работната си книга, която ще ви позволи да подредите разделите във възходящ или низходящ ред. Ще ви покажем как да добавите макрос, наличен на сайта за поддръжка на Microsoft, във вашата работна книга на Excel, който ще сортира разделите на работния лист.

За да започнете, натиснете Alt + F11, за да отворите редактора на Microsoft Visual Basic за приложения (VBA). След това отидете на Insert> Module.

Копирайте и поставете следния макрос от Microsoft в прозореца на модула, който се показва.

Sub Sort_Active_Book () Dim i As Integer Dim j Като целочислено Dim iAnswer As VbMsgBoxResult "Напомняне на потребителя каква посока иска да сортира работните листове." IAnswer = MsgBox ("Сортиране на листове във възходящ ред?" & Chr (10) _ & "Щракване" Не ще сортира в низходящ ред ", _ vbYesNoCancel + vbQuestion + vbDefaultButton1," Сортиране на работни листове ") За i = 1 To Sheets.Count За j = 1 To Sheets.Count - 1" Ако отговорът е Да, след това сортирайте във възходящ ред. 'Ако iAnswer = vbYes Тогава, ако UCase $ (Листове (j) .Name)> UCase $ (Листове (j + 1) .Име) След това Листове (j) .Move След: = Листове (j + 1) Край Ако "Ако отговорът е Не, след това подредете в низходящ ред. 'ElseIf iAnswer = vbNo Then Ако UCase $ (Листове (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 автоматично именува всеки модул с номер на края, като например Module1, Module2 и т.н. Можете просто да приемете името по подразбиране на модула. Въпреки това, ако планирате да добавите други макроси към вашата работна книга, добра идея е да преименувате всеки модул, така че да знаете какви са те. Ще преименуваме нашия модул, за да ви покажем как.

За да преименувате модула, изберете текста в полето Име за модула под Properties в левия прозорец.

Въведете име за модула в полето Име и натиснете Enter. Обърнете внимание, че името на модула не може да съдържа интервали.

Името на модула се променя в списъка Модули в Проект в левия прозорец.

Затворете VBA редактора, като отидете на File> Close и Return to Microsoft Excel.

Сега ще изпълним макроса, за да сортираме разделите. Натиснете Alt + F8 за достъп до списъка с макроси в диалоговия прозорец Макрос. Изберете макроса в списъка (в нашия случай има само един макрос) и кликнете върху „Изпълни“.

Появява се следният диалогов прозорец, който ви позволява да изберете дали искате да подредите работните си листове във възходящ или низходящ ред. Искаме да ги подредим във възходящ ред, така че да кликнем върху „Да“.

Разделите на работния лист сега са подредени по азбучен ред.

Добавеният макрос сега е част от работната ви книга, но когато го запазите, вероятно ще видите следния диалогов прозорец. Това е така, защото сте запазили работната си книга като .xlsx файл, който е нормален формат на работната книга на Excel, който не включва макроси. За да включите макроси във вашата работна книга и да можете да ги изпълните, трябва да запишете работната си книга като работна книга с активиран макрос или .xlsm файл. За да направите това, кликнете върху „Не“ в този диалогов прозорец.

Появява се диалоговият прозорец Запиши като. Придвижете се до мястото, където искате да запишете работната книга с активиран макрос, ако все още не сте в нея. Изберете “Excel Macro-Enabled Workbook (* .xlsm)” от падащия списък “Save as type”.

Кликнете върху „Запазване“.

Ако не запишете работната книга като работна книга с активиран макрос (.xlsm файл), добавеният ви макрос ще бъде изтрит. Може да искате да изтриете .xlsx версията на вашата работна книга, така че да не забравите да използвате .xlsm версията на вашата работна книга, ако искате да добавите повече раздели на работни листове и да ги сортирате отново с помощта на макроса. Винаги можете да запишете работната книга като .xlsx файл отново, ако вече не искате да използвате макроси.