Vba Solverad不起作用_Vba_Solver

Vba Solverad不起作用

vba

Vba Solverad不起作用,vba,solver,Vba,Solver,VBA代码中的solverAdd语句不起作用。事情是这样的： SolverReset SolverOkDialog SetCell:=Range("$C$98"), MaxMinVal:=1, ByChange:=Range("$L$2:$L$85"), Engine:=1, EngineDesc:="GRG Nonlinear" SolverAdd CellRef:=Range("$L$2", "$L$" & cut_point), Relation:=3, FormulaText:

VBA代码中的solverAdd语句不起作用。事情是这样的：

SolverReset
SolverOkDialog SetCell:=Range("$C$98"), MaxMinVal:=1, ByChange:=Range("$L$2:$L$85"), Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:=Range("$L$2", "$L$" & cut_point), Relation:=3, FormulaText:="$D$96"
SolverAdd CellRef:=Range("$L$2:$L$85"), Relation:=5
SolverAdd CellRef:=Range("$D$95"), Relation:=1, FormulaText:="$C$95"
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
SolverReset

但在实施时，excel中的解算器窗口总是弹出，并要求我输入约束

衷心感谢您的帮助

SolverReset

只执行以下操作：重置所有内容。
因此，从代码中删除第二个

SolverReset

。
嗯