小白求助！~，用VBA来求最优最优比例。

grf1973

求出每种类型的B列除以C列（单位能量的价格），从低到高排序，从上往下取能量（不超过指定值即可）

grf1973

另外，单价是立/元，还是元/立？总之除后得到元/大卡即可。

kevinchengcw

穷举的，输出在立即窗口，小数位数可以自己改变，一般2-4位够了，多了意义不大，而且计算时间过长

1. Dim Arr, fN&, DT#, cMin#, Result$
   
2. 
   
3. Sub test()
   
4. Dim N&
   
5. With ThisWorkbook.Worksheets("计算")
   
6.   Arr = .[a1].CurrentRegion.Value
   
7.   DT = 2200  '目标数值
   
8.   fN = 4  '小数位数
   
9.   cMin = 0: Result = ""
   
10.   Try LBound(Arr) + 1, 0, 0, 0, ""
    
11.   If Result <> "" Then
    
12.     Debug.Print cMin
    
13.     Arr = Split(Mid(Result, 2), "|")
    
14.     For N = LBound(Arr) To UBound(Arr)
    
15.       Arr(N) = CStr(Format(Arr(N), IIf(fN > 2, "0." & String(fN - 2, "0") & "%", "0%")))
    
16.     Next N
    
17.     Debug.Print Join(Arr, vbCrLf)
    
18.   End If
    
19. End With
    
20. End Sub
    
21. 
    
22. Function Try(ByVal curIndex&, ByVal iSum#, ByVal dSum#, ByVal bSum#, ByVal Str$)
    
23. Dim N&, I&, D#, T#
    
24. If curIndex = UBound(Arr) Then
    
25.   D = 1 - iSum
    
26.   dSum = dSum + Arr(curIndex, 3) * D
    
27.   If dSum = DT Then
    
28.     bSum = bSum + Arr(curIndex, 2) * D
    
29.     If cMin = 0 Or cMin > bSum Then
    
30.       cMin = bSum: Result = Str & "|" & D
    
31.     End If
    
32.   End If
    
33. Else
    
34.   For N = 1 To 10 ^ fN Step 1
    
35.     T = dSum + Arr(curIndex, 3) * N / (10 ^ fN)
    
36.     If iSum + N / (10 ^ fN) <= 1 And T <= DT Then
    
37.       Try curIndex + 1, iSum + N / (10 ^ fN), T, bSum + Arr(curIndex, 2) * N / (10 ^ fN), Str & "|" & N / (10 ^ fN)
    
38.     Else
    
39.       Exit For
    
40.     End If
    
41.   Next N
    
42. End If
    
43. End Function

复制代码

代码没经过什么优化，效率一般

ztsss161511

grf1973 发表于 2023-1-17 09:02
另外，单价是立/元，还是元/立？总之除后得到元/大卡即可。

感谢大佬提醒，这个是手误，价格应该是：元/立。

morpheus126

我在想。。。画图能不能解决。。。不过三个变量，一时间没想出来怎么画

grf1973

附推导过程。变量不多，穷举即可。

grf1973

没考虑 Na=Nb等情形，一般也不会碰到。如果需要，可以加判断规避。