安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Excel中定时执行任务或代码的几种方法

2017-08-09 13:54:00
zstmtony
翻译
5843



一、使用Excel?#28304;?#30340;OnTime函数


1)打开Excel 进入vbe编辑器 (可使用Alt+F11组合快捷键),插入一个新的模块(Module),并在模块中输入以下代码:


Public Sub TestSub()
   MsgBox ("Office交流网定时执行任务") '显示一个提示对话框
End Sub


2)然后给它配上一个计时器,就能让它在指定的时间自动运行。
Application.OnTime Now + TimeValue("00:00:10"), "TestSub"

这句代码可以放在Wordbook的 打开Open事件中来触发

ontime是一个excel函数,所以必须指定application这个对象。now函数是指定当前时间,配合上+号这是运算符,与后面timevalue的值相加。逗号后是调用过程的名称,使用双引号引用起来。


运行效果:



二、用API函数来实现(可现毫秒级的计时器)

要借用个Windows 的API函数:SetTimer和KillTimer

前者用于设置定时器,后者用于删除定时器


Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long


声明lTimerID用于存放定时器的ID
Public lngTimerID As Long

启动定时器,IDuration是定时器触发的时间,单位为毫秒
Sub StartTimer(lDuration As Long)
' 如果定时器不存在,则设置定时器,定时器触发的时间为IDuration,定时器触发后执行OnTime
If lngTimerID = 0 Then
 lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
 ' 否则停止定时器,并设置一个新的定时器
Else
  Call StopTimer
  lngTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
End If
End Sub



停止定时器的函数

Sub StopTimer()
   KillTimer 0&, lngTimerID 
End Sub



OnTime函数
Sub OnTime()
' 计时器触发后运行的代码放在这
Debug.Print "计时器定时执行了!"
End Sub



三、相关知识:


Application的OnTime函数



?#25165;?#19968;个过程在将来的特定时间运行(既可以是具体指定的某个时间,也可以是指定的一段时间之后)。

语法

表达式.OnTime(EarliestTime, Procedure, LatestTime, Schedule)

表达式 一个代表 Application 对象的变量。

参数

名称

必需/可选

数据类型

说明

EarliestTime

必需

Variant

希望此过程运行的时间。

Procedure

必需

String

要运行的过程名。

LatestTime

可选

Variant

过程开始运行的最晚时间。例如,如果 LatestTime 参数设置为 EarliestTime + 30,?#19994;?#21040;达EarliestTime 时间时,由于其他过程处于运行状态而导致 Microsoft Excel 不能处于“就绪”、“复制”、“剪切”或“查找”模式,则 Microsoft Excel 将等待 30 秒让第一个过程先完成。如果 Microsoft Excel 不能在 30 秒内回到“就绪”模式,则不运行此过程。如果省略该参数,Microsoft Excel 将一直等待到可以运行该过程为止。

Schedule

可选

Variant

如果为 True,则预定一个新的 OnTime 过程。如果为 False,则清除先前设置的过程。默认值为True

注解

使用 Now + TimeValue(time) 可?#25165;?#32463;过一段时间(从现在开?#25216;?#26102;)之后运行某个过程。使用 TimeValue(time) 可?#25165;?#26576;个过程只运行指定的时间。

EarliestTime 值四舍五入到最接近的下一个值。

Schedule 设置为 false,以清除以前设置的具有相同 ProcedureEarliestTime 值的程序。

示例

本示例设置从现在开始 15 秒后运行 my_Procedure。

VBA
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

本示例设置 my_Procedure 在下午 5 点开始运行。

Application.OnTime TimeValue("17:00:00"), "my_Procedure"

本示例撤消前一个示例对 OnTime 的设置。

VBA
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ 
 Procedure:="my_Procedure", Schedule:=False


相关文章:


VBA系列讲座(7):如何在Excel里使用定时器

Access计时器Timer与VB计时器Timer的区别


    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.22
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假