[已解决]按顺序执行多个宏代码

lijian8003

在excel中，有三个宏，第二个宏需要在第一个宏的运算基础上继续运算，第三个宏需要在第二个宏的运算基础上再继续运算，故此必须在第一个宏执行的运算任务结束后（第一个宏执行完运算任务需要10秒），再执行第二个宏，在第二个宏执行的运算任务结束后（第二个宏执行完运算任务也需要10秒），再执行第三个宏。
下述代码可以达到这样的效果吗？如果不能，代码该如何修改？
初步考虑：
1、估计出宏代码运算结束的时间，在一个宏代码运算时，延迟下一个宏代码的执行；
2、最完备的方法应该是触发机制，如何判断上一个宏代码执行运算任务结束，之后再执行下一个宏代码？

Sub all()
Call  第一个宏_黄
Call  第二个宏_黑
Call  第三个宏_红
End Sub

Sub 第一个宏_黄()
MsgBox "第一个宏"
End Sub

Sub 第二个宏_黑()
MsgBox "第二个宏"
End Sub

Sub 第三个宏_红()
MsgBox "第三个宏"
End Sub

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-22 05:38

1. Sub all()
   
2. Call 第一个宏_黄
   
3. Application.Wait (Now + TimeValue("00:00:10")) '10秒后运行宏二
   
4. Application.StatusBar = "……程序正在运行，请稍候……"
   
5. Call 第二个宏_黑
   
6. Application.Wait (Now + TimeValue("00:00:10")) '10秒后运行宏三
   
7. Application.StatusBar = "……程序正在运行，请稍候……"
   
8. Call 第三个宏_红
   
9. Application.StatusBar = "程序运行结束"
   
10. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub all()
   
2. Call 第一个宏_黄
   
3. Application.Wait (Now + TimeValue("00:00:10")) '10秒后运行宏二
   
4. Application.StatusBar = "……程序正在运行，请稍候……"
   
5. Call 第二个宏_黑
   
6. Application.Wait (Now + TimeValue("00:00:10")) '10秒后运行宏三
   
7. Application.StatusBar = "……程序正在运行，请稍候……"
   
8. Call 第三个宏_红
   
9. Application.StatusBar = "程序运行结束"
   
10. End Sub

复制代码

lijian8003

dsmch 发表于 2014-10-22 05:38

感谢。
如果延时500毫秒，如何表达？

dsmch

Now + TimeValue("00:00:01")/2

su45

一个宏运行10'，时间够长的

lijian8003

su45 发表于 2014-10-23 00:02
一个宏运行10'，时间够长的

为了突出时间上的间隔，特意模拟了一种运行过程。

lijian8003

dsmch 发表于 2014-10-22 05:38

感谢！
实践中，感觉VBA是单线程，一次只能运行1个VBA，即当call 宏1 运行时，call宏2 不能运行，只有当call 宏1 运行结束，call宏2 才能运行。
不知道我的理解是否正确？