Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запись макроса для поиска решения
 
#1
24.07.2013 06:58:20
Все доброе утро!!
У меня возникла проблема с записью макроса для поиска решения. Макрорекордером записал макрос для одной ячейки. При запуске макроса все работает.
Код
Sub макрос()
 SolverOk SetCell:="$L$10", MaxMinVal:=2, ValueOf:=0, ByChange:="$J$10", Engine _
 :=1, EngineDesc:="GRG Nonlinear"
 SolverOk SetCell:="$L$10", MaxMinVal:=2, ValueOf:=0, ByChange:="$J$10", Engine _
 :=1, EngineDesc:="GRG Nonlinear"
 SolverSolve True
 
End Sub
Теперь нужно проделать тоже самое только для других строк, а то есть чтоб менялись столбцы L10:L29 и J10:J29. Посмотрел здесь на форуме как это сделать, но немного не понял.
Понял что надо прописать в начале макроса:
For i = 10 To 29
Next
и потом что то вроде такого Range(Cells(i,L),Cells(i,J))

Подскажите как сделать пожалуйста. А то данный макрос неохото 20 писать для каждой ячейки.
 
 
 
#2
24.07.2013 07:11:06
видимо так
Код
Sub макрос() 
for i = 10 to 29
SolverOk SetCell:="$L$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$J$" & i, Engine _ 
:=1, EngineDesc:="GRG Nonlinear" 
SolverOk SetCell:="$L$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$J$" & i, Engine _ 
:=1, EngineDesc:="GRG Nonlinear" 
SolverSolve True 
next i
End Sub
Учимся сами и помогаем другим...
 
 
 
#3
24.07.2013 07:36:44
Вроде работает макрос, прощитывает все строки. Но изменяет значение только в первой строке, а во всех остальных почему то не изменяет. И еще почему то после этого запуска включается параметр вычислений вручную. Файл прилагаю. Посмотрите, что я не так делаю.
 
 
 
#4
24.07.2013 09:15:45
Код
Sub макрос()
Dim i&
For i = 10 To 29
SolverOk SetCell:="$L$" & i, MaxMinVal:=2, ValueOf:=0, ByChange:="$J$" & i, Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$J$" & i, Relation:=4, FormulaText:="целое"
SolverSolve True
Solverdelete CellRef:="$J$" & i, Relation:=4
Next i
End Sub
Учимся сами и помогаем другим...
 
 
 
#5
24.07.2013 10:52:36
Спасибо большое вам!!! Очень помогли. Все работает!  :)
 
 
 
#6
28.02.2014 13:28:16
Добрый день! подскажите, пожалуйста,
как в настройках макроса включить SolverOK?

нажимаю Tools-> References -> и там  списке нет SolverOk
как сделать так ,чтобы он там был?)  
 
 
 
#7
28.02.2014 13:33:42
В References библиотека называется SOLVER.
Если Вы недавно использовали поиск решения, она должна быть в списке где-то наверху.
Изменено: Казанский - 28.02.2014 13:35:10
 
 
 
#8
28.02.2014 13:34:47
он включается не в VBE.
Вкладка "Разработчик" - "Надстройки"
Учимся сами и помогаем другим...
 
 
 
Страницы: 1
Читают тему
Наверх