Сортировка листов в книге

Если количество листов в Вашей книге приближается к нескольким десяткам, то рано или поздно возникнет желание отсортировать листы, выстроив из по порядку. Стандартные средства Excel не позволяют сделать этого, поэтому давайте напишем простой макрос, который будет это делать. Откройте меню Сервис - Макрос - Редактор Visual Basic (Tools - Macro - Visual Basic Editor), вставьте новый модуль (меню 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
End Sub

Теперь этот макрос можно запустить через меню Сервис - Макрос - Макросы (Tools - Macro - Macros), и он быстро отсортирует все листы в текущей книге.

к библиотеке 3GL к оглавлению к экономической информатике 4GL - визуальным средам

Знаете ли Вы, что, как и всякая идолопоклонническая религия, релятивизм представляет собой инструмент идеологического подчинения одних людей другим с помощью абсолютно бессовестной манипуляции их психикой для достижения интересов определенных групп людей, стоящих у руля этой воровской машины? Подробнее читайте в FAQ по эфирной физике.

НОВОСТИ ФОРУМА

Рыцари теории эфира