Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как пройтись по всем не скрытым листам?
 
#1
07.08.2018 19:15:50
Здравствуйте!

Есть скрипт, который ходит по листам
Код
For Each iWS In ThisWorkbook.Worksheets
...
Next iWS
Как ограничить проход только по не скрытым листам?
желаю всем счастья
 
 
 
#2
07.08.2018 19:36:37
Код
    For Each iWS In ThisWorkbook.Worksheets
        If iWS.Visible = True Then
        ...
        End If
    Next iWS
 
 
 
#3
07.08.2018 19:38:02
Никак. Раз пошел, то пошел.
Но неплохо бы было проверить, туда ли пошел
Код
If iWS.Visible Then
.....................
End If
Изменено: RAN - 07.08.2018 19:38:14
 
 
 
#4
07.08.2018 19:41:07
Цитата
RAN написал: Никак
Андрей, не так категорично. Если знать заранее имена не скрытых листов, и если очень хочется, то можно  :)  
Изменено: Sanja - 07.08.2018 19:41:58
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
07.08.2018 20:38:02
Виталий, с большим удовольствие посмотрю твой цикл For Each, который без If проигнорит Лист2.
Ну очень сильно хочется!
 
 
 
#6
07.08.2018 20:54:50
Ключевое:
Цитата
Sanja написал:
Если знать заранее имена не скрытых листов
Код
Sub qqq()
Dim iWS
    ReDim Arr(1 To 2)
    Arr = Array("Лист1", "Лист3")
    For Each iWS In Arr
        Debug.Print iWS
        Sheets(iWS).Cells(1, 1) = "Мой текст"
    Next
End Sub
 
 
 
#7
08.08.2018 09:14:50
всем спасибо
желаю всем счастья
 
 
 
Страницы: 1
Наверх