Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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
Артемида вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматизация Поиска Решения 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