Создание «решающего» цикла в Excel для запуска задачи минимизации

Question

В настоящее время я работаю над магистерской диссертацией, и мне нужно запустить функцию решателя в Excel для примерно 300 точек данных.

В приложении, пожалуйста, найдите код, который мне нужен для запуска решателя только для строки 35 в моем листе Excel.Моя целевая функция указывается в ячейке «O» путем изменения значений в ячейках G и H. Поскольку мне приходится выполнять один и тот же анализ несколько раз, я не хочу решать каждую строку по отдельности, поскольку это заняло бы мои дни.

Может кто-нибудь подсказать, как мне реализовать цикл, в котором VBA решает все целевые ячейки, начиная со строки 4 до строки 283.

Sub FinalMinimizing()  
    'FinalMinimizing Macro
    SolverOk SetCell:="$O$35", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$35:$H$35", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$O$35", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$35:$H$35", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
End Sub

Answer 1

Если я правильно понял, вы хотите изменить номер строки следующим образом?

Sub FinalMinimizing()

Dim r As Long

For r = 4 To 283
    SolverOk SetCell:="$O$" & r, MaxMinVal:=2, ValueOf:=0, ByChange:="$G$" & r & ":$H$" & r, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$O$" & r, MaxMinVal:=2, ValueOf:=0, ByChange:="$G$" & r & ":$H$" & r, _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
Next r

End Sub