Выделение листов по списку

[autostavrroute]

Часто приходится выделять разные наборы листов одинаковые. Их не сложно указать на каком то листе списком. Не получается по этому списку сделать выделение указанных в списке листов. Помогите разобраться.

[Aleksandr H.]

Я так удаляю.

Private Sub DeleteTmpPACKSheets()
    Dim i As Integer
    Dim sCount As Integer
    sCount = Sheets.Count
    i = 1
    For i = 1 To sCount - 1
        With ThisWorkbook.Sheets(i)
            If InStr(.Name, "pack") = 1 And .Name <> "pack_raport" And .Name <> "Pack_temp" Then
                Debug.Print .Name
                Application.DisplayAlerts = False
                .Delete
                Application.DisplayAlerts = True
                sCount = Sheets.Count
            End If
        End With
    Next
End Sub

[Serge_Bliznykov]

Сообщение от Aleksandr H.

Я так удаляю.

Автору темы нужно не удалять, а выделять...

p.s. кстати, в таких случаях, когда в цикле нужно удалять и при этом изменяется количество,
рекомендую использовать цикл от конца к началу. Тогда не нужно корректировать переменную с количеством, всё получается красиво.

[IgorGO]

Sub SelectLists()
  Dim Lar:  Lar = Array("Лист1", "Лист3", "Лист5")
  Worksheets(Lar).Select
End Sub

[Aleksandr H.]

Сообщение от Serge_Bliznykov

Автору темы нужно не удалять, а выделять...

трудности перевода вижу выделять, читаю выдалять, делаю удалять.

Интересно, что за нужда такая выделять листы

[Аватар]

А что, vba тот sCount - 1 на каждой итерации по-новой вычисляет? Прикольно

[Aleksandr H.]

Сообщение от Аватар

Прикольно

Сам в шоке ... Но так как удаляется только 1 лист у меня, то ошибку не бросало.

[IgorGO]

sCount определяется 1 раз на входе в цикл, внутри можно с sCount делать что угодно - цикл уже стартовал и будет крутиться пока счетчик не выйдет за предельное значение

а вот с i - незадача.
после удаления какого-то i-го листа i-м тут же становится следующий, а строка с проверкой удялять его или нет уже пройдена и next увеличивает i еще на 1 ...и, правильно! - лист за удаленным этот код благополучно проскакивает и не проверяет
ну и в конце концов на последних i (если что-то удалялось) ThisWorkbook.Sheets(i) - должен обвалить выполнение макроса по ошибке

и с Sheets нужно быть аккуратнее, потому что листы Диаграмм, Сводных входят в эту коллекцию
и в общем случае Worksheets и Sheets могут содержать разное количество элементов

[Аватар]

Ну вот, это по правильному, а то уже не хорошие мысли по поводу и без него ))

[autostavrroute]

Сообщение от IgorGO

Sub SelectLists()
  Dim Lar:  Lar = Array("Лист1", "Лист3", "Лист5")
  Worksheets(Lar).Select
End Sub

Так работает - только для удобства не в макрасе эти листы прописывать, а брать их названия с определенных ячеек листа в этой книге.