计划高手

丢丢表格

四人合作 ，产出最多套数！

624134745

这是公务员的题目吧

624134745

蛮算了1个答案是126的，但是没有写成公式

我走我流

=MAX(--RIGHT(SMALL(MID(MMULT(LARGE(ROW(1:4)/1%%%+B3:B6*(COLUMN(A:H)-1)*10^3+C3:C6*(8-COLUMN(A:H)),({1,2,3,4}-1)*8+MID(BASE(ROW(820:6560),9),COLUMN(A:D),1)),{1;1;1;1}),{3,6},3)+ROW(1:5741)/1%%%,ROW(1:5741)*2-1),3))

结果是127

我走我流

计算量太大，机器卡的不出结果，，还好最后结果出来了，用LOOKUP求出了最佳方案 ，刚好是127
40        20
45        24
0        84
42        0

江苏永能朱兴华

没思路，帮丢丢老师顶顶，坐等结果。

zhangmi

公式完全不会，用vba做了一个，最大值是126套
Sub test()
Dim arr1, arr(100), i
arr1 = Range("b3:c6")
For a = 0 To 7
a1 = arr1(1, 1) * a: a2 = arr1(1, 2) * (7 - a)
    For b = 0 To 7
    b1 = arr1(2, 1) * b: b2 = arr1(2, 2) * (7 - b)
        For c = 0 To 7
        c1 = arr1(3, 1) * c: c2 = arr1(3, 2) * (7 - c)
            For d = 0 To 7
            d1 = arr1(4, 1) * d: d2 = arr1(4, 2) * (7 - d)
            If a1 + b1 + c1 + d1 = a2 + b2 + c2 + d2 Then
                i = i + 1
                arr(i) = a1 + b1 + c1 + d1
               
            End If
            Next
         Next
     Next
Next
MsgBox (Application.Max(arr))
End Sub

jivy1212

无字天书级的存在，举例0-7配7-0做的量再穷举相加？得到衣服+裤子的N多组数，再取这组数的衣服或裤子的较小数，再这组较小数里取最大值？？

zhangmi

jivy1212 发表于 2020-8-21 09:40
无字天书级的存在，举例0-7配7-0做的量再穷举相加？得到衣服+裤子的N多组数，再取这组数的衣服或裤子的较小 ...

是的，公式一头雾水，vba表达还是明确的，计算出来是127
Sub test()
Dim arr1, arr(5000), i
arr1 = Range("b3:c6")
For a = 0 To 7
a1 = arr1(1, 1) * a: a2 = arr1(1, 2) * (7 - a)
    For b = 0 To 7
    b1 = arr1(2, 1) * b: b2 = arr1(2, 2) * (7 - b)
        For c = 0 To 7
        c1 = arr1(3, 1) * c: c2 = arr1(3, 2) * (7 - c)
            For d = 0 To 7
            d1 = arr1(4, 1) * d: d2 = arr1(4, 2) * (7 - d)
                yf = a1 + b1 + c1 + d1: kz = a2 + b2 + c2 + d2
                i = i + 1
                arr(i) = Application.Min(yf, kz)         
            Next
         Next
     Next
Next
MsgBox (Application.Max(arr))
End Sub

黑道皇帝

规划求解，127.94套D:\Users\Administrator\Documents\企业微信截图_15979759232952.png