将求解器应用于多个

Question

我是 VBA 的新手，正在尝试将规划求解应用于多个单元格。但是我得到一个错误：Sub or Function not defined.

代码如下：

  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

Answer 1

很可能您还没有添加对 VBA 项目的引用。

要做到这一点：在 Visual Basic 编辑器中，激活一个模块，单击 Tools 菜单上的 References，然后单击 Available References 下的 select Solver。如果Solver没有出现在Available References下，点击Browse，然后在\Program Files\Microsoft Office\Office14\Library\SOLVER subfolder.

中打开Solver.xlam

来源: Using the Solver VBA Functions

将求解器应用于多个

Applying Solver to multiple

excel

vba

solver