[已解决]调用宏代码的VBA如何循环运行

lijian8003

Sub all()
Call 宏1
Call 宏2
Call 宏3
Call 宏4
End Sub
上述调用宏代码的VBA，如何加一个循环，让其依次运行10000次？

最佳答案

月排行榜 / 总排行榜

huahua2005

2014-10-25 15:10

Sub zx()
Dim i As Integer, j As Integer
Dim nm
For i = 1 To 4
nm = "宏" & i
For j = 1 To 10000
Application.Run nm
Next j
Next i
End Sub

跳转到最佳答案楼层

dsmch

for i=1 to 10000
Call 宏1
next
for i=1 to 10000
Call 宏2
next
…………

huahua2005

Sub zx()
Dim i As Integer, j As Integer
Dim nm
For i = 1 To 4
nm = "宏" & i
For j = 1 To 10000
Application.Run nm
Next j
Next i
End Sub

qh8600

我不知道为什么你这么坚持用循环，你可以测试下，宏1，宏2，宏3，宏4，每个宏运行的时间，然后4个宏的运行时间相加再乘以10000，需要多少时间
这种情况肯定是要优化代码，如果处理大数据必须要这么循环的，Excel不能满足你的希望

lijian8003

qh8600 发表于 2014-10-25 15:53
我不知道为什么你这么坚持用循环，你可以测试下，宏1，宏2，宏3，宏4，每个宏运行的时间，然后4个宏的运行时 ...

感谢您的帮助！
初学VBA，兴趣较浓，又总想找到偷懒的方法。不当之处还望海涵。

qh8600

lijian8003 发表于 2014-10-25 18:54
感谢您的帮助！
初学VBA，兴趣较浓，又总想找到偷懒的方法。不当之处还望海涵。

其实VBA处理大数据是短板，运行代码的时间，百度上很多，如果循环调用过程，或许可以用递归实现，有空去看看递归，过程调用自己。

lijian8003

qh8600 发表于 2014-10-25 19:05
其实VBA处理大数据是短板，运行代码的时间，百度上很多，如果循环调用过程，或许可以用递归实现，有空去看 ...

眼前又打开了一扇窗户。谢谢！