Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
В цикле перебрать все листы в книге кроме 1-го и последнего
 
#1
07.09.2018 12:59:55
Друзья нужна ваша помощь!

Нужен код для обхода всех листов в книге кроме 1-го и последнего.
 
 
 
#2
07.09.2018 13:01:56
gsa804, поиск даёт результат
Цитата
gsa804: кроме 1-го и последнего
вот тут про индексы. Последний - это Sheets(thisworkbook.sheets.count).
То есть индекс последнего - есть число листов в книге  ;)
Изменено: Jack Famous - 07.09.2018 13:06:59
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#3
07.09.2018 13:03:56
Цитата
gsa804 написал: кроме 1-го и последнего
Код
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Index <> 1 And sh.Index <> Worksheets.Count Then
        'какой-то код
    End If
Next
Согласие есть продукт при полном непротивлении сторон
 
 
 
#4
07.09.2018 13:26:17
Sanja, спасибо )
 
 
 
#5
07.09.2018 13:40:57
Еще вариант
Код
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_ - 07.09.2018 13:41:02
Скажи мне, кудесник, любимец ба’гов...
 
 
 
#6
07.09.2018 13:43:19
_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
 
 
 
#7
07.09.2018 14:51:40
И кто теперь название предложит?
 
 
 
#8
07.09.2018 14:54:44
vikttur, не обратил внимания что-то
«Как в цикле перебрать все листы в книге кроме 1-го и последнего?»
Изменено: Jack Famous - 07.09.2018 14:56:00
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
07.09.2018 14:56:58
StoTisteg, спасибо!
 
 
 
#10
07.09.2018 14:57:24
_Boroda_, спасибо!
 
 
 
Страницы: 1
Наверх