Как реализовать "Поиск решения" в EXCEL'e программ

[daemon_mx]

В EXCEL'e есть "Поиск решения" который очень удобен для решения некоторых задач, но потом мне понадобилось реализовать это программно. Я записал макрос

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

Range("C11:C12").Select
    SolverOk SetCell:="$C$18", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$11:$C$12"
    SolverSolve

но при его запуске он не работает. Не может найти процедуру SolveOK. Можете что-нибудь посоветовать??? Может у кого-нибудь есть рабочий макрос???

[uhm]

В окне VBA в пункте меню Tools - References нужно поставить галочку напротив SOLVER. Тогда все заработает.

[daemon_mx]

Теперь все работает, но возник новый вопрос. После этого макроса выходит сообщение о том изменять ячейки новыми значениями после вычесления или нет. Можно ли сделать чтобы он сразу (по умолчанию) это выполнял???

[uhm]

Измени последнюю строчку на SolverSolve True.

А потом читай хелп, ищи по форуму, и т. д.