如何暂停特定的时间？（Excel中/ VBA）

Question

如何暂停特定的时间？（Excel中/ VBA）我有一个Excel工作表，其中包含以下宏。我想每秒循环一次，但如果我能找到这样做的功能，那就很危险。不可能吗？Sub Macro1()'' Macro1 Macro'Do     Calculate    'Here I want to wait for one secondLoopEnd Sub

Answer 1

将其添加到您的模块中

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

或者，对于64位系统，使用：

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)

像你这样在你的宏中调用它：

Sub Macro1()'' Macro1 Macro'Do
    Calculate
    Sleep (1000) ' delay 1 secondLoopEnd Sub

Answer 2

而不是使用：

Application.Wait(Now + #0:00:01#)

我更喜欢：

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

因为事后阅读起来容易得多。