Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Запуск "Поиск решения" в ходе макроса
 
#1
16.03.2010 12:25:06
Коллеги, добрый день  
 
Хочу как часть макроса сделать запуск "Поиск решения" (обычная надстройка Excel). Записал через рекодер, но воспроизводиться макрос почему-то не хочет. Пишет "Sub or Function not defined".  
Может надо References какие-нибудь поставить?
 
 
 
#2
16.03.2010 12:36:21
Странно что макрорекодер вообще что-то пишет. Я полагаю, что все функции прописаны для обработки данных из формы, которая предлагается при активации надстройки пользователем и внешнего интерфейса вряд-ли имеет.    
А не проще написать собственную процедуру поиска решения?
 
 
 
#3
16.03.2010 12:39:28
Для меня не проще :))  
Даже если условия поставить заранее, а записать только запуск формы и ОК (там же условия все сохраняются), то всё равно не работает - спотыкается на первой строчке.
 
 
 
#4
16.03.2010 12:44:54
Нашел тему http://www.planetaexcel.ru/forum.php?thread_id=7527  
Всё-таки у кого-то работает поиск как часть макроса...
 
 
 
#5
16.03.2010 13:15:30
Сам спросил, сам ответил... Действительно, поставил галку в Tools-References напротив SOLVER и всё заработало.
 
 
 
#6
16.03.2010 13:53:07
А зачем мне Пакета анализа VBA?  
 
и другой вопрос возник: оставляю в коде только строчку    
SolverSolve (поиск решения по ранее заданным параметрам)  
по результатам он выдает окошко "Найдено решение" ну или "не найдено"...    
как это окошко автоматически убрать?  
вариант 1: отключить, чтобы не появлялось (хотя это не стандартное Excel Alert, так что не знаю, можно ли)  
вариант 2: сгенерировать нажатие кнопки Enter (подскажите, какую команду написать)
 
 
 
#7
09.09.2010 19:18:38
{quote}{login=Haken}{date=16.03.2010 01:15}{thema=}{post}Сам спросил, сам ответил... Действительно, поставил галку в Tools-References напротив SOLVER и всё заработало.{/post}{/quote}  
Уважаемый Haken, как вы справились с проблемой дублирования строк ограничений при многократном запуске макроса?
 
 
 
#8
09.09.2010 22:23:54
Что Вы имеете ввиду? Если у Вас при каждом запуске макроса формируются ограничения (макросом) (и дублируются, соответственно), то там же можно прописать, чтобы предыдущие ограничения удалялись  
команда - SolverDelete CellRef:="...", Relation:=..., FormulaText:="..."  
 
А лучше наверно написать так, чтобы не надо было ограничения переписывать.
 
 
 
#9
10.09.2010 17:29:39
Спасибо за совет. Теперь все работает.
 
 
 
#10
20.12.2010 17:28:31
макрорекодером записан поиск решения. получилось вот так:  
Range("BR10").Select  
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverAdd CellRef:="$AF$10:$AS$10", Relation:=3, FormulaText:="0"  
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverAdd CellRef:="$BI$10:$BT$10", Relation:=2, FormulaText:="0"  
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverSolve True  
 
Range("BR10").Select  
     
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverAdd CellRef:="$AF$10:$AS$10", Relation:=3, FormulaText:="0"  
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverAdd CellRef:="$BI$10:$BT$10", Relation:=2, FormulaText:="0"  
   SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
   SolverSolve    
проблема в том, что после SolverSolve True выдается окошко (см. принскрин)  
Если нажать Продолжить, то всё посчитается, но аналогичных сценариев ещё штук 50 будет, согласиетсь, как-то неинтересно 50 раз кнопку нажимать.  
По вышеприведенным советам написала SolverSolve True в конце, но результат тот же.
 
 
 
#11
20.12.2010 17:29:44
сорри, лог два раза вставился. таки окончательно он выглядит вот так:  
 
Range("BR10").Select  
SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
SolverAdd CellRef:="$AF$10:$AS$10", Relation:=3, FormulaText:="0"  
SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
SolverAdd CellRef:="$BI$10:$BT$10", Relation:=2, FormulaText:="0"  
SolverOk SetCell:="$BR$10", MaxMinVal:=3, ValueOf:="0", ByChange:="$AF$10:$AS$10"  
SolverSolve
 
 
 
#12
21.12.2010 10:53:24
сам шучу, сам смеюсь)))  
надо ставить     SolverSolve UserFinish:=True
 
 
 
Страницы: 1
Читают тему
Наверх