ExcelでX分ごとにマクロを繰り返すまたはループする方法は？

Microsoft Excelを使用しているときに、一部の操作を実行するためにマクロを作成する必要がある場合があります。たとえば、ある範囲のデータを新しい場所に自動的にコピーするマクロを作成するとします。データは頻繁に変更されるため、これら5つの範囲のデータを同期するには、このマクロを手動でトリガーせずにXNUMX分ごとに自動的に実行する必要があります。それを達成する方法は？この記事の方法はあなたを助けることができます。

ExcelでX分ごとにマクロを繰り返すかループする

ExcelでX分ごとにマクロを繰り返すかループする

次のVBAコードは、ExcelでX分ごとにマクロを繰り返すのに役立ちます。次のようにしてください。

1。押す他の + F11 同時にキーを開いて Microsoft Visual Basic for Applications 窓。

2。の中に Microsoft Visual Basic for Applications ウィンドウをクリックしてください インセット > モジュール。次に、以下のVBAコードをコピーしてに貼り付けます コード 窓。スクリーンショットを参照してください：

VBAコード：ExcelでX分ごとにマクロを繰り返すかループする

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 for Excel ダイアログボックスで、マクロを繰り返す間隔を入力して、[ OK ボタン。スクリーンショットを参照してください：

これ以降、特定のマクロはブック内で5分ごとに繰り返し実行されます。

ノート：マクロの実行を停止してサイクルの間隔を変更する必要がある場合は、以下のVBAコードを同じものにコピーしてください。 モジュール ウィンドウを押して、 F5 コードを実行するためのキー。その後、マクロが停止します。上記のコードを再実行して、新しい間隔を指定してください。

VBAコード：マクロの実行を停止します

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

Office Tab -Excelでのワークブックのタブブラウジング、編集、および管理：

Office Tabは、Google Chrome、Internet Explorerの新しいバージョン、FirefoxなどのWebブラウザーで見られるようなタブ付きのインターフェイスをMicrosoftExcelにもたらします。それは時間節約のツールであり、あなたの仕事においてかけがえのないものになるでしょう。以下のデモを参照してください。

Officeタブの無料トライアルをクリックしてください！

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80％向上させます

再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。セルを暗号化するパスワード付き。メーリングリストを作成するそしてメールを送る...
スーパーフォーミュラバー（複数行のテキストと数式を簡単に編集できます）; 読書レイアウト（多数のセルを簡単に読み取って編集する）; フィルター範囲に貼り付け...
セル/行/列をマージするデータを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。範囲を比較する...
[複製]または[一意]を選択します行; 空白行を選択（すべてのセルは空です）; スーパーファインドとファジーファインド多くのワークブックで; ランダム選択...
正確なコピー数式参照を変更せずに複数のセル。参照の自動作成複数のシートに; 箇条書きを挿入、チェックボックスなど...
テキストを抽出、テキストの追加、位置による削除、スペースを削除する; ページング小計の作成と印刷。セルの内容とコメントを変換する...
スーパーフィルター（フィルタースキームを保存して他のシートに適用します）; 高度な並べ替え月/週/日、頻度など。特殊フィルター太字、斜体...
ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
300以上の強力な機能。 Office / Excel2007-2019および365をサポートします。すべての言語をサポートします。企業や組織に簡単に導入できます。全機能30日間の無料トライアル。 60日間の返金保証。

続きを読みます... 無料ダウンロード... 購入...

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします

Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
生産性が50％向上し、毎日何百ものマウスクリックが減ります。

続きを読みます... 無料ダウンロード... 購入...

24 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

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.
creativeperson97 · 1 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
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 months ago
  
  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
  
  Reply
To post as a guest, your comment is unpublished.
LIMCA · 7 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?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 7 months ago
  
  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
  
  Reply
To post as a guest, your comment is unpublished.
MOhammed · 8 months ago
How to create a macro in excel with continuous loop and pressed key would be only pg up and pg down
- Reply
To post as a guest, your comment is unpublished.
davart · 8 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?
- Reply
To post as a guest, your comment is unpublished.
David · 8 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?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 8 months ago
  
  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
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  David · 8 months ago
  
  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.
  
  Reply
To post as a guest, your comment is unpublished.
Padma · 8 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
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 8 months ago
  
  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.
  
  Reply
To post as a guest, your comment is unpublished.
Mohit · 10 months 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
- Reply
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
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 1 years ago
  
  Hi,
  Please change the line "Application.OnTime Now() + TimeValue("0:" + xMin + ":0"), "ReRunMacro"" to
  Application.OnTime Now() + TimeValue("0:" + "0:" + xMin), "ReRunMacro"
  
  Reply
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?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  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.
  
  Reply
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?
- Reply
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!
- Reply
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.
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  Just break the code and run it again.
  
  Reply
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?
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  You can get into the Code window to break the code (click on the Break button) manually to stop the loop.
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  Jack · 2 years ago
  
  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?
  
  Reply
  
  To post as a guest, your comment is unpublished.
  
  crystal · 2 years ago
  
  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.
  
  Reply

あなたのアカウントにログイン

パスワードのリセット