如何暂停特定的时间?(EXCEL/VBA)

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (2)
  • 关注 (0)
  • 查看 (57)

我有一个Excel工作表,它具有以下宏。我想每一秒循环一次,但是如果我能找到函数来做的话,就会失去意义。这不可能吗?

Sub Macro1()
'
' Macro1 Macro
'
Do
    Calculate
    'Here I want to wait for one second

Loop
End Sub
提问于
用户回答回答于

使用等待法:

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

或(用于Excel 2010及更高版本):

Application.Wait Now + #12:00:01 AM#
用户回答回答于

将此添加到模块中

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 second

Loop
End Sub

扫码关注云+社区