Автоматизация Поиска Решения

[ildusfm]

Помогите пожалуйста.
Есть таблица с данными. Необходимо автоматизировать процесс поиска решения для каждой строки. Видимо нужен какой то макрос. Почитал у других, так и не разобрался. Нужно получить целевые ячейки (Баланс F1:F63) равной 0, изменяя ячейки pH(G1:G63). По одиночке можно сделать, но долго. Можете помощь написать код, чтобы при запуске эксель поиск решения сделал на все строки.
Спасибо.

[IgorGO]

могу написать

[ildusfm]

Проверьте плиз что не так в коде?

Sub Solver()

Dim a, b As Double
Dim i As Integer
Dim s(2 To 63), r(2 To 63) As String
For i = 2 To 63
r(i) = "$F$" & i
s(i) = "$M$" & i

SolverOk SetCell:=r(i), MaxMinVal:=3, ValueOf:=0, ByChange:=s(i), Engine:=1 _
, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:=r(i), MaxMinVal:=3, ValueOf:=0, ByChange:=s(i), Engine:=1 _
, EngineDesc:="GRG Nonlinear"
SolverSolve True
Next i
End Sub

[ildusfm]

На сайте microsoft нашел. Оказывается надо было подлючить солвер через tools - references.
Вот рабочий код кому надо.
Sub Solver()

Dim a, b As Double
Dim i As Integer
Dim s(4 To 65), r(4 To 65) As String
For i = 4 To 65
r(i) = "$L$" & i
s(i) = "$M$" & i

SolverOK SetCell:=r(i), MaxMinVal:=3, ValueOf:=0, ByChange:=s(i)

SolverSolve True
Next i
End Sub

[Казанский]

Если значение зависит от одного аргумента и нет дополнительных ограничений, лучше использовать Подбор параметра. Это встроенный инструмент Excel, он работает гораздо быстрее и не требует подключения библиотеки:

Sub Макрос1()
Dim c As Range
Application.MaxChange = 0.0000001 'требуемая точность
For Each c In Range("F2", Range("F1").End(xlDown))
    If Not c.GoalSeek(Goal:=0, ChangingCell:=c(, 2)) Then c.Interior.Color = vbRed
        'пометить красным ячейки, для которых не удалось найти решение
Next
End Sub