指定时间运行指定宏

 
本文又是一篇折腾文。纯属乱写代码。
构思就是代码运行倒计时执行关闭操作。
上代码:
 
  1. Sub AfterTimetoRun()   
  2.     MsgBox "从现在开始,10秒后执行关闭Excel程序"  
  3.     Application.OnTime Now + TimeValue("00:00:10"), "quit"  
  4. End Sub   
  5. Sub quit()   
  6. Application.quit   
  7. End Sub  
当然这个执行操作的结果可以自定义了,这里运用了退出命令quit,也可以使用保存命令save等等,自己琢磨下会有更多的感悟。
咋有点病毒的感觉,千万不要写什么恶意命令,否则后果自负!切勿滥用!
需要的拿走!
分享到: