Как запустить несколько макросов с помощью кнопки в Excel? 

Возможно, в вашей книге есть несколько макросов, и при их запуске вам нужно нажимать и запускать их по одному. Задумывались ли вы о том, чтобы запустить сразу несколько макросов с помощью одной кнопки в Excel?

Запуск / активация нескольких макросов с помощью кнопки с использованием кода VBA

Запуск / активация нескольких макросов с помощью кнопки с использованием кода VBA

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

1. Сначала вставьте кнопку, нажав Разработчик > Вставить > Кнопка (Элемент управления формы), см. скриншот:

2. Затем перетащите мышью, чтобы нарисовать кнопку на текущем листе, и в появившемся диалоговом окне Назначить макрос нажмите ОК, после чего кнопка будет вставлена, как показано на следующем скриншоте:

3. Затем удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

4. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Запуск нескольких макросов с помощью кнопки:

Sub Button1_Click()
    Call FillEmptyBlankCellWithValue 'Macro1
    Call ReplaceHyperlinks 'Macro2
    Call test 'Macro3
End Sub

5. Затем сохраните и закройте это окно кода, щелкните правой кнопкой мыши по кнопке и выберите Назначить макрос из контекстного меню, см. скриншот:

6. В появившемся диалоговом окне Назначить макрос выберите Button_Click — имя макроса, который вы только что вставили, а затем нажмите ОК для выхода из диалогового окна. См. скриншот:

7. С этого момента, когда вы нажимаете кнопку, указанные вами макросы будут запускаться один за другим по мере необходимости.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!