Excel VBA教程:SolverChange函数

更改现有的约束条件。相当于单击“工具”菜单中的“规划求解”命令,然后在“规划求解参数”对话框中单击“更改”按钮。

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

SolverChange(CellRef, Relation, FormulaText)

CellRef  Variant 类型,必需。对单元格或单元格区域的引用,该引用构成约束条件的左边部分。

Relation  Integer 类型,必需。约束条件左边和右边之间的算术关系。如果选择 4 或 5,那么 CellRef 必须引用可调整(可变)单元格,且不能指定 FormulaText参数。

Relation 算术关系
1 <=
2 =
3 >=
4 CellRef 所引用单元格的值必须为整数。
5 CellRef 所引用单元格的值必须为 0(零)或 1。

FormulaText   Variant 类型,可选。约束条件的右边部分。

说明

如果 CellRef 和 Relation 与现有的约束条件不匹配,就必须使用SolverDelete函数和SolverAdd函数更改该约束条件。

Excel VBA教程:SolverChange函数·示例

本示例加载以前计算过的规划求解模型(该模型保存于工作表 Sheet1 上),更改其中的一个约束条件,然后再次求解该模型。


Worksheets("Sheet1").Activate
SolverLoad loadArea:=Range("A33:A38")
SolverChange cellRef:=Range("F4:F6"), _
    relation:=1, _
    formulaText:=200
SolverSolve userFinish:=False

上页:Excel VBA教程:SolverAdd函数 下页:Excel VBA教程:SolverDelete函数

Excel VBA教程:SolverChange函数

Excel VBA教程:SolverDelete函数 Excel VBA教程:SolverFinish函数
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函数
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号