Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
В цикле перебрать все листы в книге кроме 1-го и последнего
 
Друзья нужна ваша помощь!

Нужен код для обхода всех листов в книге кроме 1-го и последнего.
 
gsa804, поиск даёт результат
Цитата
gsa804: кроме 1-го и последнего
вот тут про индексы. Последний - это Sheets(thisworkbook.sheets.count).
То есть индекс последнего - есть число листов в книге  ;)
Изменено: Jack Famous - 7 Сен 2018 13:06:59
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
 
Цитата
gsa804 написал: кроме 1-го и последнего
Код
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Index <> 1 And sh.Index <> Worksheets.Count Then
        'какой-то код
    End If
Next
Согласие есть продукт при полном непротивлении сторон.
 
Sanja, спасибо )
 
Еще вариант
Код
Sub tt()
    Dim shn As Worksheet
    With ActiveWorkbook
        For i = 1 To .Sheets.Count - 2
            Set shn = .Sheets(i)
        Next i
    End With
End Sub
Изменено: _Boroda_ - 7 Сен 2018 13:41:02
Скажи мне, кудесник, любимец ба’гов...

 
_Boroda_, так ведь просили кроме первого и последнего...
Код
Sub tt()
    Dim shn As Worksheet
    With ActiveWorkbook
        For i = 2 To .Sheets.Count - 1
            Set shn = .Sheets(i)
        Next i
    End With
End Sub
 
И кто теперь название предложит?
 
vikttur, не обратил внимания что-то
«Как в цикле перебрать все листы в книге кроме 1-го и последнего?»
Изменено: Jack Famous - 7 Сен 2018 14:56:00
«Тот, кто несет фонарь, спотыкается чаще, чем тот, кто идет следом.»
Иоганн Пауль Фридрих Рихтер
 
StoTisteg, спасибо!
 
_Boroda_, спасибо!
Страницы: 1
Читают тему (гостей: 1)
Наверх