Question

我是VBA的新手，试图将Solver应用于多个单元格。但是我收到一个错误：Sub或Function未定义。

以下是代码：

  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编辑器中，如果模块处于活动状态，请单击References菜单上的Tools，然后选择Solver下的Available References。如果Solver未显示在Available References下，请点击Browse，然后在Solver.xlam中打开\Program Files\Microsoft Office\Office14\Library\SOLVER subfolder。

来源：Using the Solver VBA Functions

将求解器应用于多个

1 个答案: