指定时间运行指定宏

 
本文又是一篇折腾文。纯属乱写代码。
构思就是代码运行倒计时执行关闭操作。
上代码:
 
  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等等,自己琢磨下会有更多的感悟。
咋有点病毒的感觉,千万不要写什么恶意命令,否则后果自负!切勿滥用!
需要的拿走!
分享到:

6 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 北京瞳摄影

    呵呵博主也是个专业人士啊!

    1. Kael.Z

      专业算不上,算折腾吧!

  2. 北京艺术照

    初来乍到希望博主多多关照!

  3. 抢客网

    博主
    你的
    空间
    留言


    给力
    了啊
    !!

  4. 厨卫电器厂家

    你通不通过我的留言,我就在那里,不悲不喜

  5. 宁波礼品

    每次来到博主的空间,我总会忍不住留下脚印。
    轻轻的来,就如我轻轻的走,我挥一挥衣袖,留下一条留言。