Настройка цикла решателя

Question

Как настроить цикл, который разрешает столбце объективных ячеек по сравнению с столбцом переменных ячеек?

Не имеет значения, что это решатель, «GRG Nonlinear», похоже, работает нормально.

Мои объектные ячейки: E7: E207
Где решение сведено к минимуму или = 0, потому что я хочу настоящий корень.

Моих переменные клетки Д7: 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