VBA代码，只在工作时间以10个分钟间隔运行

Question

我希望我的代码可以在整个工作日内以10个分钟间隔运行，但停止时，一天的工作就结束了。目前我使用的代码

Application.OnTime Now + TimeValue("00:10:00"), "!Module1.Refresh3"

但它会导致问题，因为它继续运行了整整一夜。

Answer 1

你可以做线沿线的东西：

If Hour(Now) > 19 Then
    Application.Wait (Now + TimeValue("12:00:00"))
End If

这会从晚上8点起，停止你的代码12小时。对于clearification：作为peakpeak提到，要确保你在你的外循环运行它，那么每10分钟间隔后，这些线路得到评估。