Note: The other languages of the website are Google-translated. Back to English

Как запустить один и тот же макрос на нескольких листах одновременно в Excel?

Обычно мы можем запускать макрос на листе, если есть несколько листов, которые необходимо применить этот макрос, вы должны запускать код один за другим. Есть ли другой быстрый способ запустить один и тот же макрос на нескольких листах одновременно в Excel?

Запустить или выполнить один и тот же макрос на нескольких листах одновременно с кодом VBA


Запустить или выполнить один и тот же макрос на нескольких листах одновременно с кодом VBA

Чтобы запустить макрос на нескольких листах одновременно, не запуская его по одному, вы можете применить следующий код VBA, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте следующий макрос в Модули Окно.

Код VBA: запускать один и тот же макрос на нескольких листах одновременно:

Sub Dosomething()
    Dim xSh As Worksheet
    Application.ScreenUpdating = False
    For Each xSh In Worksheets
        xSh.Select
        Call RunCode
    Next
    Application.ScreenUpdating = True
End Sub
Sub RunCode()
    'your code here
End Sub

Внимание: В приведенном выше коде скопируйте и вставьте свой собственный код без ниже заголовок и End Sub нижний колонтитул между Дополнительный код выполнения () и End Sub скрипты. Смотрите скриншот:

макрос запуска документа на всех листах 1

3. Затем поместите курсор на макрос первой части и нажмите F5 нажмите клавишу для запуска кода, и ваш код макроса будет применяться к одному листу.


Удалите все макросы из нескольких книг:

Kutools for Excel's Пакетное удаление всех макросов Утилита может помочь вам удалить все макросы из нескольких книг по мере необходимости. Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

doc запускает макрос, если ячейка изменяется 3

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (13)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Подделать что-то ()
Dim xSh как рабочий лист
Приложение.ScreenUpdating = False
Для каждого xSh в рабочих листах
xSh.Select
Вызов RunCode
Далее
Application.ScreenUpdating = True
End Sub
Sub RunCode ()
С рабочими листами («2018»)
.EnableOutlining = Истина
.EnableSelection = кслнорестриктионс
.Защитить пароль:="workana1234", _
Содержание:=Истина, UserInterfaceOnly:=Истина
Конец с
End Sub


Хола! он seguido лас pautras pero me señala como error la fila xSh.Select.

Al dar F5 me indica Que se ha producido un error 1004 en tiempo de ejecucion.

Ошибка в методе "Выбрать" объекта "_Worksheet"



Помощь!
Этот комментарий был сведен к минимуму модератором на сайте
On Error Resume Next
выше
xSh.Select
Этот комментарий был сведен к минимуму модератором на сайте
1004 ошибка выполнения
Этот комментарий был сведен к минимуму модератором на сайте
Для тех, у кого есть ошибка времени выполнения 1004, убедитесь, что у вас нет скрытых листов. Если вы это сделаете, отобразите их. Тогда этот фрагмент кода работает. Ошибка выполнения Greetings.th 1004. Убедитесь, что у вас нет скрытых листов. Если вы это сделаете, отобразите их. Тогда этот фрагмент кода работает. Привет.
Этот комментарий был сведен к минимуму модератором на сайте
or
On Error Resume Next

'над

xSh.Select

Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ заставить это работать только на нескрытых листах? Мне нужно, чтобы этот код работал только на видимых листах.
Этот комментарий был сведен к минимуму модератором на сайте
Код «Запуск одного и того же макроса на нескольких листах одновременно» работает отлично, спасибо!

Однако у меня есть эта ошибка в «xSh.Select», и я не знаю, почему... на листах не видно проблем... И у меня нет скрытых листов.

Ошибка «1004»: не удалось выполнить метод «Выбор» объекта «_Worksheet».


Заранее спасибо за вашу помощь
Этот комментарий был сведен к минимуму модератором на сайте
Перед xSh.select нужно активировать
Итак,xSh.activatexSh.select
Этот комментарий был сведен к минимуму модератором на сайте
Как вы исключаете определенные листы и добавляете «Возобновить дальше при ошибке»? заранее спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Это работает, но текущий лист всегда запускается дважды. Остальные листы идеальны и запускаются только один раз!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Хоу,
Возможно, вы можете использовать приведенный ниже код для своих нужд:
Sub WorksheetLoop()
         Dim Current As Worksheet
         For Each Current In Worksheets

          'Insert your code here.
           
      End Sub


Внимание: В приведенном выше коде скопируйте и вставьте свой собственный код без подзаголовка и нижнего колонтитула End Sub.

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо! Но это не работает. Он запускает текущий лист только несколько раз.
Этот комментарий был сведен к минимуму модератором на сайте
Terimakasih sebelumnya atas ilmu ilmu yg sudah di share. Saya sudah memakai beberapa VBA анда.

Tapi bolehkan saya meminta tolong untul mencarikan VBA yg tepat untuk mengaktifkan VBA yg sudah ada di sheet tertentu tanpa harus masuk ke sheet tersebut.

Контония.
Saya sudah menggunakan vBA anda yg berfungsi untuk mengurutkan data secara otomatis.

Tetapi ketika data yg saya terapkan itu berubah karena hasil pencarian data лист дари yg berbeda. vBA краткий tidak aktif. Harus terlebih dahulu masuk ke Sheet Tersebut untuk merubah data dengan manual barulah VBa pengurutan DAT tersebut aktif.

Bisakah dicarikan VBA ня?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL