|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.08.2013, 11:52 | #1 |
Новичок
Джуниор
Регистрация: 24.01.2010
Сообщений: 1
|
Загрузка поиска решения (solver) через макрос
Добрый день.
При включении макроса выбивает следующее "Загрузить модель. Недопустимая формула ограничений" Обьясненние. У меня в таблице большой перечень артикулов, для каждого из них необходимо подобрать число с помощью функ. поиск решения. Что бы каждый раз не писать условие для поиска решения для каждого отдельного артикула данные сохраненны (пример ниже), что бы просто нажать поиск решения и загрузить условие пример1 MAX($AZ$22) СЧЁТ($AT$13:$AT$22) $AV$22=$AW$22 $AZ$22<=$BA$22 {32767;32767;0.000001;0.01;ЛОЖЬ;ЛОЖ Ь;ИСТИНА;1;1;1;0.0001;ИСТ ИНА} {0;0;1;100;0;ЛОЖЬ;ИСТИНА;0.075;0;0; ЛОЖЬ;30} Но когда хочешь загрузить эти данные через макрос выбивает "Загрузить модель. Недопустимая формула ограничений", макрос ниже : SolverOk SetCell:="$AZ$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$AT$13:$AT$22" _ , Engine:=1, EngineDesc:="GRG Nonlinear" SolverLoad LoadArea:="$AT$13:$AT$22" SolverOk SetCell:="$AZ$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$AT$13:$AT$22" _ , Engine:=1, EngineDesc:="GRG Nonlinear" SolverOk SetCell:="$AZ$22", MaxMinVal:=1, ValueOf:=0, ByChange:="$AT$13:$AT$22" _ , Engine:=1, EngineDesc:="GRG Nonlinear" SolverSolve ActiveWindow.SmallScroll Down:=-21 Почему му то просто не загружает вот это условие $AV$22=$AW$22 $AZ$22<=$BA$22 или в VBA SolverAdd CellRef:="$AV$22", Relation:=2, FormulaText:="$AW$22" SolverAdd CellRef:="$AZ$22", Relation:=1, FormulaText:="$BA$22 |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Автоматизация Поиска Решения | DartPlegas | Microsoft Office Excel | 0 | 17.05.2013 10:59 |
Поиск решения solver | Meri A | Microsoft Office Excel | 3 | 07.03.2013 13:15 |
макрос для поиска позиций и вывода данных на лист поиска | mr-111 | Microsoft Office Excel | 12 | 13.03.2012 15:03 |
Автоматизация Поиска Решения | ildusfm | Microsoft Office Excel | 4 | 27.11.2011 17:09 |
автоматизация поиска решения | Nest1e | Microsoft Office Excel | 2 | 20.11.2009 20:32 |