excel - 如果系统时间在开始时间到结束时间之间每10分钟自动运行一次宏VBA excel

Question

我正在使用 Excel 2013， 如果系统时间在开始时间到结束时间 VBA excel 之间每 10 分钟运行一次，我需要自动运行宏。

VBA Code:
'In Workbook events:
Private Sub Workbook_Open()
    Call Update
End Sub

'In a Module:
Dim RunTimer As Date
Sub Update()
   RunTimer = Now + TimeValue("00:00:20")
   Application.OnTime RunTimer, "Update"

  'Do Something Your Code
   MsgBox "Data Update.", vbInformation
End Sub

例如:

1. Excel 打开
2. 开始时间为上午 9:30
3. 结束时间为下午 5:00
4. 每 10 分钟显示一次“msgbox”

请帮助我，提前致谢

如果系统时间在开始时间到结束时间之间每 10 分钟 VBA excel 运行一次，我需要自动宏运行

Answer 1

让您的代码像以前一样随时运行。您当前的代码每 20 秒发出一次调用，因为您每 10m 才需要一次调用，因此将分配更改为 RunTimer至TimeValue("00:10:00") .

现在代码将运行 10 分钟。您只需检查当前时间是否在 9:30 到 17:00 之间。如果是，请执行您想要的任何操作。

Sub Update()
    Const StartTime = "09:30"
    Const EndTime = "17:00"
    
    Dim RunTimer As Date
    RunTimer = Now + TimeValue("00:10:00")
    Application.OnTime RunTimer, "Update"

    If Time >= CDate(StartTime) And Time <= CDate(EndTime) Then
        'Do whatever you need to...
        MsgBox "Data Update.", vbInformation
    End If
End Sub