SolverSolve 函数 - Microsoft Excel Visual Basic 2002 参考

返回介绍

SolverSolve 函数

发布于 2019-08-07 字数 1518 浏览 1291 评论 0

开始执行规划求解的求解过程。相当于单击“规划求解参数”对话框中的“求解”按钮。


使用本函数之前,必须建立对规划求解加载宏的引用。当 Visual Basic 模块处于活动状态时,单击“工具”菜单中的“引用”,然后选中“可使用的引用”列表框中的“Solver.xla”复选框。如果“Solver.xla”未出现在“可使用的引用”列表框中,请单击“浏览”并打开“OfficeLibrary”子文件夹中的“Solver.xla”。


SolverSolve(UserFinish, ShowRef)


UserFinishVariant 类型,可选。如果为 True,则返回结果时不显示“规划求解结果”对话框。如果为 False 或省略本参数,则返回结果的同时还显示“规划求解结果”对话框。


ShowRefVariant 类型,可选。仅当将 SolverOptions 函数的 StepThru 参数设置为 True 时,才使用本参数。可用字符串将某宏的名称传送给 ShowRef 参数。这样每次规划求解得出中间解后都将调用该宏。


示例


本示例在商业问题中使用规划求解函数,以使总利润达到最大值。SolverSolve 函数开始执行规划求解。


Worksheets("Sheet1").Activate
SolverReset
SolverOptions Precision:=0.001
SolverOK SetCell:=Range("TotalProfit"), _
MaxMinVal:=1, _
ByChange:=Range("C4:E6")
SolverAdd CellRef:=Range("F4:F6"), _
Relation:=1, _
FormulaText:=100
SolverAdd CellRef:=Range("C4:E6"), _
Relation:=3, _
FormulaText:=0
SolverAdd CellRef:=Range("C4:E6"), _
Relation:=4
SolverSolve UserFinish:=False
SolverSave SaveArea:=Range("A33")

上一篇:SolverSave 函数

下一篇:SQLBind 函数

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。

支持 Markdown 语法,需要帮助?

目前还没有任何评论,快来抢沙发吧!