Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос на два диапазона листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на два диапазона листов (Макросы/Sub)
Макрос на два диапазона листов
Alex2354 Дата: Суббота, 23.04.2022, 14:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Добрый день.

Есть книга с листами: "Л1", "Л1 Итог", "Л2", "Л2 Итог", "Л3", "Л3 Итог", ..."

Необходимо для листов: "Л1, Л2, Л3, ..." выполнить одну последовательность действий (например, удались столбцы A, B, C)
А для листов: "Л1 Итог, Л2 Итог, Л3 Итог, ..." другую (например, удались столбцы D, E, F)

Помогите, пожалуйста, запихнуть номера листов в два цикла.

В диспетчере имен "Л1, Л2, Л3, ..." сохранены под именем "Листы", а "Л1 Итог, Л2 Итог, Л3 Итог..." под именем "Итог"
Можно ли их названия взять из диспетчера имен? Если нет, то помогите сделать перебор.

Спасибо.
К сообщению приложен файл: 0237436.xlsm(14.5 Kb)


Сообщение отредактировал Alex2354 - Суббота, 23.04.2022, 14:58
 
Ответить
СообщениеДобрый день.

Есть книга с листами: "Л1", "Л1 Итог", "Л2", "Л2 Итог", "Л3", "Л3 Итог", ..."

Необходимо для листов: "Л1, Л2, Л3, ..." выполнить одну последовательность действий (например, удались столбцы A, B, C)
А для листов: "Л1 Итог, Л2 Итог, Л3 Итог, ..." другую (например, удались столбцы D, E, F)

Помогите, пожалуйста, запихнуть номера листов в два цикла.

В диспетчере имен "Л1, Л2, Л3, ..." сохранены под именем "Листы", а "Л1 Итог, Л2 Итог, Л3 Итог..." под именем "Итог"
Можно ли их названия взять из диспетчера имен? Если нет, то помогите сделать перебор.

Спасибо.

Автор - Alex2354
Дата добавления - 23.04.2022 в 14:58
Pelena Дата: Суббота, 23.04.2022, 17:30 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18394
Репутация: 4148 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте
[vba]
Код
Public Sub www()
    Dim nm
    For Each nm In [Листы].Value
        Sheets(nm).Columns("A:C").Delete
    Next nm
    For Each nm In [Итог].Value
        Sheets(nm).Columns("D:F").Delete
    Next nm
End Sub
[/vba]
К сообщению приложен файл: 1119005.xlsm(20.2 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте
[vba]
Код
Public Sub www()
    Dim nm
    For Each nm In [Листы].Value
        Sheets(nm).Columns("A:C").Delete
    Next nm
    For Each nm In [Итог].Value
        Sheets(nm).Columns("D:F").Delete
    Next nm
End Sub
[/vba]

Автор - Pelena
Дата добавления - 23.04.2022 в 17:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на два диапазона листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!