如何在 Excel 中每 X 分鐘重複或迴圈執行宏？

MS Excel 微軟技術高階 Excel 函式

藉助宏，Microsoft Excel 成為一個強大的工具，允許使用者自動化重複性任務。宏是一組可以編寫或錄製以執行特定任務集的指令。但是，某些任務需要定期執行。例如，每 30 分鐘更新一次儀表板或從 Web 來源檢索資料。

本教程將向您展示如何設定 Excel 宏以在預定時間自動執行。閱讀完本手冊後，您將能夠有效地迴圈您的宏，最佳化您的工作流程，並節省大量時間和精力。

每 X 分鐘重複或迴圈執行宏

在這裡，我們將首先建立一個 VBA 模組，然後指定完成任務的時間間隔。讓我們來看一個簡單的過程，學習如何在 Excel 中每 X 分鐘重複或迴圈執行宏。

步驟 1

考慮一個 Excel 工作簿。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟 VBA 應用程式。

右鍵單擊 > 檢視程式碼。

步驟 2

然後單擊“插入”，選擇“模組”，然後將下面的程式碼複製到文字框中。

插入 > 模組 > 複製。

程式碼

Sub ReRunMacro()
   Dim xMin As String
   Dim appName As String
   Dim sectionName As String
   Dim keyName As String
   appName = "MyApp"
   sectionName = "MySection"
   keyName = "min"

   'Insert your code here
   xMin = GetSetting(appName:=appName, Section:=sectionName, Key:=keyName, Default:="")
   If xMin = "Exit" Then
      SaveSetting appName, sectionName, keyName, "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:="MyApp for Excel", Type:=2)
      SaveSetting appName, sectionName, keyName, xMin
   End If
   If (xMin <> "") And (xMin <> "False") Then
      Application.OnTime Now() + TimeValue("0:" & xMin & ":0"), "ReRunMacro"
   Else
      Exit Sub
   End If
End Sub