SolverOkDialog 函数 - Microsoft Excel Visual Basic 2002 参考

返回介绍

SolverOkDialog 函数

发布于 2019-08-07 字数 1995 浏览 849 评论 0

等同于 SolverOK 函数,但本函数还要显示“规划求解”对话框。

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

SolverOkDialog(SetCell, MaxMinVal, ValueOf, ByChange)

SetCell Variant 类型,可选。引用活动工作表上的单个单元格。相当于“规划求解参数”对话框中的“设置目标单元格”编辑框。

MaxMinValVariant 类型,可选。相当于“规划求解参数”对话框中的“最大值”、“最小值”和“值为”选项。
















MaxMinVal
指定
1 最大。
2 最小。
3 匹配特定值。


ValueOf Variant 类型,可选。如果 MaxMinVal 为 3,必须指定目标单元格应匹配的值。

ByChange Variant 类型,可选。指定单元格或单元格区域,该单元格或区域内的值将改变,从而在目标单元格中获得期望的结果。该参数对应于“规划求解参数”对话框中的“可变单元格”编辑框。

示例

本示例加载先前计算过的规划求解模型(该模型存储于 Sheet1 中),并重新设置所有规划求解选项,然后显示“规划求解参数”对话框。此后就可以手动进行规划求解。

Worksheets("Sheet1").Activate
SolverLoad LoadArea:=Range("A33:A38")
SolverReset
SolverOKDialog SetCell:=Range("TotalProfit")
SolverSolve UserFinish:=False

上一篇:SolverOk 函数

下一篇:SolverOptions 函数

发布评论

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

支持 Markdown 语法,需要帮助?

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