求30选7排列组合，7个数字不重复和等于111的?????用Excel怎么制作出来

来源：百度知道 编辑：UC知道 时间：2024/06/21 21:44:16
求30选7排列组合，7个数字不重复和等于111 比如 2+13+15+16+17+21+27=111 2+9+13+16+20+25+26=111 用Excel怎么制作出来这些排列组合

求一组出来的程序：

Private Sub xxx()
[b1] = 0
Do While [b1] <> 111
[b1] = 0
For i = 1 To 7
Cells(i, 1) = Int(Rnd * 30 + 1)
[b1] = [b1] + Cells(i, 1)
Next
Loop
End Sub

买彩票？
有专门的软件
excel是办公用的

用VBA写啰，但估计运行起来很慢，而且excel 2003都不一定装得下，你看C30（7）＝2,035,800， 7个数相加最大189，，最小28，而111在中间，估计有很多这样的组合。

没有哪个公式能算出来。

用宏编吧。