Excel VBA教程:SolverSave函数

保存工作表中的规划求解问题说明。

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

SolverSave(SaveArea)

SaveArea  Variant 类型,必需。指定单元格区域,规划求解模型将保存于此区域中。SaveArea参数所代表的区域可位于任意工作表上,但如果该工作表不是活动的,就必须指明该工作表。例如,SolverSave("Sheet2!A1:A3") 将规划求解模型保存到了工作表“Sheet2”中,即使该工作表不是活动工作表。

Excel VBA教程:SolverSave函数·示例

本示例在商业问题中使用规划求解函数,以使总利润达到最大值。SolverSave函数将当前问题保存到活动工作表上的某一区域。


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教程:SolverReset函数 下页:Excel VBA教程:SolverSolve函数

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教程:向用户窗体中添加控件 Excel VBA教程:应用程序对象事件
Excel VBA教程:图表对象事件 Excel VBA教程:控件和对话框事件
Excel VBA教程:在某一 Microsoft Office 应用程序中控制其他 Microsoft Office 应用程序 Excel VBA教程:创建自定义对话框
Excel VBA教程:新建工作簿 Excel VBA教程:创建“用户窗体”
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号