Excel 请教可否进行批量规划求解

Question

如题所述

Answer 1

Increase = 0
Do While Increase <= 1
　Cells(32, 23) = Increase

　Application.Run "SOLVER.xla!Auto_Open"
　SolverOk SetCell:="$C$32", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$32"
　 SolverSolve

　 Cells(Number0, 27) = Cells(34, 3)
　　Increase = Increase + 0.01

Loop
上面是个例子，主要是说明解决办法是在SolverSolve后增加参数，变成SolverSolve Userfinish:=True。