TOP
Сортировка листов в книге
Описание
Если количество вкладок в книге приближается к нескольким десяткам, то рано или поздно возникнет желание осуществить сортировка листов в книге , разместив его в алфавитном порядке. Стандартные средства Excel не позволяют этого сделать, поэтому давайте напишем простой макрос, который будет это делать.
VBA код для макроса
Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor) , вставьте модуль VBA (меню Insert - Module ) и скопируйте туда этот текст:
- Sub SortSheets()
-
- Dim I As Integer, J As Integer
-
- For I = 1 To Sheets.Count - 1
- For J = I + 1 To Sheets.Count
- If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
- Sheets(J).Move Before:=Sheets(I)
- End If
- Next J
- Next I
-
- MsgBox " Вкладки были отсортированы от А до Я "
- End Sub
Sub SortSheets()
'moonexcel.com.ua
Dim I As Integer, J As Integer
For I = 1 To Sheets.Count - 1
For J = I + 1 To Sheets.Count
If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
Sheets(J).Move Before:=Sheets(I)
End If
Next J
Next I
MsgBox " Вкладки были отсортированы от А до Я "
End Sub
Теперь этот макрос можно запустить через меню Сервис - Макрос - Макросы (Tools - Macro - Macros) , и быстро отсортирует все листы в текущей книге.
Статьи по теме: