SolverOk（SetCell， MaxMinVal， ValueOf， ByChange，Engine， EngineDesc）
SetCell Variant 型別，可選。引用活動工作表上的單個單元格。相當於“規劃求解引數”對話方塊中的“設定目標單元格”編輯框。
MaxMinVal Variant 型別，可選。相當於“規劃求解引數”對話方塊中的“最大值”、“最小值”和“值為”選項。
ValueOf Variant 型別，可選。如果 MaxMinVal 為 3，必須用本引數指定目標單元格應匹配的值。
ByChange Variant 型別，可選。指定將更改的單元格或單元格區域，以便在目標單元格中獲得期望的結果。該引數對應於“規劃求解引數”對話方塊中的“可變單元格”框。
Engine Variant 型別，可選。解決問題時應該使用的求解方法：1 表示單工 LP 方法，2 表示 GRG 非線性方法，或 3 表示進化方法。此函式與“規劃求解引數”對話方塊中的“選擇求解方法”下拉列表相對應。
EngineDesc Variant 型別，可選。用於指定解決問題時應使用的求解方法的備選方式，為字串形式：“單工 LP”、“GRG 非線性”或“進化”。此函式與“規劃求解引數”對話方塊中的“選擇求解方法”下拉列表相對應。
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”）
