Подскажите пожалуйста как сделать так?

ppv2 · 05 авг 2009, 13:08

Как мне сделать так что бы в столбце "Результат" во 2 и 3 строках был бы ноль, а весь результат переходил в 1 строчку столбца "Результат". Щас как Вы видите распределяется все поровну. Прошу помочь. Смотрите прикрепленный файл. Спасибо.

Busine2009 · 05 авг 2009, 14:10

Предлагаю решение без ума, чисто техническое.
Столбец F скрыт. Чтобы его отобразить выделите столбцы D и G и щ. пр. кн. мыши - Отобразить.

ppv2 · 05 авг 2009, 14:35

Прошу прощенье я неправильно поставил задачу. Задача: В 1 столбец от руки вводим коэффициенты, во 2 столбце должны быть такие значения (от банка) которые распределили бы прибыль поровну в столбце "Результат"!!!! Это я сделал!!! Мне теперь надо, что бы при вводе коэффициентов прибыль распределялась бы только в одну строчку, в 2-х другх был бы ноль.... спасибо...

Aent · 05 авг 2009, 15:43

ppv2, вам же уже объясняли на соседнем форуме что без внятной постановки задачи с чётким описанием взаимозависимостей между ячейками никто вам не поможет. Вы просто зря тратите своё и наше время.

ppv2 · 05 авг 2009, 16:40

Aent писал(а):ppv2, вам же уже объясняли на соседнем форуме что без внятной постановки задачи с чётким описанием взаимозависимостей между ячейками никто вам не поможет. Вы просто зря тратите своё и наше время.

Как еще объяснить не знаю!!! 1-е: Вводим "Коэффициенты", 2-е: "Значения " подбираются программой таким образом (от банка), что бы "Результат" был бы одинаков равен (во всех трех строчках- смотрите прикрепленный файл выше). "Результат" расчитывается так: из1 строчки прибыли вычитаем 2 и 3 строчки "Значения",из 2 строчки "Прибыли" вычитаем 1 и 3 сторчки "Значения", из 3 строчки "Прибыли" вычитаем 1 и 2 строчки "Значения" и все это идет в "РЕЗУЛЬТАТ- он равный" (три строчки) ВСЕ ЭТО Я СДЕЛАЛ....мне теперь ( при всех тех же вычислениях) сделать так что бы "Результат" собирался только в одной строчке...в двух других же был ноль!!!! Надеюсь что задание понятно.....спасибо...

Aent · 05 авг 2009, 19:42

Решение как на прицепленной картинке вас устроит ?
Оно получается стандартной надстройкой "Поиск решения" для $E$4=0 при варьировании
$С$3:$C$5 с наложенным ограничением $E$4=0 и $E$5=0

ppv2 · 05 авг 2009, 19:48

Да устроит!!!!

Aent · 05 авг 2009, 21:13

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

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

ppv2 · 05 авг 2009, 21:18

Спасибо!!!!!!!!!!!!!!! Постараюсь разобраться...................
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
"Поиск решения"- я включил..... теперь если я правильно понял надо еще установить Microsoft Visual Basic у меня его нет.....я правильно понял?

Aent · 05 авг 2009, 23:19

Если хотите пользоваться макросами VBA, то конечно Visual Basic for Application
должен быть включён при установке (или изменении списка компонентов) MS OFFICE (в разделе Общие средства Office -> Visual Basic для приложений для 2003 русского офиса)
Если макрос вам не нужен, можно просто вызывать поиск решения из меню
Сервис->Поиск решения