Поиск решения (срочно надо !) - Microsoft Office Excel

Gash · 02.06.2009, 20:19

Народ помогите с поиском решения, вообщем проблема в том что не могу установить ограничение типа "целое" вот код:

......
SolverAdd CellRef:="$i$16:$i$18", Relation:=4 '<-- не работает (
SolverAdd CellRef:="$c$22:$f$22", Relation:=2, FormulaText:="$c$21:$f$21"
SolverAdd CellRef:="$i$16:$i$18", Relation:=3, FormulaText:="0"
........

Все ограничения кроме первого работают, пробывал еще так:
SolverAdd CellRef:="$i$16:$i$18", Relation:=4, FormulaText:="целое"
и так не пашет
Поиск конечно работает , но это ограничение не добавляется, и результат чуть-чуть не тот ! Кто знает в чем проблема ??

Gash · 03.06.2009, 13:24

Вообщем проблему решил, разобрался. Суть была в том что надо писать так:
SolverReset
SolverOk SetCell:="$I$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$I$16:$I$18" '<-- надо перед началом добавления ограничений и после писать эту строчку. У меня же было просто в конце.
SolverAdd CellRef:="$C$22:$F$22", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$C$22:$F$22", Relation:=1, FormulaText:="$C$21:$F$21"
SolverAdd CellRef:="$I$16:$I$18", Relation:=4, FormulaText:="целое""" '<--работает
SolverOk SetCell:="$I$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$I$16:$I$18"
SolverSolve

02.06.2009, 20:19	#1
Gash Регистрация: 18.12.2008 Сообщений: 4	Поиск решения (срочно надо !) Народ помогите с поиском решения, вообщем проблема в том что не могу установить ограничение типа "целое" вот код: ...... SolverAdd CellRef:="$i$16:$i$18", Relation:=4 '<-- не работает ( SolverAdd CellRef:="$c$22:$f$22", Relation:=2, FormulaText:="$c$21:$f$21" SolverAdd CellRef:="$i$16:$i$18", Relation:=3, FormulaText:="0" ........ Все ограничения кроме первого работают, пробывал еще так: SolverAdd CellRef:="$i$16:$i$18", Relation:=4, FormulaText:="целое" и так не пашет Поиск конечно работает , но это ограничение не добавляется, и результат чуть-чуть не тот ! Кто знает в чем проблема ??

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите решить 2 задачки срочно надо а то меня повешают на практике мне надо к 2 июня!!!	серега222	Паскаль, Turbo Pascal, PascalABC.NET	0	27.05.2009 17:46
Поиск решения	Giulietta	Microsoft Office Excel	15	05.05.2009 13:58
Поиск решения	Slavik	Microsoft Office Excel	0	02.05.2009 14:50
Поиск решения	tipok	Microsoft Office Excel	6	16.02.2009 10:46
плз помогите легко просто надо несколько вариантов решения	sp.caster	Помощь студентам	8	29.01.2009 18:40

03.06.2009, 13:24	#2
Gash Регистрация: 18.12.2008 Сообщений: 4	Вообщем проблему решил, разобрался. Суть была в том что надо писать так: SolverReset SolverOk SetCell:="$I$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$I$16:$I$18" '<-- надо перед началом добавления ограничений и после писать эту строчку. У меня же было просто в конце. SolverAdd CellRef:="$C$22:$F$22", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$C$22:$F$22", Relation:=1, FormulaText:="$C$21:$F$21" SolverAdd CellRef:="$I$16:$I$18", Relation:=4, FormulaText:="целое""" '<--работает SolverOk SetCell:="$I$21", MaxMinVal:=1, ValueOf:="0", ByChange:="$I$16:$I$18" SolverSolve