Excel VBA教程:SolverSolve函数

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

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

SolverSolve(UserFinish, ShowRef)

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

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

Excel VBA教程:SolverSolve函数·示例

本示例在商业问题中使用规划求解函数,以使总利润达到最大值。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")

上页:Excel VBA教程:SolverSave函数 下页:Excel VBA教程:SQLBind函数

Excel VBA教程:SolverSolve函数

Excel VBA教程:SQLBind函数 Excel VBA教程:SQLClose函数
Excel VBA教程:SQLError函数 Excel VBA教程:SQLExecQuery函数
Excel VBA教程:SQLGetSchema函数 Excel VBA教程:SQLOpen函数
Excel VBA教程:SQLRequest函数 Excel VBA教程:SQLRetrieve函数
Excel VBA教程:SQLRetrieveToFile函数 Excel VBA教程:隐藏的语言元素
Excel VBA教程:向文档中添加控件 Excel VBA教程:向用户窗体中添加控件
Excel VBA教程:应用程序对象事件 Excel VBA教程:图表对象事件
Excel VBA教程:控件和对话框事件 Excel VBA教程:在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应用程序
Excel VBA教程:创建自定义对话框 Excel VBA教程:新建工作簿
Excel VBA教程:创建“用户窗体” Excel VBA教程:显示自定义对话框
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号