Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Скрытие и отображение листов книги Excel по условию
 
#1
23.01.2017 19:58:30
Есть 2 столбца. В первом может быть либо "скрыть" либо "отобразить". А во втором имена листов книги. Надо чтоб програмка прошлась по первому столбцу и там где "скрыть" - скрыла лист по имени которое находится в соответствующей ячейке второго столбца, а там где отобразить, соответственно отобразила лист.
 
 
 
#2
23.01.2017 20:20:16
пример с начальными данными за вас выдумывать?
 
 
 
#3
23.01.2017 21:02:36
Файл прикрепил.
 
 
 
#4
23.01.2017 21:28:50
Вот простецкая самоделка. Не писатель макросов.
 
 
 
#5
23.01.2017 21:55:19
Спасибо, но подходит если в имена листов 1,2,...n. Но имена листов могут быть разные например: Таня,Маня, ... Ваня. Диапазон с листами будет фиксированный. Главное чтоб имя листа брала с ячейки которая находиться рядышком с условием.
 
 
 
#6
23.01.2017 22:01:21
Цитата
Alex_boy2007 написал: могут быть разные
а Вы пробовали?  у меня работает с разными именами
 
 
 
#7
23.01.2017 22:05:15
Цитата
Vik_tor написал:
у меня работает с разными именами
Если переименовать 2 лист и цифру 2 то да, но если написать вместо 2 Таня, а этот лист будет 5, то работать не будет.
 
 
 
#8
23.01.2017 22:09:06
Цитата
Alex_boy2007 написал:
А во втором имена листов книги.
Вы писали по именам, а не по порядку
 
 
 
#9
23.01.2017 22:10:03
Код
Sub qq()
Dim cl As Range
    For Each cl In Range(Cells(2, "A"), Cells(Rows.Count, "A").End(xlUp))
        Sheets(CStr(cl.Value)).Visible = cl.Offset(, 1).Value <> "Скрыть"
    Next
End Sub
 
 
 
#10
23.01.2017 22:28:41
Спасибо мастеру. И мне пригодится
 
 
 
#11
23.01.2017 23:05:32
Спасибо! Все работает!!!
 
 
 
Страницы: 1
Наверх