Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.06.2016, 16:11   #1
ольгаг
Форумчанин
 
Регистрация: 22.02.2010
Сообщений: 325
По умолчанию Расположить листы в определенном порядке при открытии книги

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста как исправить код ниже (vba excel 2007), который при открытии книги располагает листы с определенными именами в заданном порядке? Листа с каким-то из имен может не быть, тогда пропустить и располагать оставшиеся листы. Но данный код (ниже) выдает ошибку. Помогите исправить.
Заранее спасибо!

Код:
Dim x, il&
On Error Resume Next
For Each x In Array("Группы", "данные", "итог")
il = il + 1
Sheets(x).Move before:=Sheets(il)
Next
ольгаг вне форума Ответить с цитированием
Старый 03.06.2016, 16:42   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Dim x, il&
On Error Resume Next
il = 1
For Each x In Array("Группы", "данные", "итог")
  if worksheet(x).index = il then
    il = il+1
  else
    WorkSheets(x).Move before:=WorkSheets(il)
    if err then err.clear else il = il+1
  end if
Next
on error goto 0
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Порядок листов при открытии книги ольгаг Microsoft Office Excel 3 20.10.2012 12:20
Запуск Макроса при открытии книги sasha_prof Microsoft Office Excel 9 12.07.2011 14:48
Измение гиперссылок на листы книги при переименовании файла Aswerd Microsoft Office Excel 0 18.02.2010 01:26
Offset. Обновление при открытии книги zavhoz Microsoft Office Excel 0 24.07.2009 18:03
При закрытии книги, удаляются листы Romuald Microsoft Office Excel 3 20.01.2009 21:34