If-Koubou

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

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

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

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

За да започнете, натиснете Alt + F11, за да отворите редактора на Microsoft Visual Basic for Applications (VBA). След това отидете на Вмъкване> Модул.

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

Подреждане Sort_Active_Book () Dim i като цяло число Dim j Като цяло число Dim iAnswer Като VbMsgBoxResult "Попитайте потребителя коя посока желае да" подреди листовете "iAnswer = MsgBox (" Сортиране листове във възходяща поръчка? "& Chr (10) _ & "Натискането на" Не "ще се сортира в низходяща поръчка", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Сортиране на работни листове") За i = 1 To Sheets.Count За j = 1 To Sheets.Count - 1 " по възходящ ред. 'Ако iAnswer = vbYes Тогава Ако UCase $ (Sheets (j) .Name)> UCase $ (Sheets (j + 1) .Name) След това Sheets (j). (j) .Name) <UCase $ (Sheets (j + 1) .Name) След това Sheets (j) .Move After: След това, = Листове (j + 1) End If End Ако следващ j Следващ i End Sub

Редакторът на VBA автоматично наименува всеки модул с число в края, като Модул1, Модул2 и т.н. Можете просто да приемете името по подразбиране на модула. Ако обаче планирате да добавите други макроси към вашата работна книга, добре е да преименувате всеки модул, така че да знаете какви са те. Ще преименуваме нашия модул, за да ви покажем как.

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

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

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

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

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

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

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

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

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

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

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