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