[已解决]Fox……Next 循环问题

缘来不相识

1.      For X= 1 To 5000 Step 1
   
2.         [A1] = X
   
3.      For Y= 1 To 5000 Step 1
   
4.         [B1] = Y
   
5. ..........
   
6. ..........
   
7.    Next
   
8. Next

复制代码

怎么加上doevents或sleep,现在遍历不完全.

最佳答案

月排行榜 / 总排行榜

BAIXINGR

2013-6-23 06:23

给个附件好点

跳转到最佳答案楼层

hwc2ycy

传附件吧。

ligh1298

你这种循环套循环，数据量又是特别大，可能会把电脑累瘫的。这里Step 1要与不要，都是步进1，可以省略。

1. Sub aa()
   
2. For X = 1 To 5000 Step 1
   
3. Cells(X, 1) = X
   
4. Next
   
5. For Y = 1 To 5000 Step 1
   
6. Cells(Y, 2) = Y
   
7. Next
   
8. End Sub

复制代码

以下循环，运行很慢，你要有耐心，如果无耐心，请在运行过程中，按Ctrl+Break中断。

1. Sub aa()
   
2. For X = 1 To 5000 Step 1
   
3. Cells(X, 1) = X
   
4. For Y = 1 To 5000 Step 1
   
5. Cells(Y, 2) = Y
   
6. Next
   
7. Next
   
8. End Sub
   

复制代码

BAIXINGR

给个附件好点

hwc2ycy

用数组吧。

缘来不相识

ligh1298 发表于 2013-6-23 06:02
你这种循环套循环，数据量又是特别大，可能会把电脑累瘫的。这里Step 1要与不要，都是步进1，可以省略。以下 ...

谢谢指导,我试运行一下.加Step 1我是为了方便调试-1或变值,逆向循环.初学vba,我觉得代码能够运行就已经很开心了.我要自己学着调试,比上传附件直接解决更有意义.解决不了再向大家请教.

ligh1298

缘来不相识 发表于 2013-6-23 08:45
谢谢指导,我试运行一下.加Step 1我是为了方便调试-1或变值,逆向循环.初学vba,我觉得代码能够运行就已经很 ...

如果是逆向循环（步进1），for i = 5000 to 1 step -1

如果是逆向循环（步进2），for i = 5000 to 1 step -2

我心飞翔410

看不明白 还是具体问题 具体分析

缘来不相识

ligh1298 发表于 2013-6-23 06:02
你这种循环套循环，数据量又是特别大，可能会把电脑累瘫的。这里Step 1要与不要，都是步进1，可以省略。以下 ...

点错了,问题解决了,我把第一层循环取消，改为手动微按按钮,时间上和原来一样.今天增加Do While Timer....DoEvents  Loop时间控制以后,程序运行时间是原来十倍.今天算是有点收获吧.

香川群子

有意思。原来是新人自学、研究技术的帖子。