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