定時(shí)器整點(diǎn)運(yùn)行

Call Application.Settimer(0,300000)

就是每隔5分鐘執(zhí)行一次，但是，我想讓他整點(diǎn)運(yùn)行，就是開盤以后9:05,9:10,9:15，在這樣的整點(diǎn)每隔5分鐘運(yùn)行一次，這樣運(yùn)行，應(yīng)該怎么操作呢？；

Sub APPLICATION_VBAStart()
    Call Application.Settimer(0,1000)
End Sub

Sub APPLICATION_Timer(ID)
   if Hour(now) >= 9 And Hour(now) <= 15 And Minute(Now) > 1 And Second(Now) < 1 Then
      DifMin = Minute(Now) Mod 5
      
      IF DifMin = 0 Then
         '這里執(zhí)行你的操作
      End If
   End if
End Sub

這里的Settimer(0,1000)目的是1秒執(zhí)行一次檢測(cè)，目的是保證正好能在剛過執(zhí)行點(diǎn)時(shí)能檢測(cè)到，如果你的模型只需要間隔5分鐘而不需要那么精確卡在時(shí)間點(diǎn)，將這里改成60秒即可，另外去掉And Second(Now) < 1這句即可