Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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


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

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

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

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Запуск или выполнение одного и того же макроса на нескольких листах одновременно с кодом 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 нижний колонтитул между Sub Runcode () End Sub скрипты. Смотрите скриншот:

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

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


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    dmitri · 7 months ago
    1004 runtime error
  • To post as a guest, your comment is unpublished.
    mare · 9 months ago
    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()
    With Worksheets("2018")
    .EnableOutlining = True
    .EnableSelection = xlNoRestrictions
    .Protect Password:="workana1234", _
    Contents:=True, UserInterfaceOnly:=True
    End With
    End Sub


    Hola! he seguido las 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.

    Error en el metodo "Select" de Objeto "_Worksheet"



    Help!!!!