小编use*_*642的帖子

我有一组包含以下内容的代码:

Application.Wait (Now + TimeValue("4:00:00"))

这实际上暂停了从凌晨3点(当它完成运行代码时)到上午7点(应该恢复时)的四小时窗口的宏.代码基本上是无限循环.

我希望用户能够在此期间控制编辑某些单元格.我试过了

DoEvents

但是还没有找到保持宏运行的方法,但是在宏除了等待之外什么都不做的时候,还为用户提供了控制权.

任何见解将不胜感激.谢谢!

编辑:

还有一个后续问题.我创建了这个宏来引用实际的宏"Production_Board".我希望这个宏一直运行并尽可能频繁地刷新.通过使用goto startagain,它会尝试在宏开始之前再次启动宏,因为"ontime"延迟间隔.

我怎么能让子RunMacro再次启动宏"Production_Board"完成的第二个？

Sub RunMacro
startagain:
Dim hour As Integer
Dim OT As String
hour = 0
OT = "Empty"
hour = Sheets("Calculations").Range("DR1").Value
OT = Sheets("Black").Range("D4").Value
If OT = "Y" Then
    If hour = 3 Or hour = 4 Then
    Application.OnTime TimeValue("05:00:00"), "Aespire_Production_Board"
    Else
    Application.OnTime Now + TimeValue("00:00:30"), "Aespire_Production_Board"
    End If
Else
    If hour = 3 Or hour = 4 Or hour = 5 Or hour = 6 Then …