Кроме того, чтобы упорядочивать вкладки рабочего листа, применяя к ним цвета, вы также можете сортировать их по алфавиту или буквенно-цифровому значению, если вы применяете собственные имена к своим листам. К сожалению, вкладки таблицы сортировки в алфавитном порядке не встроены в 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 автоматически называет каждый модуль номером на конце, таким как Module1, Module2 и т. Д. Вы можете просто принять имя по умолчанию для модуля. Однако, если вы планируете добавлять другие макросы в свою книгу, рекомендуется переименовать каждый модуль, чтобы вы знали, что они собой представляют. Мы переименуем наш модуль, чтобы показать вам, как это сделать.
Введите имя модуля в поле «Имя» и нажмите «Ввод». Обратите внимание, что имя модуля не может содержать пробелы.
