如何暂停特定的时间？（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"))因为事后阅读起来容易得多。