VBA 程序暂停10秒后向下执行

最新推荐文章于 2025-02-08 08:33:38 发布

yl_sunmoon

最新推荐文章于 2025-02-08 08:33:38 发布

阅读量1.3w

点赞数 2

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/yl_sunmoon/article/details/38111251

版权

VBA 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了使用VBA实现定时任务的两种方法。一种是直接通过Now函数加上指定时间间隔进行等待，另一种是通过获取当前时间并计算出10秒后的具体时间点来实现。两种方法都使用了Application.Wait方法来暂停程序执行直到达到设定的时间。

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

   Dim time As String
    time = CStr(Now())
    方式一
    If Application.Wait(Now + TimeValue("0:00:10")) Then
       MsgBox time & Chr(10) & Now()
    End If
    方式二
    newHour = Hour(Now())
    newMinute = Minute(Now())
    newSecond = Second(Now()) + 10
    waitTime = TimeSerial(newHour, newMinute, newSecond)
    If Application.Wait(waitTime) Then
       MsgBox time & Chr(10) & Now()
    End If