Vba 将解算器应用于多个

我是VBA新手，尝试将解算器应用于多个单元格。 但我得到一个错误：子函数或函数未定义

代码如下：

  Sub SolverRepeat()
Dim i As Integer
For i = 4 To 8763
    SolverReset
        SolverOk SetCell:="$BQ$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$BI$" & i, Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve True
    Next i
End Sub

---

很可能您尚未将引用添加到VBA项目中

为此： 在Visual Basic编辑器中，当模块处于活动状态时，单击“工具”菜单上的“参照”，然后在“可用参照”下选择“解算器”。如果解算器未显示在“可用引用”下，请单击“浏览”，然后在\Program Files\Microsoft Office\Office14\Library\Solver子文件夹中打开Solver.xlam

---

来源：

您是否与运行sub的excel相同？或者如何运行宏？