2 столбец для того, чтобы автоматически создавались числа, которые позволяли уравнивать числа в 3 столбце

[ppv]

Здравствуйте. Вот всетаки довел до ума, что требовалось!!!!! Теперь вот какой вопрос, может кто подскажет, а то уже устал голову ломать (не селен в excel-e). Надо чтобы в последнем столбце "Результат" во 2 и 3 строке было бы 0 (ноль). Спасибо.

[ppv]

Вот как надо!!! Только я это подгонял ручками, а надо чтобы автоматом!!!Спасибо.

[ppv]

Тишина.......

[DV68]

Лови ответ

[DV68]

Сообщение от ppv

Надо чтобы в последнем столбце "Результат" во 2 и 3 строке было бы 0 (ноль). Спасибо.

0 во всех строках: В3=2 В4=4 В5=4

[ppv]

Я просил чтобы в последнем столбце "Результат" во 2 и 3 строке было бы 0 (ноль)........ А НЕ ВО ВСЕХ НОЛЬ!!!!!! надо что бы программа подбирала такие "Значения" которые после вычислений: (сначало "Прибыли" потом "Результата") выдавало в 1 строке какое то число, во 2 и 3 строке нули!!!! Надо как то сделать так,чтобы после всех вычислений ...если в 2 и 3 строках "Результата" не НОЛЬ, то значит "Значения" подобраны не правильно надо заново пересчитывать!!!! Цикл, чтоли пока нет ноля -значит перерасчитываем!!!!Спасибо.

[Aent]

Кросспост из http://forum.developing.ru/showthread.php?t=18777

Sub CallSolver()
    Dim result

    Application.Run "Solver.xla!SolverReset"
    Application.Run "Solver.xla!SolverAdd", "$E$5", 2, "0"
    Application.Run "Solver.xla!SolverAdd", "$E$4", 2, "0"
    Application.Run "Solver.xla!SolverOk", "$E$4", 3, "0", "$C$3:$C$5"
    result = Application.Run("Solver.xla!SolverSolve", True)
    If result <> 0 Then
        MsgBox "Решение не найдено"
    End If
End Sub

Предполагается, что у вас установлена и включена надстройка "Поиск решения"
Как программно проверить её доступность и как включить её из макрокода можно
прочитать здесь:
http://peltiertech.com/Excel/SolverVBA.html

[ppv]

Спасибо!!!!!!!!!!!!!!! Постараюсь разобраться...................