[已解决][求助]请高手指教怎么按指定数值组合

东方智彩 · 发表于 2009-11-1 13:24

如题看附件,谢谢!

AGzojF3E.rar (8.48 KB, 下载次数: 2)

amulee · 发表于 2009-11-2 13:26

这个最佳答案由 amulee 给出，感谢 amulee 的回答。

单击隐藏图章

0rIPHCfe.rar (12.16 KB, 下载次数: 5)

Flase · 发表于 2009-11-2 22:53

学习一下

[此贴子已经被作者于2009-11-2 22:53:55编辑过]

HYY514 · 发表于 2009-11-2 22:55

学习下递归，提供另一种思路：

Dim iCel As Integer
Dim iStop As Integer
Dim iStep As Integer

Sub d(ByVal iCount As Integer, Ar)
Dim i As Integer
Dim tmAr() As Integer

If iCount = iStep Then
    Cells(iCel, "g").Resize(1, UBound(Ar)) = Ar
    iCel = iCel + 1
    Exit Sub
End If
For i = 1 To iStop
    If IsError(Application.Match(i, Ar, 0)) Then
      If i > Application.Max(Ar) Then
             Ar(iCount + 1) = i
             tmAr = Ar
            d iCount + 1, tmAr
      End If
    End If
Next
End Sub
Sub f()
iCel = 3
iStop = Val(Sheet1.TextBox1.Text)
iStep = Val(Sheet1.TextBox2.Text)
Dim Ar() As Integer
ReDim Ar(1 To iStep)
d 0, Ar
End Sub

		自动登录	找回密码
密码			注册