Я пытаюсь использовать решатель, чтобы найти корень для 182 ячеек, каждая ячейка зависит только от одной другой переменной, выходная ячейка от O2 до O183, переменная ячейка от P2 до P183. Я пытаюсь изменить ячейки переменной, чтобы иметь выходную ячейку, равную 1. Код работает, но результаты не сходятся. Поскольку я просто хочу фиксированное значение 1, я не установил значение MaxMin. Код:

Sub Solver()
    Dim setcellrange As Range, bychangerange As Range
    Dim i As Long
    For i = 3 To 5
        Set setcellrange = Sheets("AshfordPierce").Cells(i, 15)
        Set bychangerange = Sheets("AshfordPierce").Cells(i, 16)
        SolverReset
        SolverOk SetCell:=setcellrange.Address, ValueOf:=1, ByChange:=bychangerange.Address, Engine:=1, EngineDesc:="GRG NONLINEAR"

        SolverSolve

Next i
End Sub

Когда я использую решающую функцию из VBA, она работает, но результаты VBA не сходятся. Любая помощь приветствуется.