Этот макрос сортирует ярлычки активной книги по алфавиту:
Sub SortSheetsLabName()
Application.ScreenUpdating = False
Dim iSheets%, i%, j%
iSheets = Sheets.Count
For i = 1 To iSheets - 1
For j = i + 1 To iSheets
If Sheets(j).Name < Sheets(i).Name Then
Sheets(j).Move before:=Sheets(i)
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
Копируйте код и сохраните его в Личной книге макросов.
Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.
На выполнение макроса можно назначить "Горячие клавиши", нажав в окне Параметры:
В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.
- Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
- Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + буква.
Еще макросы:
- Изменение стиля ссылок в таблицах Excel с A1 на R1C1
- Изменение стиля шрифта на листе Excel
- Сохранение отдельным файлом текущий лист в новую папку
- Отображение скрытых листов в файлах Excel, выгруженных из 1С
Интересное по теме Excel:
- Функции Excel: ВПР (вертикальный просмотр)
- Как переместить строку или столбец в Сводной таблице Excel
- Как напечатать заголовки таблицы Excel на каждой странице
- Как отобразить листы в файлах Excel, выгруженных из 1С
- "Умные" таблицы в Excel
- Мгновенное заполнение
- Быстрое перемещение строк и столбцов
