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. Клацання Insert > Модуліта вставте наступний макрос у Модулі Вікно

Код 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 сценарії. Дивіться знімок екрана:

doc запустити макрос на всіх аркушах 1

3. Потім наведіть курсор на макрос першої частини та натисніть F5 клавішу для запуску коду, і ваш код макросу буде застосовано до одного за одним аркушу.


Видаліть усі макроси з декількох книг:

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

doc запустити макрос, якщо комірка зміниться 3

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


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (13)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Sub Dosomething()
Dim xSh як робочий аркуш
Application.ScreenUpdating = Невірний
Для кожного xSh в аркушах
xSh.Вибрати
Викликати RunCode
Далі
Application.ScreenUpdating = True
End Sub
Sub RunCode()
З робочими листами ("2018")
.EnableOutlining = Правда
.EnableSelection = xlNoRestrictions
.Protect Password:="workana1234", _
Contents:=True, UserInterfaceOnly:=True
Кінець з
End Sub


Привіт! he seguido las pautras pero me señala como error la fila xSh.Select.

Якщо я вказав F5, то виникла помилка 1004 під час викиду.

Помилка методу «Вибрати» для об’єкта «_Worksheet»



Допоможіть!!!!
Цей коментар був мінімізований модератором на сайті
On Error Resume Next
вище
xSh.Вибрати
Цей коментар був мінімізований модератором на сайті
1004 помилка під час виконання
Цей коментар був мінімізований модератором на сайті
Для тих, хто має помилку під час виконання 1004, переконайтеся, що у вас немає прихованих аркушів. Якщо так, розкрийте їх. Тоді цей фрагмент коду працює. Greetings.th 1004 помилка під час виконання, переконайтеся, що у вас немає прихованих аркушів. Якщо так, розкрийте їх. Тоді цей фрагмент коду працює. Вітаю.
Цей коментар був мінімізований модератором на сайті
or
On Error Resume Next

'вгорі

xSh.Вибрати

Цей коментар був мінімізований модератором на сайті
Чи є спосіб зробити це лише на неприхованих аркушах? Мені потрібен цей код для запуску лише на видимих ​​аркушах.
Цей коментар був мінімізований модератором на сайті
Код "Виконувати один і той же макрос на кількох аркушах одночасно" працює ідеально, дякую!

Однак у мене є ця помилка на "xSh.Select", і я не знаю чому... на аркушах не видно жодної проблеми... І я не маю жодних прихованих аркушів.

Помилка «1004»: метод «Вибір» об’єкта «_Worksheet» не вдалося


Заздалегідь дякую за вашу допомогу
Цей коментар був мінімізований модератором на сайті
Перед xSh.selecty потрібно активувати
Отже, xSh.activatexSh.select
Цей коментар був мінімізований модератором на сайті
Як виключити певні аркуші та додати Помилка продовжити далі? Спасибі заздалегідь
Цей коментар був мінімізований модератором на сайті
Це працює, але поточний аркуш завжди запускається двічі. Решта аркушів ідеальні і запускаються лише один раз!
Цей коментар був мінімізований модератором на сайті
Привіт, hou,
Можливо, ви можете використовувати наведений нижче код для своїх потреб:
Sub WorksheetLoop()
         Dim Current As Worksheet
         For Each Current In Worksheets

          'Insert your code here.
           
      End Sub


примітки: У наведеному вище коді скопіюйте та вставте свій власний код без підзаголовка та нижнього колонтитула End Sub.

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Дуже дякую! Але це не працює. Він запускає поточний аркуш лише кілька разів.
Цей коментар був мінімізований модератором на сайті
Терімакасих себелумня атас ілму ілму йг судах ді шер. Saya sudah memakai beberapa VBA anda.

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 dari sheet yg berbeda. vBA tersebut tidak actif. Harus terlebih dahulu masuk ke Sheet Tersebut untuk merubah data dengan manual barulah VBa pengurutan dat tersebut aktif.

Ви використовуєте VBA?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL