vba 组合排序问题

lin505

香川群子 发表于 2013-8-20 14:40
呵呵，你别做梦了……

就是有了注释你水平低，一下子也理解不了的。

1. A1
   
2. A1 A2
   
3. A1 A2 A3
   
4. A1 A2 A3 A4 '从这一步递归到下一步不懂什么递
   
5. A2
   
6. A2 A3
   
7. A2 A3 A4

复制代码

水平不低啊，我就是递归到下一步不懂，像代码里面哪一步不懂，您教教我吧

gaohong267

Sub 计算()
Dim r%, s%, t%, y%, u%, i%, p%, q%
r = 1000
s = 1100
t = 1200
q = 1



For y = 0 To 5
       For u = 0 To 5
            For i = 0 To 5
            p = 1000 * y + 1100 * u + 1200 * i
            
            If p < 6000 Then
            
            Cells(q, 1) = 1000 * y + 1100 * u + 1200 * i
            
           

            q = q + 1
            End If
            
            Next
       Next
Next
End Sub
结果会显示到c列   

lin505

gaohong267 发表于 2013-8-20 16:13
Sub 计算()
Dim r%, s%, t%, y%, u%, i%, p%, q%
r = 1000

这个数一多就不行了