SolverSave 函數

儲存工作表中的規劃求解問題規格。

注意 預設不會啟用規劃求解增益集。 使用本函數之前，必須先安裝並啟用規劃求解增益集。 如需如何安裝並啟用規劃求解增益集的詳細資訊，請參閱使用規劃求解 VBA 函數。 安裝規劃求解增益集之後，必須建立對規劃求解增益集的參照。 在模組作用中的 Visual Basic 編輯器中，按一下 [工具] 功能表上的 [參照]，然後選取 [可用參照] 下的 [規劃求解]。 如果 [規劃求解] 沒有出現在 [可用的參考] 底下，按一下 [瀏覽]，然後開啟 \Program Files\Microsoft Office\Office14\Library\SOLVER 子資料夾中的 Solver.xlam。

SolverSave ( SaveArea)

SaveArea 必要的 Variant。 如果是單儲存格範圍，規劃求解會從指定的儲存格開始，盡量使用同一資料行中的儲存格來儲存模式。 如果是多儲存格範圍，即使無法儲存完整的模式，規劃求解也只會使用該範圍內的儲存格。 如果這是多儲存格範圍，規劃求解只會使用該範圍內的儲存格，即使無法完全儲存模型， SaveArea 引數所代表的範圍也可以在任何工作表上，但如果該工作表不是現用工作表，則必須指定工作表。 例如， SolverSave("Sheet2!A1:A3") 會將模型儲存在 Sheet2 上，即使 Sheet2 不是使用中工作表也一樣。

範例

此範例將在商務問題中使用 [規劃求解] 函數，以使總利潤達到最大值。 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")

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。