Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як повторити або повторити макрос кожні X хвилини в Excel?

Під час роботи з Microsoft Excel, можливо, вам доведеться створити макроси для виконання деяких операцій. Наприклад, ви хочете створити макрос для автоматичного копіювання діапазону даних на нове місце. Оскільки дані будуть часто змінюватися, вам потрібно, щоб цей макрос автоматично запускався кожні 5 хвилин, не запускаючи його вручну, щоб синхронізувати ці два діапазони даних. Як цього досягти? Метод у цій статті може вам допомогти.

Повторюйте або повторюйте макрос кожні X хвилин у програмі Excel


Повторюйте або повторюйте макрос кожні X хвилин у програмі Excel

Наступний код VBA може допомогти вам повторювати макрос кожні X хвилин у програмі Excel. Будь ласка, виконайте наступне.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код 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

примітки: У коді, будь ласка, замініть цей рядок 'Вставте сюди свій код з кодом, який ви будете запускати кожні X хвилин.

3 Натисніть кнопку F5 клавіша для запуску коду. У спливаючому Kutools для Excel діалогове вікно, введіть час інтервалу, за яким ви будете повторювати макрос, і натисніть кнопку OK кнопку. Дивіться знімок екрана:

Відтепер певний макрос буде запускатись кожні 5 хвилин у вашій книзі.

примітки: Якщо вам потрібно зупинити виконання макросу та змінити інтервал циклу, скопіюйте наведений нижче код VBA в той самий Модулі вікно та натисніть F5 клавіша для запуску коду. Тоді макрос буде зупинено. Будь ласка, повторіть наведений вище код, щоб вказати новий інтервал.

Код VBA: зупиніть виконання макросу

Sub ExitReRunMacro()
SaveSetting "Kutools", "Macro", "min", "Exit"
End Sub

Вкладка Office - Перегляд, редагування та управління книгами в Excel із вкладками:

Вкладка Office переносить інтерфейс із вкладками, як це видно у веб-браузерах, таких як Google Chrome, нові версії Internet Explorer та Firefox, до Microsoft Excel. Це буде інструментом, який економить час і незамінний у вашій роботі. Дивіться нижче демонстрацію:

Клацніть на безкоштовну пробну версію вкладки Office!

Вкладка Office для Excel


