VBA中OnTime方法与OnKey方法

VBA语言専攻 2023-05-22

【分享成果，随喜正能量】一个社会，不同意见是正常的，不要急于去反对，或者扣帽子，甚至去打压与自己不同见解的人，对于不同意见最好的处理方式，就是辩论，只有辩论，才会出真知。。

我给VBA的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的劳动效率，而且可以提高数据处理的准确度。我推出的VBA系列教程共九套和一部VBA汉英手册，现在已经全部完成，希望大家利用、学习。

如果您只是一般的职场VBA需求，可以打包选择7.1.3.9教程+汉英手册，第7套教程是入门，第1套教程是入门后的提高，第3套教程字典是必备的VBA之精华，第9套教程是实用的典型案例讲解。这四套教程内容掌握后足以处理一般工作中的问题，实际写代码的时候再辅助代码汉英手册，足矣！如果您想进一步提高，就需要选择高级阶段的教程了。

VBA是面向对象编程的语言，博大精深。很多朋友咨询VBA的学习方法，我会陆续给大家讲解一些我的经验，大家可以慢慢体会。今日的内容是：VBA中OnTime方法与OnKey方法

3.2.8 OnTime方法与OnKey方法

对于这两个方法，我们先看一下介绍：Application对象的OnTime方法能够安排一个过程在将来的特定时间运行，Application 对象的OnKey方法指定特定键或特定的组合键运行的过程。从介绍中我们可以看出，这两个方法是应用程序对象的方法，一个的作用是安排某个过程的自动运行，一个是指定特定键的运行，两者都是安排某个过程的运行，只是前者是利用时间来控制，后者是利用键来控制。

在教程的讲解中，我们实现了利用OnTime方法来模拟一个计时器功能，在这个计算器中可以实现数字的秒级累加，大家在学习的过程中要理解这种方法的应用：

Sub mynz_31_1() '利用VBA代码实现"定时器"功能

Sheets("31").Cells(1, 2) = Sheets("31").Cells(1, 2) + 1

Application.OnTime Now + TimeValue("00:00:01"), "mynz_31_1"

End Sub

Sub mynz_31_2() '利用VBA代码实现"定时器"功能

On Error GoTo 100

Application.OnTime Now + TimeValue("00:00:01"), "mynz_31_1", , False

Sheets("31").Cells(1, 2) = 0

Exit Sub

100:

MsgBox "请先按[ON]按钮!"

End Sub

上面的代码是设置开始和关闭的按钮，这里给大家提出一个思考题：上述代码中利用了错误语句来处理程序运行过程点击关闭按钮的功能，这种方案有哪些不足？有没有更好的方案呢？请学员思考一下，可以考虑控件的属性及全局变量的应用。

在onkey讲解的实例中，我们利用了这个方案来处理屏蔽某些按钮的功能，这是这个方法的实用之处，这里仅提醒大家要注意代码的书写位置。同时要注意在关闭应用程序时务必恢复原貌。上述的两点也是我们在理解代码位置时确实应该注意的，什么是标准模块，什么是私用模块。同时要理解在工作簿模块中各个事件的含义。

学习VBA是个经验积累的过程，遇到什么问题，该如何处理，自己要把握好，同时每位学员要掌握VBA的基本概念。在我的答疑过程中，有的学员虽然学习到了高级教程，但是一些基本的术语都还没有掌握，提的问题自己都描述不清楚。计算机语言玩的是逻辑关系，当你的程序报错时，要提供哪里报错了？提示是什么？这是基本的描述，不能说“老师，我的程序有问题，您给我看看”，要知道，读别人的代码还不如自己写代码，我要求学员提供自己的报错程序，报错代码位置，报错提示，以方便错误的追踪。要有逻辑关系的表述能力，如果提供的程序没有报错，而是让我去找测试，那的确不是VBA学习之正途。

【分享成果，随喜正能量】

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】忘足，履之适也；忘要，带之适也；知忘是非，心之适也。有些事，没有必要反复咀嚼，善于遗忘、坦然面对发生的一切。人生的快乐之道，就是在自己力所不及的的时候，就不要去忧虑。。

vba vba字典教程

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

VBA中OnTime方法与OnKey方法

3.2.8 OnTime方法与OnKey方法

评论