vba - vba：似乎无法关闭 Solver 的“使无约束变量非负”选项

Question

在 SolverReset 之后

我想关闭 vba Solver 中的 Make Unconstrained Variables Non-Negative 选项。

在求解器中关闭使不受约束的变量为非负的命令是什么？

我试着录制一个宏来找出答案，但我得到的只是，

Sub Macro2()
'
' Macro2 Macro
'

'
    SolverOk SetCell:="$D$26", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$9:$B$12", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$D$26", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$9:$B$12", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Answer 1

你想要做的是添加：

SolverOptions Assumenonneg:=False

可以在MSDN上找到所有求解器选项的完整详细信息。

Answer 2

录制“SOLVER”宏时，打开 SOLVER 窗口中的选项选项卡，然后关闭。单击 SOLVE，然后单击“停止录制”这应该会给出“SLOVER 选项”，如下所示。您需要的选项是 AssumeNonNeg:= False（或 True）

SolverOptions MaxTime:=0, Iterations:=0, Precision:=0.000001, Convergence:= _
        0.0001, StepThru:=False, Scaling:=True, AssumeNonNeg:=False, Derivatives:=1
    SolverOptions PopulationSize:=100, RandomSeed:=0, MutationRate:=0.075, Multistart _
        :=False, RequireBounds:=True, MaxSubproblems:=0, MaxIntegerSols:=0, _
        IntTolerance:=1, SolveWithout:=False, MaxTimeNoImp:=30