SolverAdd 函數

新增針對目前問題的限制式。 相當於按一下[資料 | 分析] 群組中的 [規劃求解]，然後按一下 [規劃求解參數] 對話方塊中的 [新增]。

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

SolverAdd ( CellRef、 Relation、 FormulaText)

CellRef Required Variant. 對儲存格或儲存格範圍的參照，而此參照構成限制式的左邊部分。 Relation Required Integer. 限制式左右兩邊的算術關聯。 如果您選擇 4、5 或 6， CellRef 必須參照決策變數儲存格，且不應指定 FormulaText 。

關聯性	算術關聯
1	<=
2	=
3	>=
4	CellRef所參考的儲存格必須具有整數的最終值。
5	CellRef參考的儲存格必須具有 0 (零) 或 1 的最終值。
6	CellRef所參考的儲存格必須具有所有不同和整數的最終值。

FormulaText Optional Variant. 限制式的右邊部分。

註解

新增條件約束之後，您可以使用SolverChange 和 SolverDelete函式來操作它們。

範例

此範例將在商務問題中使用 [規劃求解] 函數，以使總利潤達到最大值。 使用 SolverAdd 函數可針對目前的問題新增三個限制式。

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 支援與意見反應。