还是靠VBA来帮我计算最少用你多少根棍子吧

饮苦食毒

每一根全新的木棍的长度是2000mm，现在需要一些不同长度的短木棍，问：要截成这么多的短木棍，最少需要多少根2000mm长的新木棍？

短木棍长度	需要的数量
800	10
600	4
1500	65
700	6
450	7
200	76

貌似公式不太靠谱，规划求解又不想用（也不知道是啥来着），所以还是请求大师们帮忙整个VBA吧，不行，给个思路也可以啊，急等！！！！

kuangben8

这题有点意思，关注一下。

840205910

VBA也要有算法，它只不过是命令。
就这些数据的话，手工算：1500、450、200的拼65根；800、600拼2根；800、700拼6根；800拼1根。
累计74根

840205910

数据如果复杂时，至少有几条优先：长度 > 1/2总长度的，必须取1根：2000 x 65 =1500x65 +500x65
                                                能够拼整的：2000x 2  =800x2+600x4
                                               零头拼的：2000x7  =800x8+700x6+200x2+500x6
                                                             500x7=450x7
                                                             500x37=200x74

840205910

1500x65+(800x2)x5+(700x2+600x1)x3+(600x1)

840205910

目前来说，人脑能想到的电脑恐怕还做不到

pp9257

规划求解做的事

840205910

pp9257 发表于 2012-9-14 09:20
规划求解做的事

这么复杂的条件，规划求解能不能完成？

小倒霉蛋子

1. 
   
2. Sub Test()
   
3.     Columns("A:B").Sort Key1:=Range("A2"), Order1:=xlDescending
   
4.     arr = Range("A1").CurrentRegion
   
5.     Do
   
6.     myNum = myNum + 1
   
7.     n = UBound(arr) - 1
   
8.     myLength = 2000
   
9.     For i = 2 To UBound(arr)
   
10.         If arr(i, 2) > 0 Then
    
11.             If myLength - arr(i, 1) >= 0 Then
    
12.                 myMod = myLength Mod arr(i, 1)
    
13.                 myNum2 = (myLength - myMod) / arr(i, 1)
    
14.                 For ii = 1 To myNum2
    
15.                     If arr(i, 2) > 0 Then
    
16.                         myLength = myLength - arr(i, 1)
    
17.                         arr(i, 2) = arr(i, 2) - 1
    
18.                     End If
    
19.                 Next ii
    
20.             End If
    
21.         End If
    
22.     If arr(i, 2) = 0 Then n = n - 1
    
23.     Next i
    
24.         Loop Until n = 0
    
25.     MsgBox myNum
    
26. End Sub
    

复制代码

pp9257

小倒霉蛋子 发表于 2012-9-14 10:03

我觉得代码是算法过于简单，很多情况都没考虑到的。。
明显的举例
1250   10
1100   33
800    45
700    65
450   10
手工计算，至少要79根
代码计算77根