excel学习库-如何利用VBA代码，在EXCEL中实现类似“定时器”功能

大家好，今日继续讲解我们的VBA代码第三十五讲，利用VBA代码实现“定时器”功能。Excel VBA并没有提供定时器控件，但是用户可以通过Application对象的OnTime方法实现简单的定时器功能，应用于Application对象的OnTime方法能够安排一个过程在将来的特定时间运行。语法如下： expression.OnTime(EarliestTime, Procedure, LatestTime, Schedule) 参数: a) expression是必需的，返回一个Application对象。 b) EarliestTime是必需的，设置指定的过程开始运行的时间。使用Now + TimeValue(time)可以安排从现在开始经过一段时间之后运行某个过程，使用TimeValue(time)可以安排在指定的时间运行某个过程。 c) Procedure是必需的，设置要运行的过程名称。 d) LatestTime是可选的，设置过程开始运行的最晚时间。例如将参数LatestTime设置为EarliestTime+10，当时间到了EarliestTime时如果Excel不处于空闲状态，那么Excel将等待10秒，如果在10秒内Excel不能回到空闲状态，则不运行该过程。如果省略该参数，Excel将一直等待到可以运行该过程为止。 e) Schedule是可选的，如果其值为True（默认值），则安排一个新的OnTime过程，如果其值为False，则清除先前设置的过程。看下面的代码： Sub MyStartTimer() Sheet1.Cells(1, 2) = Sheet1.Cells(1, 2) + 1 Application.OnTime Now + TimeValue("00:00:01"), "MyStartTimer" End Sub 代码解析：MyStartTimer过程，使用Application对象的OnTime方法循环调用MyStartTimer过程实现每隔一秒钟运行一次MyStartTimer过程，从而在B1单元格中不断地显示程序累计运行时间；第2行代码将B1单元格的值在原有的数字上加1。第3行代码使用OnTime方法在1秒后重新调用StartTimer过程，使B1单元格的值不断的加1，从而显示程序累计运行时间。取消定时的代码如下： Sub MyEndTimer() On Error GoTo 100 Application.OnTime Now + TimeValue("00:00:01"), "MyStartTimer", , False Sheet1.Cells(1, 2) = 0 Exit Sub 100: MsgBox "请先按[ON]按钮!" End Sub 代码解析：MyEndTimer过程取消MyStartTimer过程的定时。第2行代码错误处理语句，因为如果还没有运行MyStartTimer过程而先运行MyEndTimer过程取消定时，程序会提示错误，因此使用On Error GoTo Line语句在错误发生时执行第7行代码显示一个提示消息框。第3行代码将MyStartTimer过程的Schedule参数设置为False，取消定时设置。先看下面的代码窗口：

运行窗口：

停止窗口：

今日内容回向： 1 OnTime 方法的作用是什么？ 2 EXCEL中定时器是如何实现的？

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

如何利用VBA代码，在EXCEL中实现类似“定时器”功能2024-05-14 18:39:10