在循环中使用求解器（使用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有助于解决您的问题。