В допълнение към организирането на разделите на работния лист, като приложите цветове към тях, можете също да ги подредите по азбучен или буквено-цифрен начин, стига да приложите персонализирани имена в работните си таблици. За съжаление, разделянето на разделите на работните листи по азбучен ред не е вградено в Excel, но можете да добавите макрос към работната си книга, която ще ви позволи да подредите разделите си във възходящ или низходящ ред. Ще ви покажем как да добавите макроси, налични в сайта за поддръжка на Microsoft, в работната ви книга в Excel, която ще подреди разделите на вашия лист.
Sub Sort_Active_Book() Dim i As Integer Dim j As Integer Dim iAnswer As VbMsgBoxResult ' ' Prompt the user as which direction they wish to ' sort the worksheets. ' iAnswer = MsgBox('Sort Sheets in Ascending Order?' & Chr(10) _ & 'Clicking No will sort in Descending Order', _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 'Sort Worksheets') For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 ' ' If the answer is Yes, then sort in ascending order. ' If iAnswer = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If ' ' If the answer is No, then sort in descending order. ' ElseIf iAnswer = vbNo Then If UCase$(Sheets(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 автоматично наименува всеки модул с число в края, като Модул1, Модул2 и т.н. Можете просто да приемете името по подразбиране на модула. Ако обаче планирате да добавите други макроси към вашата работна книга, добре е да преименувате всеки модул, така че да знаете какви са те. Ще преименуваме нашия модул, за да ви покажем как.
Въведете име на модула в полето Име и натиснете Enter. Обърнете внимание, че името на модула не може да съдържа интервали.
