excel表格_excel函数公式大全_execl从入门到精通
VBA使用Application.Wait实现延时获取数据2024-02-22 23:05:21
大家好，我们今日讲解“VBA信息获取与处理”教程中第十一个专题“VBA如何做到延时获得数据信息”的第一节“使用Application.Wait实现延时获取数据”，这个专题是非常有用的知识点，希望大家掌握。
一般情况下，我们在实际的工作中往往要求及时、准确、快速地获得数据的信息，如数据的刷新，最好是一秒就一次，比如对于股票的操作，数据刷新的速度往往意味着财富的取得，对于决策者来说，及时的数据也是机会的把握。然而，有些情况下，我们需要一种数据的延迟，这种延时是在特殊的情况下，可能需要暂停代码执行一段时间，例如允许用户更新工作表或等待用户完成异步任务，或者为了得到更好的视觉效果（VBA代码不能一味地追求效率）。
为了实现这种延时，我这里提供四种方法。其中两个方法（SetTimer和一个严格的计时器循环）允许在代码等待时执行其他代码并引发事件。其他两个方法（Sleep和Wait）将事件延迟到超时期结束。
第一节 使用Application.Wait实现延时获取数据
这种方法在利用的时候非常简单，就是利用Application.Wait来暂停正在运行的宏直到指定时间。如果到达指定时间，继续运行。
1 Application.Wait方法的讲解
Wait方法暂停 Microsoft Excel 的所有操作，并且，Wait 起作用时可能禁止您对计算机做其他操作。不过，后台操作（如打印和重新计算）将继续进行。
语法：expression.Wait (Time)
expression：表示 Application 对象的变量。
Time：必需，数据类型是Variant，表示你想要恢复宏的时间，采用 Microsoft Excel 日期格式。
实例：本示例暂停一个正在执行的宏，当执行到Wait语句时会停止，直到代码指定的时间今天下午21:53:20时才可继续执行。我们看下面的代码：
Sub mynz() '使用Application.Wait实现延时获取数据
Sheets("sheet1").Select
For i = 1 To 10000
Cells(1, 1) = i
Application.Wait "21:53:20"
Cells(2, 1) = Time()
Next
MsgBox ("OK!")
End Sub
代码的分析：上述代码在理论上可以达到我们的要求，但实际上却是不能顺利运行的，当代码执行到Application.Wait "21:53:20"时，会判断当前的时间是否小于给出的时间，如果小于，好，停止执行，这个时候程序会一直监听系统的时间，并判断这个时间与所给的时间是否一致，当监听到一致时，代码继续向下运行，但由于我给出的是一个循环语句，当代码再次执行到Application.Wait "21:53:20"时会判断一下实现是否是上述时间，很显然今天不会再有这个时间了，那么代码会一直停止，等待这个时间的出现，很遗憾将要等一天的时间。显然，这不是我们需要的。
由此可见，上述代码的延时，在某种程度上讲，是没有意义的，但是，如果代码一直是顺序执行，上面代码的意义将非常重要。
那么在循环语句中，如何给出代码延时定长的时间呢?这就需要下面的Now + TimeSerial(0, 0, SecondsToWait)的语句了。
2 Now + TimeSerial(0, 0, SecondsToWait)的讲解
我们先给大家介绍一下TimeSerial这个函数
TimeSerial函数返回包含特定的小时、分钟和秒所对应的时间的 Variant (Date)。
语法：TimeSerial(hour, minute, second)
Hour 必需；Variant (Integer)。介于 0 (12:00 A.M.) 和 23 (11:00 P.M.) 之间的数字（含这两个数字）或数值表达式。
minute 必需；Variant (Integer)。任何数值表达式。
second 必需；Variant (Integer)。任何数值表达式。
说明：上述的参数中，第二个和第三个参数是没有范围要求的，当任何参数超过此参数的正常范围时，它会递增到下一个更大的单元（如果适当）。例如，如果您指定 75 分钟，则计算结果为 1 小时 15 分钟。但是，如果任意单个参数超出 -32,768 到 32,767 的范围，则将发生错误。如果由这三个参数指定的时间导致日期位于可接受的数据范围之外，则将发生错误。
Now + TimeSerial(0, 0, SecondsToWait)则表示为现在的时间之后的0时，0分，SecondsToWait秒，的时间点。有了这个语句，我们就可以轻松地实现定时延时了。
3 定时延时的真正实现
有了上面的讲解，我们来更正一下我们的代码：
Sub mynzA() '使用Application.Wait实现延时获取数据
Sheets("sheet1").Select
For i = 1 To 100
Cells(1, 1) = i
Application.Wait Now + TimeSerial(0, 0, 1)
Cells(2, 1) = Time()
Next
MsgBox ("OK!")
End Sub
代码截图：
代码讲解：上述代码实现了每隔一秒钟，单元格“A1”获取信息数字会自动变换的效果，同时在A2的单元格会提示时间。本节知识点回向：
① Application.Wait 方法的意义是什么？
② Now + TimeSerial(0, 0, SecondsToWait)的意义是什么？
③ 如何让某个单元格延时固定时间获得数据信息？
本节代码参考文件“011工作表.xlsm”积木编程的思路内涵：
在我的系列书籍中一直在强调“搭积木”的编程思路，这也是学习利用VBA的主要方法，特别是职场人员，更是要采用这种方案。其主要的内涵：
1代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码，一定要拷贝，从你的积木库中去拷贝，然后修正代码，把时间利用到高效的思考上。
2 建立自己的“积木库”。平时在学习过程中，把自己认为有用的代码放在一起，多积累，在用到的时候，可以随时拿来。你的积木库资料越多，你做程序的思路就会越广。VBA的应用界定
VBA是利用Office实现个人小型办公自动化的有效手段（工具）。这是我对VBA的应用界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理方面做到极致，谁就是王者。其中登峰至极的技能非VBA莫属！
我记得20年前自己初学VBA时，那时的资料甚少，只能看源码自己琢磨,真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据自己多年VBA实际利用经验，推出了六部VBA专门教程：
第一套：VBA代码解决方案是VBA中各个知识点的讲解，教程共147讲，覆盖绝大多数的VBA知识点，初学必备；
第二套：VBA数据库解决方案数据库是数据处理的专业利器，教程中详细介绍了利用ADO连接ACCDB和EXCEL的方法和实例操作，适合中级人员的学习。
第三套：VBA数组与字典解决方案数组和字典是VBA的精华，字典是VBA代码水平提高的有效手段，值得深入的学习，是初级及中级人员代码精进的手段。
第四套：VBA代码解决方案之视频是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。这套教程是第一套教程的视频讲解，听元音更易接受。
第五套：VBA中类的解读和利用这是一部高级教程，讲解类的虚无与肉身的度化，类的利用虽然较少，但仔细的学习可以促进自己VBA理论的提高。这套教程的领会主要是读者的领悟了，领悟一种佛学的哲理。
第六套教程：《VBA信息获取与处理》，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。
大家可以根据以上资料1→3→2→6→5或者是4→3→2→6→5的顺序逐渐深入的逐渐学习。教程提供讲解的同时提供了大量的积木，如需要可以WeChat: NZ9668学习VBA是个过程，也需要经历一种枯燥的感觉
如太白诗云：众鸟高飞尽，孤云独去闲。相看两不厌，只有敬亭山。学习的过程也是修心的过程，修一个平静的心。在代码的世界中，心平静了，心情好了，身体自然而然就好。心静则正，内心里没有那么多邪知邪见，也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航，助上我自己之力，我的上述教程是我多的经验的传递，
“水善利万物而不争”，绵绵密密，微则无声，巨则汹涌。学习亦如此，知道什么是自己所需要的，不要蜷缩在一小块自认为天堂的世界里，待到暮年时再去做自欺欺人的言论。要努力提高自己，用一颗充满生机的心灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿力决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中自有值得品的味道。去感悟真实的时间，静下心，多学习，积累福报。而不是天天混日子，也不是天天熬日子。在后疫情更加严峻的存量残杀世界中，为自己的生存进行知识的储备，特别是新知识的储备。学习时微而无声，利用时则巨则汹涌。
每一分收获都是成长的记录，怎无凭，正是这种执着，成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着：
浮云掠过，暗语无声，
唯有清风，惊了梦中啼莺。
望星，疏移北斗，
奈将往事雁同行。
阡陌人，昏灯明暗，
忍顾长亭。
多少VBA人，
暗夜中，悄声寻梦，盼却天明。
怎无凭！
回向学习利用VBA的历历往事，不胜感慨，谨以这些文字给大家，分享我多年工作实际经验的成果，随喜这些有用的东西，给确实需要利用VBA的同路人。
分享成果，随喜正能量
标签: excel时间递增15分钟