大家好,我们今日讲解"VBA信息获取与处理"教程中第十一个专题"VBA如何做到延时获得数据信息"的第二节"在任意时间点退出循环实现获取数据",这个专题是非常有用的知识点,希望大家能掌握利用。
第三节 在任意时间点退出循环实现获取数据
大家好,我们继续获取数据的讲解,这讲的内容是在任意时间点退出循环实现获取数据。在延时获取数据的方式中,有一种十分特别的方式,这种方式是在你需要的时间点可以随时获取数据。这种方案其实程序始终是在循环的运行中,当你下达指令要退出这个循环时再退出。
1 Application的EnableCancelKey属性讲解
为了实现在任意时间退出循环,我们先来讲解一下Application.EnableCancelKey属性。这个属性是控制用户对正在运行的过程的中断。
语法:expression.EnableCancelKey
其中expression:表示 Application 对象的变量。
这个属性的值以设置为以下常量之一:
1)xlDisabled完全禁用"取消"键捕获功能。
2)xlErrorHandler中断被作为错误发送到正在运行的过程, 并由设置为On error GoTo语句的错误处理程序进行可捕获,可捕获的错误代码为 18。
3)xlInterrupt。中断当前运行程序,用户可进行调试或结束程序的运行。
使用此属性时应非常小心。如果使用xlDisabled, 则无法中断正在执行的循环代码。同样, 如果您使用xlErrorHandler , 但您的错误处理程序始终通过使用Resume语句返回, 则无法停止正在运行的代码。
只要 Microsoft Excel 返回空闲状态并且没有程序处于运行状态,EnableCancelKey属性都会重置为xlInterrupt。若要在程序运行中捕获或者禁用取消过程,则每次在程序被调用时必须明确更改EnableCancelKey属性。
2 任意时刻退出循环的代码
下面我给出这讲内容的代码:
Sub mynzC() '任意时间退出循环
Sheets("sheet3").Select
On Error GoToErrHandler
Application.EnableCancelKey = xlErrorHandler
MsgBox "This may take a long time,Pressed any Key to cancel"
Range("A1").ClearContents
Range("A2").ClearContents
NumberOfSeconds = 20
TEnd = NumberOfSeconds * 10000 '大概的时间
J = 1
Do While J
Cells(1, 1) = J
Cells(2, 1) = Time()
DoEvents
J = J + 1
Loop
Exit Sub
ErrHandler:
' Break Key Pressed 按下任意键退出
TEnd = 0
End Sub
代码截图:
![6fa86b67b37c92f2b16ed142043124b3.png](https://img-blog.csdnimg.cn/img_convert/6fa86b67b37c92f2b16ed142043124b3.png)
代码讲解:
1)Application.EnableCancelKey = xlErrorHandler设置中断被作为错误发送到正在运行的过程
2)Do While J
Cells(1, 1) = J
Cells(2, 1) = Time()
DoEvents
J = J + 1
Loop
建立一个大循环,注意其中的DoEvents,在循环中,调用DoEvents以允许键盘和鼠标事件发生。在循环期间,您不会被锁定在应用程序之外,并且事件通常在循环期间发生。你可以用按下任意键来脱离循环。
3)ErrHandler:
' Break Key Pressed 按下任意键退出
TEnd = 0
错误的捕获及处理,当有任意键按下就会将TEnd设置为 0,从而退出循环。
3 任意时刻退出循环的实现效果
上述的代码过程,我们将首先看到一个模拟的可视的变化过程。如下:
![1d6d5930306bf6ea57277f9088dc921a.png](https://img-blog.csdnimg.cn/img_convert/1d6d5930306bf6ea57277f9088dc921a.png)
当我们按下按钮,首先会提示一个对话框,告诉用户如何能够退出循环。在程序循环执行过程中,我们按下任意键,这个时候就会退出了循环过程。
![5918fb8ed84339f8741b3d0016140690.png](https://img-blog.csdnimg.cn/img_convert/5918fb8ed84339f8741b3d0016140690.png)
![6e2e63d012112ef58f0dc541677ade06.png](https://img-blog.csdnimg.cn/img_convert/6e2e63d012112ef58f0dc541677ade06.png)
本节知识点回向:
① EnableCancelKey属性的意义是什么?
② 按下任意键退出循环的实质是什么?
本节代码参考文件"011工作表.xlsm"
![6e2e63d012112ef58f0dc541677ade06.png](https://img-blog.csdnimg.cn/img_convert/6e2e63d012112ef58f0dc541677ade06.png)
积木编程的思路内涵:
在我的系列书籍中一直在强调"搭积木"的编程思路,这也是学习利用VBA的主要方法,特别是职场人员,更是要采用这种方案。其主要的内涵:
1 代码不要自己全部的录入。你要做的是把积木放在合适的位置然后去修正代码,一定要拷贝,从你的积木库中去拷贝,然后修正代码,把时间利用到高效的思考上。
2 建立自己的"积木库"。平时在学习过程中,把自己认为有用的代码放在一起,多积累,在用到的时候,可以随时拿来。你的积木库资料越多,你做程序的思路就会越广。
![6e2e63d012112ef58f0dc541677ade06.png](https://img-blog.csdnimg.cn/img_convert/6e2e63d012112ef58f0dc541677ade06.png)
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
![d8b9167df779f27fa1114bb9e45a0599.png](https://img-blog.csdnimg.cn/img_convert/d8b9167df779f27fa1114bb9e45a0599.png)
学习VBA是个过程,也需要经历一种枯燥的感觉
如太白诗云:众鸟高飞尽,孤云独去闲。相看两不厌,只有敬亭山。学习的过程也是修心的过程,修一个平静的心。在代码的世界中,心平静了,心情好了,身体自然而然就好。心静则正,内心里没有那么多邪知邪见,也就没有那么多妄想。利人就是利己。这些教程也是为帮助大家起航,助上我自己之力,我的上述教程是我多的经验的传递,
"水善利万物而不争",绵绵密密,微则无声,巨则汹涌。学习亦如此,知道什么是自己所需要的,不要蜷缩在一小块自认为天堂的世界里,待到暮年时再去做自欺欺人的言论。要努力提高自己,用一颗充满生机的心灵,把握现在,这才是进取。越是有意义的事情,困难会越多。愿力决定始终,智慧决定成败。不管遇到什么,都是风景。看淡纷争,看轻得失。茶,满也好,少也好,不要计较;浓也好,淡也好,其中自有值得品的味道。去感悟真实的时间,静下心,多学习,积累福报。而不是天天混日子,也不是天天熬日子。在后疫情更加严峻的存量残杀世界中,为自己的生存进行知识的储备,特别是新知识的储备。学习时微而无声,利用时则巨则汹涌。
每一分收获都是成长的记录,怎无凭,正是这种执着,成就了朝霞的灿烂。最后将一阙词送给致力于VBA学习的朋友,让大家感受一下学习过程的枯燥与执着:
浮云掠过,暗语无声,
唯有清风,惊了梦中啼莺。
望星,疏移北斗,
奈将往事雁同行。
阡陌人,昏灯明暗,
忍顾长亭。
多少VBA人,
暗夜中,悄声寻梦,盼却天明。
怎无凭!
回向学习利用VBA的历历往事,不胜感慨,谨以这些文字给大家,分享我多年工作实际经验的成果,随喜这些有用的东西,给确实需要利用VBA的同路人。
分享成果,随喜正能量