Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35792
Главная » Готовые решения » VBA » Полезные приёмы

Сортировка листов в книге
02.10.2013, 23:40

Sub SortSheetsByName()
Dim wsh As Worksheet, i As Long
With CreateObject("System.Collections.ArrayList")
 For Each wsh In ThisWorkbook.Worksheets
 .Add wsh.Name
 Next
 .Sort
 For i = 0 To .Count - 2
 Sheets(.Item(i + 1)).Move , Sheets(.Item(i))
 Next
End With
End Sub
Добавил: nilem |
Просмотров: 2029 | Рейтинг: 5.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!