设置求解器循环

Question

如何设置一个循环来解决一列目标单元格与一列可变单元格的问题？

不管是哪种类型的求解器，"GRG非线性“似乎工作得很好。

我的目标单元格是E7:E207

其中解是最小化的，或者=0，因为我想要一个实数根。

我的可变单元格是D7:D207

它正在求解的变量是一个三次方程，其中它输出实根(没有虚部)。我看了论坛周围，但我真的看不出有什么意义。

到目前为止，我的基本宏是：

Sub Solver()
'
' Solver Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
    Range("E8").Select
    SolverOk SetCell:="$E$7", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$7", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$E$7", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$7", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Answer 1

这个问题已经被回答过很多次了。

下面的方法可以解决你的问题。

Sub mySolve()
Dim SetAddr As String, ChgAddr As String
Dim i As Long

For i = 7 To 207
    SetAddr = Sheets("Sheet1").Cells(i, 5).Address
    ChgAddr = Sheets("Sheet1").Cells(i, 4).Address
    SolverOk SetCell:=SetAddr, MaxMinVal:=3, ValueOf:=0, ByChange:=ChgAddr, Engine:=1
    SolverSolve UserFinish:=True
Next i

End Sub