循环计算求助

WantToBe

见附件，我想实现的功能是，求出sheet1,任意6个数字的和等于15的数所在位置的组合；然后把6个数位置在指定列里面一行一行的罗列出来；
请高手给用VBA方式指点

liulang0808

http://club.excelhome.net/thread-1385584-1-1.html
这个帖子是凑数的一个案例，楼主可以参考下的

WantToBe

谢谢提醒；
这个如果基数多比如24个，取出任意6个，它的组合就有24*23*22*21*20*19/（6*5*4*3*2*1）=134596种可能

iwangyi

关于数学方面的问题直接问香川老师

719404338

Sub t()
Dim arr, a%, b%, d%, e%, f%
Range("a1:e7").Font.Size = 11
arr = Range("a1:e7")
0 a = Int(Rnd() * 7) + 1
b = Int(Rnd() * 7) + 1
d = Int(Rnd() * 5) + 1
e = Int(Rnd() * 5) + 1
f = Int(Rnd() * 5) + 1
If a = b Or d = e Or e = f  or d=f Then GoTo 0
If arr(a, d) + arr(a, e) + arr(a, f) + arr(b, d) + arr(b, e) + arr(b, f) = 15 Then
Cells(a, d).Font.Size = 25
Cells(a, e).Font.Size = 25
Cells(a, f).Font.Size = 25
Cells(b, d).Font.Size = 25
Cells(b, e).Font.Size = 25
Cells(b, f).Font.Size = 25
Else
GoTo 0
End If
End Sub



数据放在A1:E7

WantToBe

719404338 发表于 2018-7-28 08:22
Sub t()
Dim arr, a%, b%, d%, e%, f%
Range("a1:e7").Font.Size = 11

嗯，大体上就是这种实现。如果还能一次性把所有符合组合的数的位置罗列出来就更好了：
例如
B1.D1.E1.B3.D3.E3
A1.D1.E1.A3.D3.E3

hcm19522

D2:M2区域数组公式{=INDEX(MMULT(N(RANDBETWEEN(TRANSPOSE(ROW(INDIRECT("1:"&A$2)))^0,B$2)=ROW(INDIRECT("1:"&B$2))),ROW(INDIRECT("1:"&A$2))^0),TRANSPOSE(ROW(INDIRECT("1:"&B$2))))

D2:M11格式化 字色白色 隱藏=ISNA(D2)

O2:O11=SUMIF(D2:M2,">0")

区域数组公式 :公式下D2-->圈選D2:M2-->游標放公式尾-->shift+ctrl+enter三鍵一起按-->隨機產生D2:M2列-->下拉 ,按F9就變

WantToBe

hcm19522 发表于 2018-7-28 11:40
D2:M2区域数组公式{=INDEX(MMULT(N(RANDBETWEEN(TRANSPOSE(ROW(INDIRECT("1:"&A$2)))^0,B$2)=ROW(INDIRECT( ...

这个没是我想要的方法