Страница 1 из 2
Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 13:08
ppv2
Как мне сделать так что бы в столбце "Результат" во 2 и 3 строках был бы ноль, а весь результат переходил в 1 строчку столбца "Результат". Щас как Вы видите распределяется все поровну. Прошу помочь. Смотрите прикрепленный файл. Спасибо.
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 14:10
Busine2009
Предлагаю решение без ума, чисто техническое.
Столбец F скрыт. Чтобы его отобразить выделите столбцы D и G и щ. пр. кн. мыши - Отобразить.
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 14:35
ppv2
Прошу прощенье я неправильно поставил задачу. Задача: В 1 столбец от руки вводим коэффициенты, во 2 столбце должны быть такие значения (от банка) которые распределили бы прибыль поровну в столбце "Результат"!!!! Это я сделал!!! Мне теперь надо, что бы при вводе коэффициентов прибыль распределялась бы только в одну строчку, в 2-х другх был бы ноль.... спасибо...
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 15:43
Aent
ppv2, вам же уже объясняли на соседнем форуме что без внятной постановки задачи с чётким описанием взаимозависимостей между ячейками никто вам не поможет. Вы просто зря тратите своё и наше время.
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 16:40
ppv2
Aent писал(а):ppv2, вам же уже объясняли на соседнем форуме что без внятной постановки задачи с чётким описанием взаимозависимостей между ячейками никто вам не поможет. Вы просто зря тратите своё и наше время.
Как еще объяснить не знаю!!! 1-е: Вводим "Коэффициенты", 2-е: "Значения " подбираются программой таким образом (от банка), что бы "Результат" был бы одинаков равен (во всех трех строчках- смотрите прикрепленный файл выше). "Результат" расчитывается так: из1 строчки прибыли вычитаем 2 и 3 строчки "Значения",из 2 строчки "Прибыли" вычитаем 1 и 3 сторчки "Значения", из 3 строчки "Прибыли" вычитаем 1 и 2 строчки "Значения" и все это идет в "РЕЗУЛЬТАТ- он равный" (три строчки) ВСЕ ЭТО Я СДЕЛАЛ....мне теперь ( при всех тех же вычислениях) сделать так что бы "Результат" собирался только в одной строчке...в двух других же был ноль!!!! Надеюсь что задание понятно.....спасибо...
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 19:42
Aent
Решение как на прицепленной картинке вас устроит ?
Оно получается стандартной надстройкой "Поиск решения" для $E$4=0 при варьировании
$С$3:$C$5 с наложенным ограничением $E$4=0 и $E$5=0
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 19:48
ppv2
Да устроит!!!!
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 21:13
Aent
Код: Выделить всё
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
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 21:18
ppv2
Спасибо!!!!!!!!!!!!!!! Постараюсь разобраться...................
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
"Поиск решения"- я включил..... теперь если я правильно понял надо еще установить Microsoft Visual Basic у меня его нет.....я правильно понял?
Re: Подскажите пожалуйста как сделать так?
Добавлено: 05 авг 2009, 23:19
Aent
Если хотите пользоваться макросами VBA, то конечно Visual Basic for Application
должен быть включён при установке (или изменении списка компонентов) MS OFFICE (в разделе Общие средства Office -> Visual Basic для приложений для 2003 русского офиса)
Если макрос вам не нужен, можно просто вызывать поиск решения из меню
Сервис->Поиск решения