Статті по темі:


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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.
    crystal · 3 months ago
    @creativeperson97 Good day,
    You need to remove the Sub line and the End Sub line from your code.
    Sub Refresh() ' ' Refresh Macro ' ' Sheets("Sheet1").Select ActiveWorkbook.RefreshAll Sheets("Pivot-Dash").Select End Sub
    Change to:
    ' ' Refresh Macro ' ' Sheets("Sheet1").Select ActiveWorkbook.RefreshAll Sheets("Pivot-Dash").Select

  • To post as a guest, your comment is unpublished.
    creativeperson97 · 3 months ago
    I am pasting the code below in which I have replaced the line to enter the code with my code. The error I am getting is- Compile error: Expected End Sub. Kindly help.

    Sub ReRunMacro()
    Dim xMin As String
    Sub Refresh()
    '
    ' Refresh Macro
    '

    '
    Sheets("Sheet1").Select
    ActiveWorkbook.RefreshAll
    Sheets("Pivot-Dash").Select
    End Sub


    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
  • To post as a guest, your comment is unpublished.
    crystal · 9 months ago
    @LIMCA Hi LIMCA,
    Sorry for the inconvenience. The code does not support entering decimals.

    Please stop the the looping by running the below VBA code, and then rerun the looping code and enter 1 into the popping up dialog box.

    Sub ExitReRunMacro()
    SaveSetting "Kutools", "Macro", "min", "Exit"
    End Sub
  • To post as a guest, your comment is unpublished.
    LIMCA · 9 months ago
    Hi Jack,
    By mistake I entered 0.5 mins and it shows an error,
    I mean xMin is taken as 0.5 minutes.
    How to get rid and change it to 1 min?

  • To post as a guest, your comment is unpublished.
    David · 10 months ago
    @crystal Hey, Thanks! but im afraid the marco doenst even run, when I press F5 excel sends me this error msgs: Run time error 13 'Type Missmatch".

    I deleted it, but If I try to create it again the same error msg appears, my only guess is that I set the time as 0.5 and in the code, so no idea how to modify it now.

    Thanks Again for your help.
  • To post as a guest, your comment is unpublished.
    MOhammed · 10 months ago
    How to create a macro in excel with continuous loop and pressed key would be only pg up and pg down
  • To post as a guest, your comment is unpublished.
    crystal · 10 months ago
    @David Hi David.
    As we mentioned at the end of the post, if you need to stop the execution of the macro and change the interval of the cycle, please copy the below VBA code into the same Module window and press the F5 key to run the code. Then the Macro will be stopped, please rerun the above code to specify a new interval.

    Sub ExitReRunMacro()
    SaveSetting "Kutools", "Macro", "min", "Exit"
    End Sub
  • To post as a guest, your comment is unpublished.
    crystal · 10 months ago
    @Padma Hi Padma,
    The "insert your code here" indicate the VBA code you use to achieve some operation in Excel. Supposing you need to apply VBA to move a row to another sheet based on a specific value, and want to run the code every X minutes automatically, you need to place the VBA code here.
  • To post as a guest, your comment is unpublished.
    davart · 10 months ago
    Hi very useful, however I think I messed up and set the time as 0.5 and now I cannot chage it, any ideas how to change the xMin Setting?
  • To post as a guest, your comment is unpublished.
    David · 10 months ago
    Hi, I messed up and set the time as 0.5 and now I cannot chage it, any ideas how to change the xMin Setting?
  • To post as a guest, your comment is unpublished.
    Padma · 10 months ago
    Hello, Just help me out on "insert your code here". I am a novice and need help on what to fill and how ! Thanks
    I am not getting it right

  • To post as a guest, your comment is unpublished.
    Mohit · 1 years ago
    Hey

    I have a query, your codes works perfectly fine and copies the data in my next columns every 5 minutes but after 3 hours all my columns get full as it is 2003 excel. Could you please help me with a code to check if no other column is vacant then create a new sheet and copy paste data into that sheet
  • To post as a guest, your comment is unpublished.
    crystal · 1 years ago
    @ram2093@gmail.com Hi,
    Please change the line "Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"" to
    Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
  • To post as a guest, your comment is unpublished.
    ram2093@gmail.com · 1 years ago
    Please provide a Code for :


    "How to repeat or loop a Macro every X Seconds in Excel"


    Thank you
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @ebolshakovv@gmail.com Good daty,
    A new VBA code which can stop the macro has been added at the end of the article. Please have a try. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    crystal · 2 years ago
    @Jack Hi Jack,
    My mistake.
    A new VBA code which can stop the macro has been added at the end of the article. Please have a try. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    ebolshakovv@gmail.com · 2 years ago
    Tell me more how to stop the execution of the macro and change the interval of the cycle?
  • To post as a guest, your comment is unpublished.
    jack1 · 2 years ago
    Tell me more how to stop the execution of the macro and change the interval of the cycle?
  • To post as a guest, your comment is unpublished.
    Jack · 2 years ago
    @crystal Good day! I did not understand how to break the macro code to set the loop execution time again.Could you describe in more detail how to do this? Where is the value of the run cycle time recorded?
  • To post as a guest, your comment is unpublished.
    Ryan · 2 years ago
    Hi!
    This is great, but is there a way to get it to loop back up to the first row of the spreadsheet before beginning again?


    Thanks!
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @JIm Good Day,
    Just break the code and run it again.
  • To post as a guest, your comment is unpublished.
    JIm · 3 years ago
    Thanks for this, works a treat. I'm a novice to coding so please forgive me if this is simple...

    How do I get the dialog box to appear again? I have it stuck on a 1 minute loop. Thanks.
  • To post as a guest, your comment is unpublished.
    crystal · 3 years ago
    @primeacademyresource@gmail.com Good Day,
    You can get into the Code window to break the code (click on the Break button) manually to stop the loop.
  • To post as a guest, your comment is unpublished.
    primeacademyresource@gmail.com · 3 years ago
    Great one! Please how do i stop the loop after say 10 times?