如何测算成本最低的最佳配比，1-4个变量，所有变量和为100.

junjie8173

各位前辈，先谢谢你们会关注、帮我，我的表格是这样的。
[tr] [/tr]

厂家	实际价格	影响焦比	实际焦比	配比
					中煤	1.60	30.60	410.60	A
富源	1.64	38.05	418.05	B
鹏飞	1.47	30.36	410.36	C
宏玺	1.55	25.00	405.00	D

限制条件：A+B+C+D=100，且A、B、C、D为0～100之间数。
想得到的结果：（1.6*410.60*A+1.64*418.05*B+1.47*410.36*C+1.55*405.00*D）计算结果最小时的A、B、C、D值。

一剑惊心

C为100是最小，这个从纯数学角度推算就可以了

hhjjpp

excel还有规划求解可以一用！

Yaong_3

两个问题：
1、最小怎么判定？
2、0-100，包括0和100吗？

1. Sub Best()
   
2. Dim A, B, C, D As Integer, ZZ As Double, i%
   
3. If TypeName([F3].Value) = "Error" Then [F3] = 1000
   
4. For i = 1 To 1000
   
5. Do Until A + B + C + D = 100
   
6. Randomize
   
7. A = Int(Rnd(Time()) * 101)
   
8. B = Int(Rnd(Time()) * 101)
   
9. C = Int(Rnd(Time()) * 101)
   
10. D = Int(Rnd(Time()) * 101)
    
11. Loop
    
12. ZZ = ([B3] * [D3] * A + [B4] * [D4] * B + [B5] * [D5] * C + [B6] * [D6] * D) / 100
    
13. On Error Resume Next
    
14. If ZZ < [F3] Then
    
15. [E3] = A: [E4] = B: [E5] = C: [E6] = D
    
16. [F3] = ZZ
    
17. End If
    
18. Next
    
19. End Sub

复制代码

测试一下吧，按我的理解：手动到最小，0-100包括0和100，即最大100，最小0.

junjie8173

一剑惊心 发表于 2016-11-19 21:38
C为100是最小，这个从纯数学角度推算就可以了

哦    好的  谢谢啦

junjie8173

hhjjpp 发表于 2016-11-19 21:57
excel还有规划求解可以一用！

我搜着学学   谢谢您

junjie8173

Yaong_3 发表于 2016-11-19 22:32
两个问题：
1、最小怎么判定？
2、0-100，包括0和100吗？

您好   首先非常感谢您的回答，手动是可以找到不同的答案的。
1、0-100包括0和100；
2、最小的判定方式就是在所有计算出的结果中找最小的那个结果对应的配比。

junjie8173

Yaong_3 发表于 2016-11-19 22:32
两个问题：
1、最小怎么判定？
2、0-100，包括0和100吗？

可以找到最小的那个值     谢谢啦

1全职

结果=604.871
A=0
B=0
C=100
D=0