Как расположить вкладки в Excel по возрастанию и убыванию
В этом руководстве показано, как можно быстро сортировать рабочие листы Excel в алфавитном порядке с помощью кода VBA и инструмента Workbook Manager.
Microsoft Excel предоставляет ряд быстрых и простых способов упорядочить столбцы или строки в алфавитном порядке. Но есть только один способ изменить порядок рабочих листов в Excel — перетащить их в нужное место на панели вкладок листа. Когда дело доходит до алфавитного расположения вкладок в действительно большой книге, это может быть долгим и ошибочным способом. Ищете альтернативу для экономии времени? Их всего два: код VBA или сторонние инструменты.
Как расставить вкладки в Excel по алфавиту с помощью VBA
Ниже вы найдете три примера кода VBA для сортировки листов Excel по возрастанию, убыванию и в любом направлении в зависимости от выбора пользователя.
Подразумевая, что у вас есть некоторый опыт работы с VBA, мы опишем только основные шаги по добавлению макроса на ваш лист:
- В книге Excel нажмите клавиши ALT + F11, чтобы открыть редактор Visual Basic.
- На левой панели щелкните правой кнопкой мыши Эта рабочая тетрадьа затем щелкните Вставлять > Модуль.
- Вставьте код VBA в окно кода.
- Нажмите F5, чтобы запустить макрос.
Подробные пошаговые инструкции см. в разделе Как вставить и запустить код VBA в Excel.
Кончик. Если вы хотите сохранить макрос для дальнейшего использования, обязательно сохраните файл как книгу Excel с поддержкой макросов (.xlsm).
Кроме того, вы можете скачать наш образец Расставить вкладки Excel по алфавиту рабочей книги, включите содержимое, если будет предложено, и запустите нужный макрос прямо оттуда. Рабочая книга содержит следующие макросы:
- ВкладкиПо возрастанию – сортировать листы по алфавиту от А до Я.
- ВкладкиПо убыванию – расположите листы в обратном порядке, от Я до А.
- AlphabetizeTabs – сортировать вкладки листа в обоих направлениях, по возрастанию или по убыванию.
Загрузив образец книги и открыв его в Excel, откройте свою книгу, в которой вы хотите расположить вкладки в алфавитном порядке, нажмите Alt + F8, выберите нужный макрос и нажмите «Выполнить».
Сортировка вкладок Excel по алфавиту от А до Я
Этот небольшой макрос упорядочивает листы в текущей книге в возрастающем алфавитно-цифровом порядке: сначала листы, имена которых начинаются с цифр, а затем листы от А до Я.
Sub TabsAscending() Для i = 1 Для Application.Sheets.Count Для j = 1 Для Application.Sheets.Count – 1 Если UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1) ).Name) Then Sheets(j).Move after:=Sheets(j + 1) End If Next Next MsgBox “Вкладки отсортированы от А до Я.” Конец сабвуфера
Расположите вкладки Excel от Я до А
Если вы хотите отсортировать листы в алфавитно-цифровом порядке по убыванию (от Z до A, затем листы с числовыми именами), используйте следующий код:
Sub TabsDescending() Для i = 1 Для Application.Sheets.Count Для j = 1 Для Application.Sheets.Count – 1 Если UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1) ).Name) Then Application.Sheets(j).Move after:=Application.Sheets(j + 1) End If Next Next MsgBox "Вкладки отсортированы от Z до A." Конец сабвуфера
Расставить вкладки по алфавиту по возрастанию или по убыванию
Этот макрос позволяет вашим пользователям решать, как сортировать рабочие листы в данной книге, по алфавиту от А до Я или в обратном порядке.
Поскольку стандартное диалоговое окно (MsgBox) в Excel VBA позволяет выбирать только из нескольких предопределенных кнопок, мы создадим собственную форму (UserForm) с тремя пользовательскими кнопками: от А до Я, от я до аа также Отмена.
Для этого откройте редактор Visual Basic, щелкните правой кнопкой мыши Эта рабочая тетрадьи нажмите Вставлять > Пользовательская форма. Назовите свою форму СортировкаПорядокОти добавляем к нему 4 элемента управления: метку и три кнопки:
Затем нажмите F7 (или дважды щелкните форму), чтобы открыть Код окно и вставьте туда приведенный ниже код. Код перехватывает нажатия кнопок и присваивает каждой кнопке уникальный тег:
Private Sub CommandButton1_Click() Me.Tag = 1 Me.Hide End Sub Private Sub CommandButton2_Click() Me.Tag = 2 Me.Hide End Sub Private Sub CommandButton3_Click() Me.Tag = 0 Me.Hide End Sub
В зависимости от того, нажимает ли пользователь от А до Я или же от я до а кнопка на форме, сортировка вкладок в алфавитном порядке по возрастанию (выбрано по умолчанию) или в алфавитном порядке по убыванию; или закрыть форму и ничего не делать в случае Отмена. Это делается с помощью следующего кода VBA, который вы вставляете обычным способом через Вставлять > Модуль.
Sub AlphabetizeTabs() Dim SortOrder As Integer SortOrder = showUserForm Если SortOrder = 0, то выйдите из Sub For x = 1 To Application.Sheets.Count For y = 1 To Application.Sheets.Count – 1 If SortOrder = 1 Then If UCase$(Application .Sheets(y).Name) > UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If ElseIf SortOrder = 2 Then If UCase$( Application.Sheets(y).Name) < UCase$(Application.Sheets(y + 1).Name) Then Sheets(y).Move after:=Sheets(y + 1) End If End If Next Next End Подфункция showUserForm () As Integer showUserForm = 0 Загрузить SortOrderForm SortOrderForm.Show (1) showUserForm = SortOrderForm.Tag Выгрузить SortOrderForm End Function
Если вы еще не очень хорошо разбираетесь в VBA, вы можете просто скачать наш Образец рабочей тетради для расстановки вкладок в алфавитном порядкеоткройте его в Excel рядом с вашим собственным файлом, в котором вы хотите отсортировать вкладки, и запустите AlphabetizeTabs макрос из вашей книги:
Выберите предпочтительный порядок сортировки, скажем, от А до Яи наблюдайте за результатами:
Кончик. С помощью VBA вы также можете создавать копии листов Excel. Код доступен здесь: Как дублировать лист в Excel с помощью VBA.
Как отсортировать вкладки Excel по алфавиту с помощью Ultimate Suite
Пользователям нашего Ultimate Suite for Excel не нужно возиться с VBA — в их распоряжении есть многофункциональный менеджер книг:
С помощью этого инструмента, добавленного на вашу ленту Excel, алфавитные вкладки выполняются одним нажатием кнопки, как и должно быть!
Если вам интересно изучить этот и еще более 70 профессиональных инструментов для Excel, пробную версию Ultimate Suite можно скачать здесь.
Я благодарю вас за чтение и надеюсь увидеть вас в нашем блоге на следующей неделе!