价格组合问题

ghost7889

有这么十几个数，我需要数量在区间0到9.
合计那里199到200的所有排列组合


我已经晕了，特来求助各位大佬！

数量区间修改为0到3.

或者换个思路，自动将单价和数量组合成我想要的金额

三位大佬的解答都给我了思路。都很棒。先学习。。。

yjh_27

2^（13*9） -1 个组合
你确定要计算这么多次吗
可考虑减少13*9数量、但计算也是。。。。

ghost7889

yjh_27 发表于 2019-6-13 11:02
2^（13*9） -1 个组合
你确定要计算这么多次吗
可考虑减少13*9数量、但计算也是。。。。

考虑数量减少，数量控制区间为0到3.

ghost7889

yjh_27 发表于 2019-6-13 11:02
2^（13*9） -1 个组合
你确定要计算这么多次吗
可考虑减少13*9数量、但计算也是。。。。

也是 计算量大了些，那9变成3 数量级下来了好多

ghost7889

感觉自己的数学不够好。这么简单的数学建模都不行。。

719404338

我改成了0-2的随机数，看看是不是你想要的。

1. Sub t()
   
2. Dim i, j
   
3. For i = 4 To 50
   
4. 0: For j = 2 To 14
   
5. Cells(i, j) = WorksheetFunction.RandBetween(0, 2)
   
6. s = s + Cells(i, j) * Cells(2, j)
   
7. Next j
   
8. If s > 200 Or s < 199 Then
   
9. s = 0
   
10. GoTo 0
    
11. End If
    
12. Range("o" & i) = s：s=0
    
13. Next i
    
14. End Sub

复制代码

yjh_27

暴力计算100个

1. Sub aa()
   
2. arr = [b2:n2]
   
3. ReDim brr(1 To 65000, 1 To UBound(arr, 2) + 1)    '计算100个结果，可修改
   
4. 
   
5. i12 = 200 \ arr(1, 1)
   
6. If i12 > 9 Then i12 = 9
   
7. For i1 = 0 To i12
   
8.     he1 = i1 * arr(1, 1)
   
9.     i22 = (200 - he1) \ arr(1, 2)
   
10.     If i22 > 9 Then i22 = 9
    
11. For i2 = 0 To i22
    
12.     he2 = he1 + i2 * arr(1, 2)
    
13.     i32 = (200 - he2) \ arr(1, 3)
    
14.     If i32 > 9 Then i32 = 9
    
15. For i3 = 0 To i32
    
16.     he3 = he2 + i3 * arr(1, 3)
    
17.     i42 = (200 - he3) \ arr(1, 4)
    
18.     If i42 > 9 Then i42 = 9
    
19. For i4 = 0 To i42
    
20.     he4 = he3 + i4 * arr(1, 4)
    
21.     i52 = (200 - he4) \ arr(1, 5)
    
22.     If i52 > 9 Then i52 = 9
    
23. For i5 = 0 To i52
    
24.     he5 = he4 + i5 * arr(1, 5)
    
25.     i62 = (200 - he5) \ arr(1, 6)
    
26.     If i62 > 9 Then i62 = 9
    
27. For i6 = 0 To i62
    
28.     he6 = he5 + i6 * arr(1, 6)
    
29.     i72 = (200 - he6) \ arr(1, 7)
    
30.     If i72 > 9 Then i72 = 9
    
31. For i7 = 0 To i72
    
32.     he7 = he6 + i7 * arr(1, 7)
    
33.     i82 = (200 - he7) \ arr(1, 8)
    
34.     If i82 > 9 Then i82 = 9
    
35. For i8 = 0 To i82
    
36.     he8 = he7 + i8 * arr(1, 8)
    
37.     i92 = (200 - he8) \ arr(1, 9)
    
38.     If i92 > 9 Then i92 = 9
    
39. For i9 = 0 To i92
    
40.     he9 = he8 + i9 * arr(1, 9)
    
41.     i102 = (200 - he9) \ arr(1, 10)
    
42.     If i102 > 9 Then i102 = 9
    
43. For i10 = 0 To i102
    
44.     he10 = he9 + i10 * arr(1, 10)
    
45.     i112 = (200 - he10) \ arr(1, 11)
    
46.     If i112 > 9 Then i112 = 9
    
47. For i11 = 0 To i112
    
48.     he11 = he10 + i11 * arr(1, 11)
    
49.     i122 = (200 - he11) \ arr(1, 12)
    
50.     If i122 > 9 Then i122 = 9
    
51. For i12 = 0 To i122
    
52.     he12 = he11 + i12 * arr(1, 12)
    
53.     i132 = (200 - he12) \ arr(1, 13)
    
54.     If i132 > 9 Then i132 = 9
    
55. For i13 = 0 To i132
    
56.     he = he12 + i13 * arr(1, 13)
    
57.     If he >= 199 And he <= 200 Then
    
58.         ii = ii + 1
    
59.         brr(ii, 1) = i1
    
60.         brr(ii, 2) = i2
    
61.         brr(ii, 3) = i3
    
62.         brr(ii, 4) = i4
    
63.         brr(ii, 5) = i5
    
64.         brr(ii, 6) = i6
    
65.         brr(ii, 7) = i7
    
66.         brr(ii, 8) = i8
    
67.         brr(ii, 9) = i9
    
68.         brr(ii, 10) = i10
    
69.         brr(ii, 11) = i11
    
70.         brr(ii, 12) = i12
    
71.         brr(ii, 13) = i13
    
72.         brr(ii, 14) = he
    
73.         If ii = UBound(brr) Then GoTo 100
    
74.     End If
    
75. Next
    
76. Next
    
77. Next
    
78. Next
    
79. Next
    
80. Next
    
81. Next
    
82. Next
    
83. Next
    
84. Next
    
85. Next
    
86. Next
    
87. Next
    
88. 100:
    
89. Range("b5").Resize(ii, 14) = brr
    
90. End Sub

复制代码

ghost7889

yjh_27 发表于 2019-6-13 11:52
暴力计算100个

嗯，这是一种方法。但是这种方法只是把一部分解出来了。但是也给了我一定的思路

大灰狼1976

0-3全组合无遗漏，0-9实在太多了，代码是一样的。

yjh_27

ghost7889 发表于 2019-6-13 12:02
嗯，这是一种方法。但是这种方法只是把一部分解出来了。但是也给了我一定的思路

修改一下可计算全部。我的古董电脑5.7秒
25691个
把13重循环改递归，代码就简洁多了