在循環中使用求解器（使用VBA或其他可用的方法）

Question

我想使用求解器來找到182個單元格的根，每個單元格只依賴於另一個變量，輸出單元格是從O2到O183，變量細胞從P2到P183。 我試圖改變變量細胞具有輸出單元等於1 我試圖使用VBA但是失敗多次：

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可以幫助解決您的問題。