“解决方案”和“显示试用解决方案”窗口

Question

我正在运行以下Solver宏：

Sub Merton()
'
' Merton Macro

Dim i As Long
For i = 7 To 56
  SolverReset

  SolverOk SetCell:="$K$7", MaxMinVal:=1, ValueOf:=0, ByChange:="$I$7:$J$7", _
Engine:=1, EngineDesc:="GRG Nonlinear"

  SolverAdd CellRef:="$G$" & i, Relation:=2, FormulaText:="$H$" & i
  SolverAdd CellRef:="$K$" & i, Relation:=2, FormulaText:="$B$" & i

  SolverSolve UserFinish:=True

  SolverFinish KeepFinal:=1

Next i

End Sub

我一直在弹出“显示试用解决方案”，因为Solver停顿了。然后，我必须按下“继续”按钮才能让Solver继续工作。有没有办法在宏中插入命令，告诉Solver不要显示“Show试用解决方案”窗口？

Answer 1

听起来您已经选择了Show Iteration Results选项。在运行代码之前手动取消它可能就足够了。或者，在代码的顶部放置行

SolverOptions StepThru:=False

它应该取消这一选择。

如果这不能解决问题，那么solver.com的文档就会说：

“显示试用解决方案”对话框也会出现(仅在每个试用解决方案上出现一次)，如果您按ESC，或者如果求解程序在解决问题时达到了一个求解极限(最大时间、迭代、最大子问题或最大可行解决方案)，则会出现该对话框。

也许你已经超越了极限，需要增加你所遇到的极限。

。