VBA：使用求解器时出现运行时错误 1004

我是 VBA 新手，在宏中使用求解器时遇到一些问题。我将一个宏分配给 Excel 中的命令按钮，它们完美地计算了所有内容，但最后也出现了一个丑陋的错误（“运行时错误 1004，对象 _application 的方法计算失败”）。

Sub serieus1()
'
' serieus1 Macro
'  

'
    SolverReset
    SolverAdd CellRef:="$R$15", Relation:=2, FormulaText:="1"
    SolverAdd CellRef:="$L$18", Relation:=2, FormulaText:="$B$3"
    SolverOk SetCell:="$L$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$L$15:$Q$15", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve

End Sub

我在求解器宏中遇到了同样的错误。

我尝试了几个 Excel 论坛中提到的一些内容。正如评论所暗示的，我确实添加了SolverFinish，也包裹了我所有的SetCells to of Range类型。我还保存了文件并退出了 Excel。

这成功了，当我回来时，弹出错误对我来说消失了。