有没有比规划求解更好用的办法，凑目标数值

happy灬

大概近70、80个客户需要这样凑数字，真的太多了，有没有什么好一些的办法呀？

zlevelscip

你好，可以使用slover插件来求解组合，
代码
Sub RunSolver()
    SolverReset
'"E14"对应求和的区域，H3对应要凑的目标值单元格,D3:D13对应数量的区域，请自己修改，其他参数不变，使用前先在加载项里启用SOLVER,在VBA引用里勾选Solver
    SolverOk SetCell:="$E$14", MaxMinVal:=3, ValueOf:=Range("H3").Value, ByChange:="$D$3:$D$13"
    SolverAdd CellRef:="$D$3:$D$13", Relation:=1, FormulaText:="1"
    SolverAdd CellRef:="$D$3:$D$13", Relation:=4, FormulaText:="integer"
    SolverSolve UserFinish:=True
    SolverFinish KeepFinal:=1
End Sub

happy灬

zlevelscip 发表于 2024-6-18 13:14
你好，可以使用slover插件来求解组合，
代码
Sub RunSolver()

在加载项里启用SOLVER，我在WPS里加载项没有找到

mjm04

happy灬 发表于 2024-6-18 17:50
在加载项里启用SOLVER，我在WPS里加载项没有找到

Excel才能用的，WPS个人版本用不了