инверсия расположения листов в книге

эда Пользователь Сообщений: 210 Регистрация: 13.09.2009	#1 20.10.2009 19:08:42 требуется изменить расположение листов наоборот. Например Лист1, Л2, ... Л100 требуется инвертировать : Лист100, Лист 99, Лист 98, ... Лист1 наименование листов - произвольное

Guest

Гость

20.10.2009 19:15:43

{quote}{login=Эда}{date=20.10.2009 07:08}{thema=инверсия расположения листов в книге}{post}требуется изменить расположение листов наоборот...
наименование листов - произвольное{/post}{/quote}
???
ps Бесплатно - "ASAP Utilities - Sort All sheets", см. "Ссылки".

эда Пользователь Сообщений: 210 Регистрация: 13.09.2009	#3 20.10.2009 20:53:39 зер гут! мистер от, предположительно Игорь67 ) спс!

Igor67 Пользователь Сообщений: 3786 Регистрация: 21.12.2012	#4 20.10.2009 21:33:26 Нет, это не мой почерк:-)

Юрий М Модератор Сообщений: 60982 Регистрация: 14.09.2012 Контакты см. в профиле	#5 20.10.2009 22:42:36 Попробуйте такой вариант: Sub ResortSheets() Dim k As Long Dim m As Long k = Sheets.Count m = 1 For i = k To 1 Step -1 Sheets(k).Move Before:=Sheets(m) m = m + 1 If m = k Then Exit Sub Next End Sub

эда Пользователь Сообщений: 210 Регистрация: 13.09.2009	#6 21.10.2009 10:23:07 Юрий М спс! чуть раньше мне уже подсказали решение - ASAP Util - работает

Читают тему