使用宏调用Excel Solver无响应无报错，求调试建议

已在Active Module中添加了Solver引用，编写了如下VBA宏代码以熟悉Solver宏的使用，但代码运行后无任何反应，也未出现报错信息。需求是通过修改单元格I2，使单元格R2的值达到10%，手动操作Solver可正常实现该目标。代码如下：

Sub SolverMacro()
    
    SolverReset
    SolverOk SetCell:="$R$2", MaxMinVal:=0, ValueOf:=0.1, ByChange:="$I$2", Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
    
End Sub

• 确认Solver加载项启用：即便在VBA中添加了引用，Excel的「规划求解加载项」仍需手动启用。路径：Excel选项→加载项→管理：Excel加载项→转到，勾选「规划求解加载项」。
• 明确工作表上下文：代码中直接使用单元格地址可能因当前活动工作表非目标表导致失效，需指定具体工作表对象：

  Sub SolverMacro()
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的目标工作表名称
      
      SolverReset
      SolverOk SetCell:=ws.Range("$R$2"), MaxMinVal:=0, ValueOf:=0.1, ByChange:=ws.Range("$I$2"), Engine:=1, EngineDesc:="GRG Nonlinear"
      SolverSolve UserFinish:=True
  End Sub
  

• 修正SolverSolve参数传递：原代码中SolverSolve True的写法不够严谨，明确指定参数名UserFinish:=True可避免参数识别问题，该参数用于控制是否显示求解结果对话框。
• 确保自动计算模式：若Excel处于手动计算模式，Solver无法自动更新计算结果。可在代码中临时切换为自动计算，完成后恢复原模式：

  Sub SolverMacro()
      Dim originalCalcMode As XlCalculation
      originalCalcMode = Application.Calculation
      Application.Calculation = xlCalculationAutomatic
      
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("Sheet1")
      
      SolverReset
      SolverOk SetCell:=ws.Range("$R$2"), MaxMinVal:=0, ValueOf:=0.1, ByChange:=ws.Range("$I$2"), Engine:=1, EngineDesc:="GRG Nonlinear"
      SolverSolve UserFinish:=True
      
      Application.Calculation = originalCalcMode
  End Sub
  

• 添加错误捕获排查问题：通过错误处理代码捕获隐性错误，便于定位问题：

  Sub SolverMacro()
      On Error GoTo ErrorHandler
      
      Dim ws As Worksheet
      Set ws = ThisWorkbook.Worksheets("Sheet1")
      
      SolverReset
      SolverOk SetCell:=ws.Range("$R$2"), MaxMinVal:=0, ValueOf:=0.1, ByChange:=ws.Range("$I$2"), Engine:=1, EngineDesc:="GRG Nonlinear"
      SolverSolve UserFinish:=True
      
      Exit Sub
  ErrorHandler:
      MsgBox "Solver运行出错：" & Err.Description, vbCritical
  End Sub
  

内容的提问来源于stack exchange，提问作者Francisco Augusto Varela Aguir