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

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

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

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