VBA定时器：实现抽奖活动中的“随时停止”功能-CSDN博客

本文链接：https://blog.csdn.net/fsyuheduo/article/details/146491621

VBA定时器：实现抽奖活动中的“随时停止”功能🎁

===回顾===

1.VBA实现定时器重复执行sub代码的方法汇总

2.VBA定时器重复执行程序：Excel自动秒级打卡

===正文===

你是否曾想过，在抽奖活动中，一旦开始滚动名单，就能够随时停止并展示中奖者？今天，我们就来探讨如何使用VBA中的Sleep函数结合DoEvents函数，实现这一令人兴奋的功能！

本文以输出时间写入到单元格为例,实际功能可看我相关的文章

源码文末

🌟Sleep函数：让程序“暂停呼吸”

在VBA的世界里，虽然没有直接的Sleep函数，但我们可以通过调用Windows API来实现类似的效果。Sleep函数可以让程序暂停执行指定的毫秒数，就像让程序“暂停呼吸”一样。

' 声明 Sleep 函数（64 位兼容）#If VBA7 Then    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)#Else    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)#End If
Sub TestSleep()    ' 显示初始消息框    MsgBox "程序即将暂停 2 秒。"
    ' 暂停程序 3000 毫秒（即 3 秒）    Sleep 2000
    ' 显示暂停后的消息框    MsgBox "程序已暂停 2秒，现在继续执行。"End Sub

💡但Sleep函数有个“缺点”：它会阻塞Excel主线程，导致界面无响应。

🌱DoEvents函数：让程序“呼吸”起来

为了解决这个问题，我们可以引入DoEvents函数。这个神奇的函数可以让应用程序处理其他事件，比如用户界面的更新、鼠标点击等。这样，即使程序在执行耗时任务，Excel界面也能保持响应。

Sub LongRunningTask()    Dim i As Long    For i = 1 To 1000000        ' 模拟一些耗时的操作        ' 这里可以是复杂的计算或者数据处理        If i Mod 1000 = 0 Then            ' 每处理1000次，调用一次DoEvents            DoEvents        End If    Next i    MsgBox "任务完成。"End Sub

在这个示例中，LongRunningTask 宏有一个很长的循环1-1000000，模拟了一个耗时的任务。在循环里，每处理 1000 次就调用一次 DoEvents 函数，这样在任务执行期间，Excel 界面仍能响应用户的操作，不会出现无响应的情况。

💡解决方案：Sleep + DoEvents + 循环执行Sub

接下来，让我们看看如何结合这两个函数，实现一个可以随时停止的抽奖活动。

' 声明 Sleep 函数（64 位兼容）#If VBA7 Then    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As Long)#Else    Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)#End If
' 全局控制标志Private IsRunning As BooleanPrivate iRow As Long
' 启动任务（按钮点击触发）Sub StartTask()    If IsRunning Then Exit Sub
    ' 初始化数据区域    Dim rng As Range    Set rng = ActiveSheet.Range("A2:A10000")    rng.ClearContents    rng.NumberFormatLocal = "yyyy-mm-dd hh:mm:ss"    iRow = 1
    ' 启动循环    IsRunning = True    Do While IsRunning        ' 执行你的任务（例如写入当前时间）        With ActiveSheet            iRow = iRow + 1            .Cells(iRow, 1).Value = Now        End With
        ' 非阻塞延迟：每次 Sleep 20 毫秒，循环 10 次达到 200 毫秒        NonBlockingSleep 200
        ' 允许处理其他事件（如停止按钮点击）        DoEvents    LoopEnd Sub
' 停止任务（按钮点击触发）Sub StopTask()    IsRunning = FalseEnd Sub
' 非阻塞延迟函数（拆分 Sleep 为小段并插入 DoEvents）Sub NonBlockingSleep(ByVal totalMs As Long)    Dim steps As Long    steps = totalMs \ 20  ' 每次 Sleep 20 毫秒
    For i = 1 To steps        If Not IsRunning Then Exit For  ' 检测停止标志        Sleep 20        DoEvents  ' 允许处理其他事件    NextEnd Sub

声明Sleep函数
：首先，我们需要在VBA模块中声明Sleep函数，以便后续调用。
设置全局控制标志
：通过一个布尔变量IsRunning来控制循环是否继续。
启动任务
：当点击“开始”按钮时，初始化数据区域并启动循环。在循环中，我们执行任务（例如写入当前时间），然后调用非阻塞延迟函数NonBlockingSleep来实现暂停效果。同时，使用DoEvents函数来保持界面响应。
停止任务
：当点击“停止”按钮时，将IsRunning设置为False，循环自动退出。
非阻塞延迟函数
：这个函数将Sleep拆分为小段，并在每次小延迟后插入DoEvents，以减少单次阻塞时长并提高停止按钮的响应速度。