Excel VBA教程:SolverFinishDialog函数

指示 Microsoft Excel 当求解过程完成后,如何处理结果及创建何种报告。等同于 SolverFinish函数,但在解决问题后,本函数还要显示“规划求解结果”对话框。

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

SolverFinishDialog(KeepFinal, ReportArray)

KeepFinal  Variant 类型,可选。可为 1 或 2。如果 KeepFinal 为 1 或被省略,则最终结果的值将保存于可变单元格中,取代其原有值。如果 KeepFinal 为 2,就丢弃最终结果的值而恢复单元格原有值。

ReportArray  Variant 类型,可选。求解完成后 Microsoft Excel 将创建的报告的类型: 1 表示创建答案报告, 2 表示创建灵敏度报告,而 3 表示创建极限报告。可用 Array函数指定要显示的报告,例如,ReportArray:= Array(1,3)

Excel VBA教程:SolverFinishDialog函数·示例

本示例加载以前计算过的规划求解模型(该模型保存于工作表 Sheet1 上),再次求解该模型,然后显示带有两个预设选项的“完成”对话框。


Worksheets("Sheet1").Activate
SolverLoad loadArea:=Range("A33:A38")
SolverSolve userFinish:=True
SolverFinishDialog keepFinal:=1, reportArray:=Array(1)

上页:Excel VBA教程:SolverFinish函数 下页:Excel VBA教程:SolverGet函数

Excel VBA教程:SolverFinishDialog函数

Excel VBA教程:SolverGet函数 Excel VBA教程:SolverLoad函数
Excel VBA教程:SolverOk函数 Excel VBA教程:SolverOkDialog函数
Excel VBA教程:SolverOptions函数 Excel VBA教程:SolverReset函数
Excel VBA教程:SolverSave函数 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教程:向用户窗体中添加控件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号