EXCEL-VBA：延迟几秒不卡顿Sleep变通方法

小鸿叔

于 2022-07-05 18:33:56 发布

阅读量2.7k

点赞数 2

分类专栏： VBA 文章标签：大数据

本文链接：https://blog.youkuaiyun.com/jyh_jack/article/details/125625700

版权

VBA 专栏收录该内容

42 篇文章

订阅专栏

本文介绍了一种使用Sleep函数实现定时任务的方法。通过调用Sleep函数并结合DoEvents，可以实现精确到秒的延时效果。这种方法适用于Windows平台，利用VBA或者类似支持Declare声明的编程环境中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

方法是使用Sleep。

然后每过百毫秒Doevents一次

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

Sub WaitForSec(ByVal Sec As Integer)
    For i = 1 To Sec * 10
        DoEvents
        Sleep (100)
    Next
End Sub