ループ内でソルバーを使用する（VBAまたは他の利用可能なメソッドを使用）

Question

182セルのルートを見つけるためにソルバーを使用しようとしています。各セルは別の変数のみに依存し、出力セルはO2からO183までです。セルはP2からP183までです。 私はVBAを使用しようとした1 に等しい出力セルを持つように、変数のセルを変更しようとしていますが、それは複数回失敗しました：

Sub epsilon() 
Dim i As Integer 
i = 2 
Do 
SolverReset 
SolverOptions precision:=0.0001 
SolverOK SetCell:=Cells(i, 15).Value, _ 
    ValueOf:="1", _ 
    byChange:=Cells(i, 16).Value 
    SolverSolve userFinish:=True 
i = i + 1 
Loop Until i = 184 
End Sub 

エラー「予期しないエラー（35010）」を発生し、私は私はこのソルバーVBA正しいを書くかどうかわからない。誰でも助けることができますか？

Answer 1

多分このvba loopはあなたの問題を解決するのに役立ちます。