Как расположить вкладки в Excel по возрастанию и убыванию

В этом руководстве показано, как можно быстро сортировать рабочие листы Excel в алфавитном порядке с помощью кода VBA и инструмента Workbook Manager.

Microsoft Excel предоставляет ряд быстрых и простых способов упорядочить столбцы или строки в алфавитном порядке. Но есть только один способ изменить порядок рабочих листов в Excel — перетащить их в нужное место на панели вкладок листа. Когда дело доходит до алфавитного расположения вкладок в действительно большой книге, это может быть долгим и ошибочным способом. Ищете альтернативу для экономии времени? Их всего два: код VBA или сторонние инструменты.

Как расставить вкладки в Excel по алфавиту с помощью VBA

Ниже вы найдете три примера кода VBA для сортировки листов Excel по возрастанию, убыванию и в любом направлении в зависимости от выбора пользователя.

Подразумевая, что у вас есть некоторый опыт работы с VBA, мы опишем только основные шаги по добавлению макроса на ваш лист:

  1. В книге Excel нажмите клавиши ALT + F11, чтобы открыть редактор Visual Basic.
  2. На левой панели щелкните правой кнопкой мыши Эта рабочая тетрадьа затем щелкните Вставлять > Модуль.
  3. Вставьте код VBA в окно кода.
  4. Нажмите 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 элемента управления: метку и три кнопки:
Создайте пользовательскую форму для размещения вкладок Excel в алфавитном порядке по возрастанию или по убыванию.

Затем нажмите 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 макрос из вашей книги:
Запустите макрос, чтобы отсортировать вкладки Excel по алфавиту или в обратном порядке.

Выберите предпочтительный порядок сортировки, скажем, от А до Яи наблюдайте за результатами:
Выберите расположение вкладок листа в алфавитном порядке от А до Я.

Кончик. С помощью VBA вы также можете создавать копии листов Excel. Код доступен здесь: Как дублировать лист в Excel с помощью VBA.

Как отсортировать вкладки Excel по алфавиту с помощью Ultimate Suite

Пользователям нашего Ultimate Suite for Excel не нужно возиться с VBA — в их распоряжении есть многофункциональный менеджер книг:
Менеджер книг для Excel

С помощью этого инструмента, добавленного на вашу ленту Excel, алфавитные вкладки выполняются одним нажатием кнопки, как и должно быть!
Алфавитизируйте вкладки в Excel одним нажатием кнопки.

Если вам интересно изучить этот и еще более 70 профессиональных инструментов для Excel, пробную версию Ultimate Suite можно скачать здесь.

Я благодарю вас за чтение и надеюсь увидеть вас в нашем блоге на следующей неделе!

Вас также могут заинтересовать

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *