Выделение нескольких листов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Выделение нескольких листов (Макросы/Sub)

kvadimod

Дата: Пятница, 11.04.2014, 13:41 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 92

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Подскажите пожалуйста как правильно записать код для выделения диапазона листов. С помощью записи макроса получается
[vba]

Код

Sheets(Array("Лист1", "Лист2", "Лист3", "Лист4")).Select

[/vba]
но листов много и периодически меняются. Можно ли как то прописать перый - последний, ну и чтобы всё между ними выделялось...

Заранее спасибо

Вадимка

Ответить

kvadimod

Дата: Пятница, 11.04.2014, 13:45 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 92

Репутация: 0 ±

Замечаний: 40% ±

Excel 2013

Точнее нужно выделение диапазона листов от конкретного до последнего

Вадимка

Ответить

Hugo

Дата: Пятница, 11.04.2014, 14:04 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Конкретно от второго:
[vba]

Код

Sub tt()
      Dim i&

      With CreateObject("Scripting.Dictionary")
          For i = 2 To Worksheets.Count
              .Item(Worksheets(i).Name) = 0&
          Next
          Sheets(.keys).Select
      End With

End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

igrtsk

Дата: Пятница, 11.04.2014, 14:09 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 323

Репутация: 52 ±

Замечаний: 0% ±

Excel 2016

Например, удаление с листа3 и далее:[vba]

Код

Sub Delete()
Dim i&
      With ActiveWorkbook
       Application.DisplayAlerts = False
          For i = .Sheets.Count To 4 Step -1
          .Sheets(i).Delete
       Next
      Application.DisplayAlerts = True
End Sub

[/vba]

Не успел(((

Инструктор по применению лосей в кавалерийских частях РККА

Сообщение отредактировал igrtsk - Пятница, 11.04.2014, 14:09

Ответить

Hugo

Дата: Пятница, 11.04.2014, 14:19 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Я исходил из задачи - ВЫДЕЛИТЬ.
Для чего выделять - это другой вопрос. Ну например их всех этих листов нужно сделать новую книгу, или забить сразу во все одну формулу. А больше вероятно и незачем так изворачиваться - остальное действительно проще сделать в цикле.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD