[求助]为什么录制的规划求解的代码不能执行？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

<p>我想用此方法求解有效前沿。</p><p>我用规划求解得出了在权重和为1和收益率为某确定值时的最小方差，但是录制的宏竟然是错误的。</p><p>Sub Macro2()<br/>    SolverOk SetCell,:="$B$78", MaxMinVal:=2, ValueOf:="0", yChange:="$A$73:$C$73"<br/>    SolverAdd CellRef,:="$C$71", Relation:=2, ormulaText:="1"<br/>    SolverAdd CellRef,:="$A$76", Relation:=2, ormulaText:="$B$76"<br/>    SolverOk SetCell,:="$B$78", MaxMinVal:=2, ValueOf:="0", yChange:="$A$73:$C$73"<br/>    SolverSolve<br/>End Sub<br/></p><p>我修改后，还是不能执行。</p><p>Sub Macro()</p><p>    SolverOk SetCell:="$B$78", MaxMinVal:=2, ValueOf:="0", yChange:="$A$73:$C$73"</p><p>    SolverAdd CellRef:="$C$71", Relation:=2, ormulaText:="1"</p><p>    SolverAdd CellRef:="$A$76", Relation:=2, ormulaText:="$B$76"</p><p>    SolverOk SetCell:="$B$78", MaxMinVal:=2, ValueOf:="0", yChange:="$A$73:$C$73"</p><p>    SolverSolve</p><p>End Sub</p><p>提示我函数不能识别，是不是插件不能识别？</p><p>我在前面加入</p><p>SolverReset，还是有问题。</p><p> </p><p>这是一个课件中录制的</p><p>Sub TrialMacro()</p><p>    SolverReset</p><p>    SolverOk SetCell:="$I$16", MaxMinVal:=2, ValueOf:="0", ByChange:="$I$11:$I$12"</p><p>    SolverAdd CellRef:="$I$15", Relation:=2, FormulaText:="target1"</p><p>    SolverOk SetCell:="$I$16", MaxMinVal:=2, ValueOf:="0", ByChange:="$I$11:$I$12"</p><p>    SolverSolve</p><p>End Sub</p><p>照样提示我 SolverReset无法识别</p><p> </p><p> </p> 217824.rar (15.16 KB) 本附件包括：

• 投资组合.xls

2008-6-7 11:12:00 上传

[求助]为什么录制的规划求解的代码不能执行？

<br/>

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：规划求解 relation Formula Solver change 收益率