Как повторять или зацикливать макрос каждые X минут в Excel?
При работе с Microsoft Excel вам может понадобиться создавать макросы для выполнения определенных операций. Например, вы хотите создать макрос для автоматического копирования диапазона данных в новое место. Поскольку данные будут часто меняться, вам нужно, чтобы этот макрос автоматически запускался каждые 5 минут без ручного запуска, чтобы синхронизировать эти два диапазона данных. Как это сделать? Метод, описанный в этой статье, поможет вам.
Повторение или цикл макроса каждые X минут в Excel
Повторение или цикл макроса каждые X минут в Excel
Следующий код VBA поможет вам повторять макрос каждые X минут в Excel. Пожалуйста, действуйте следующим образом.
1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код VBA в окно Кода. Смотрите скриншот:
Код VBA: Повторение или цикл макроса каждые X минут в Excel
Sub ReRunMacro()
Dim xMin As String
'Insert your code here
xMin = GetSetting(AppName:="Kutools", Section:="Macro", Key:="min", Default:="")
If xMin = "Exit" Then
SaveSetting "Kutools", "Macro", "min", "False"
Exit Sub
End If
If (xMin = "") Or (xMin = "False") Then
xMin = Application.InputBox(prompt:="Please input the interval time you need to repeat the Macro", Title:="Kutools for Excel", Type:=2)
SaveSetting "Kutools", "Macro", "min", xMin
End If
If (xMin <> "") And (xMin <> "False") Then
Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"
Else
Exit Sub
End If
End SubПримечание: В коде замените эту строку ‘Insert your code here на код, который вы будете выполнять каждые X минут.
3. Нажмите клавишу F5, чтобы запустить код. В появившемся диалоговом окне Kutools for Excel введите интервал времени, через который будет повторяться макрос, и нажмите кнопку ОК. Смотрите скриншот:
С этого момента указанный макрос будет выполняться повторно каждые 5 минут в вашей книге.
Примечание: Если вам нужно остановить выполнение макроса и изменить интервал цикла, пожалуйста, скопируйте приведенный ниже код VBA в то же окно Модуля и нажмите клавишу F5, чтобы запустить код. После этого макрос будет остановлен, повторно запустите вышеуказанный код, чтобы указать новый интервал.
Код VBA: Остановка выполнения макроса
Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Связанные статьи:
- Как повторять строки при прокрутке листа в Excel?
- Как повторить последнее или предыдущее действие в Excel?
- Как печатать строки повторно внизу каждой напечатанной страницы в Excel?
- Как повторять значение ячейки до тех пор, пока не увидите или не достигнете нового значения в Excel?
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек