首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 办公应用 > OFFICE教程 >

Application.OnTime的用法,该如何解决

2012-03-22 
Application.OnTime的用法Application.OnTime的用法,它有点像Windows的计划任务。比如你可以设置每15分钟运

Application.OnTime的用法
Application.OnTime的用法,它有点像Windows的计划任务。 
比如你可以设置每15分钟运行一个宏 

这个怎么设置

[解决办法]
除了问别人,你也可以自己钻研一下啊。

VB code
Public Sub MyMacro()'把 dTime设置为当前时间+1秒,也就是1秒后执行计划任务,你可以把("00:00:01")改成("00:15:00")dTime = Now + TimeValue("00:00:01")'在dTime的时候执行"ThisWorkbook.MyMacro"这个宏,也就是调自己,True表示执行,False的话就是删除这个计划任务Application.OnTime dTime, "ThisWorkbook.MyMacro", , TrueWith Range("A1")'在A1里面显示当前的时间,这个动作每隔一秒会执行一次,因为每隔一秒MyMacro就会被调用一次。.Value = Now.NumberFormat = "hh:mm:ss"End WithEnd SubPrivate Sub Workbook_Open()'在工作表打开的时候先调用一次MyMacro,后续调用由OnTime完成。MyMacroEnd Sub 

热点排行