指定时间运行指定宏

• 宏代码 • 6 条评论 • •5,365 次查阅
 
本文又是一篇折腾文。纯属乱写代码。
构思就是代码运行后倒计时执行关闭操作。
上代码：
 
  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. 宁波礼品

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