ソルバループの設定

Question

目的細胞の列と可変細胞の列を解決するループを設定するにはどうすればよいですか？

ソルバーの種類は関係ありません。「GRG Nonlinear」は問題なく動作しているようです。

私の目的は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