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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 10.12.2018, 13:02   #1
hamlook
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 85
По умолчанию Показать/скрыть несколько листов

Здравствуйте!
Для работы макроса снимаю скрытие листа, использую код
Sheets("Лист 2").Visible = -1

при закрытии книги
Sheets("Лист 2").Visible = 2

как данную процедуру использовать для нескольких листов (с 2 по 10)?
hamlook вне форума Ответить с цитированием
Старый 10.12.2018, 13:06   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
dim i as integer
for i = 2 to 10 
Sheets("Лист " & i).Visible = -1
next i

for i = 10 to 2 step -1
Sheets("Лист " & i).Visible = 2
next i
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 10.12.2018, 13:10   #3
hamlook
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 85
По умолчанию

Спасибо. Но листы у меня переименованы и идут не по порядку. (хотя можно и переименовать их под этот код)
hamlook вне форума Ответить с цитированием
Старый 10.12.2018, 13:24   #4
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
dim i as integer
for i = 2 to 10 
Sheets(i).Visible = -1
next i

for i = 10 to 2 step -1
Sheets(i).Visible = 2
next i
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 10.12.2018, 13:57   #5
hamlook
Пользователь
 
Регистрация: 22.05.2009
Сообщений: 85
По умолчанию

Спасибо!
hamlook вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скрыть и показать слои spoon100500 JavaScript, Ajax 15 28.10.2016 11:49
Скрыть/Показать панель UKRtortik Общие вопросы Delphi 10 01.06.2014 22:20
Показать/скрыть edit`ы Rapala Общие вопросы Delphi 3 11.05.2010 09:20
как скрыть/показать TMainMenu blackstersl Общие вопросы Delphi 3 13.06.2009 18:12
Показать и скрыть фигуры Иванов_ДМ Microsoft Office Excel 5 28.04.2009 16:49