ExcelでX分ごとにマクロを繰り返す、またはループさせるにはどうすればよいですか？

Microsoft Excelを使用する際、特定の操作を実現するためにマクロを作成する必要がある場合があります。例えば、データ範囲を新しい場所に自動的にコピーするマクロを作成したいとします。データが頻繁に変更されるため、このマクロを手動でトリガーすることなく5分ごとに自動的に実行して、これらの2つのデータ範囲を同期させたいとします。これを達成するにはどうすればよいでしょうか？ この記事の方法が役立ちます。

ExcelでX分ごとにマクロを繰り返し、またはループさせる

ExcelでX分ごとにマクロを繰り返し、またはループさせる

次のVBAコードは、ExcelでX分ごとにマクロを繰り返すのに役立ちます。以下の手順に従ってください。

1. Altキーと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

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！

関連記事：

• Excelでワークシートをスクロールする際に行を繰り返すにはどうすればよいですか？
• Excelで最後または前のアクションを繰り返すにはどうすればよいですか？
• Excelで印刷されたすべてのページの下部に行を繰り返し印刷するにはどうすればよいですか？
• Excelで新しい値が見つかるか到達するまでセルの値を繰り返すにはどうすればよいですか？