求教关于excel求解线形规划的问题！

185832444

高手请指教我把以下一段代码输入到某一按钮事件中去~

SolverReset

SolverOK SetCell:=Worksheets("Sheet1").Range("B5"), MaxMinVal:=1, ValueOf:="0", ByChange:=Worksheets("Sheet1").Range("H2:H4")

SolverAdd CellRef:=Worksheets("Sheet1").Range("$I$2"), Relation:=1, FormulaText:=Worksheets("Sheet1").Range("$E$2")
SolverAdd CellRef:=Worksheets("Sheet1").Range("$I$3"), Relation:=1, FormulaText:=Worksheets("Sheet1").Range("$F$2")
SolverAdd CellRef:=Worksheets("Sheet1").Range("$I$4"), Relation:=1, FormulaText:=Worksheets("Sheet1").Range("$G$2")
SolverAdd CellRef:=Worksheets("Sheet1").Range("$H$2H$4"), Relation:=4
SolverAdd CellRef:=Worksheets("Sheet1").Range("$H$2H$4"), Relation:=3, FormulaText:=0

Solvesolver

运行的时候老显示“规划求解：产生意外的内部错误或没有可用的内存”百般检查也没能解决~求教于大家

wingzeroboy

加一句

Application.Run "Solver.xla!Auto_Open"