Минимизация функции двух переменных

[IcyWind]

Собственно, нужно реализовать сабж. Недолго думая, решил использовать надстройку "Поиск решений". После записи макроса получил следующий код:

Код: Выделить всё

Sub Макрос1()
    SolverOk SetCell:="$G$13", MaxMinVal:=3, ValueOf:="96", ByChange:="$B$3,$D$3"
    SolverSolve
End Sub

Только вот засада: при попытке выполнить его VBA ругается на то, что функция не определена. Что мне нужно добавить? И еще: может существует какой-нибудь предельно простой алгоритм минимизации функции двух переменных (так, для общего развития )

[GSerg]

Это удивительно, но 1ый (первый) результат поиска по форуму по слову S o l v e r содержит ответ на этот вопрос.
Проявляем уважение к участникам форума, используем поиск. В противном случае получаем замечания и предупреждения.