前言
要不是年会需要使用PPT来做抽奖,我才不会用这么难用的VBA。
VBA要实现延时功能,大多数教程都会拿2016年ExcelHome里的上古帖子不厌其烦地复制粘贴,然后你复制下来发现根本无法运行。
现在我从头给你讲,到底怎样在VBA中实现毫秒级延时功能。
思路
思路很清晰,分三步走:
1. 想办法获取当前时间(time_now1)
2. 然后给这个时间加上一个数delay_time(这个数就是你要定时的时长)得到time_then
3. 然后做循环,当再次获取当前时间(time_now2)等于time_then的时候跳出循环。并且注意这个时候最好不要使用独占CPU的浪费计算资源的方法。
布局
用一个CommandButton1按钮控件和一个Label1文本控件,在PPT中直观展示怎样实现延时功能。
代码
Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
Private Sub CommandButton1_Click()
Dim Savetime As Double
Label1.Caption = "点击开始计时"
Savetime = timeGetTime
While timeGetTime < Savetime + 500
DoEvents
Wend
Label1.Caption = "延时时间到"
End Sub
代码解析
1. 先看第一句话:
Private Declare PtrSafe Function timeGetTime Lib "winmm.dll" () As Long
第一句话是很关键的内容,但Declare是上古时代的VBA语句,现在已经不推荐单独用了。需要在其后面加上PtrSafe关键字。具体参考:Declare 语句 (VBA) | Microsoft Docs了解如何使用 Declare 语句 (VBA)https://docs.microsoft.com/zh-cn/office/vba/Language/reference/user-interface-help/declare-statement
这句话的功能就是,将winmn.dll这个系统DLL文件中的timeGetTime拎出来,方便后面使用,并且声明为Long型变量。
2. 再看第二段话:
Private Sub CommandButton1_Click()
Dim Savetime As Double
Label1.Caption = "点击开始计时"
Savetime = timeGetTime
While timeGetTime < Savetime + 500
DoEvents
Wend
Label1.Caption = "延时时间到"
End Sub
Sub...End Sub经典的事件处理函数,CommandButton1是上面拖拽过来的Button控件,CommandButton1_Click()是单击Button控件后的动作。
在动作里,首先定义了Double型的临时变量Savetime,用于暂存按钮按下的时间信息,也即Savetime = timeGetTime
然后做个While...Wend循环,在这个循环里执行DoEvents函数,注意这个函数是CPU资源友好型函数,功能是交出执行控制权,以便操作系统能够处理其他事件。具体参考:
DoEvents 函数 (Visual Basic for Applications) | Microsoft DocsOffice VBA reference topichttps://docs.microsoft.com/zh-cn/office/vba/language/reference/user-interface-help/doevents-function跳出循环的方法就是获取到的当前时间等于或大于Savetime + 500的值,从而实现了定时。
刚刚跳过的关于Label1.Caption = "XXX"的两行代码,只是为了直观展示函数运行状态,不展开讲了。文章来源:https://www.toymoban.com/news/detail-469643.html
总结
做到延时,需要靠“三步走”的方法实现,同时也要注意用DoEvent函数避免CPU资源浪费。用的时候,直接复制代码,把500换成想要的毫秒数即可。文章来源地址https://www.toymoban.com/news/detail-469643.html
到了这里,关于VBA实现毫秒级延时(2022最新版)的文章就介绍完了。如果您还想了解更多内容,请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章,希望大家以后多多支持TOY模板网!