定时器整点运行　[金字塔]

Call Application.Settimer(0,300000)

就是每隔5分钟执行一次，但是，我想让他整点运行，就是开盘以后9:05,9:10,9:15，在这样的整点每隔5分钟运行一次，这样运行，应该怎么操作呢？；

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
         '这里执行你的操作
      End If
   End if
End Sub

这里的Settimer(0,1000)目的是1秒执行一次检测，目的是保证正好能在刚过执行点时能检测到，如果你的模型只需要间隔5分钟而不需要那么精确卡在时间点，将这里改成60秒即可，另外去掉And Second(Now) < 1这句即可