定時器整點運行　[金字塔]

Call Application.Settimer(0,300000)

就是每隔5分鐘執(zhí)行一次，但是，我想讓他整點運行，就是開盤以后9:05,9:10,9:15，在這樣的整點每隔5分鐘運行一次，這樣運行，應(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í)行一次檢測，目的是保證正好能在剛過執(zhí)行點時能檢測到，如果你的模型只需要間隔5分鐘而不需要那么精確卡在時間點，將這里改成60秒即可，另外去掉And Second(Now) < 1這句即可