<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> <br/>