SolverOkDialog 函數
與 SolverOK 函數相同,但本函數還會顯示 [規劃求解] 對話方塊。
注意 預設不會啟用規劃求解增益集。 使用本函數之前,必須先安裝並啟用規劃求解增益集。 如需如何安裝並啟用規劃求解增益集的詳細資訊,請參閱使用規劃求解 VBA 函數。 安裝規劃求解增益集之後,必須建立對規劃求解增益集的參照。 在模組作用中的 Visual Basic 編輯器中,按一下 [工具] 功能表上的 [參照],然後選取 [可用參照] 下的 [規劃求解]。 如果 [規劃求解] 沒有出現在 [可用的參考] 底下,按一下 [瀏覽],然後開啟 \Program Files\Microsoft Office\Office14\Library\SOLVER 子資料夾中的 Solver.xlam。
SolverOkDialog ( SetCell、MaxMinVal、ValueOf、ByChange、Engine、EngineDesc)
SetCell 選擇性的 Variant。 是指使用中工作表上的單一儲存格。 對應至 [規劃求解參數] 對話方塊中的 [設定目標資料格] 方塊。 MaxMinVal 選擇性的 Variant。 對應至 [規劃求解參數] 對話方塊中的[最大值]、[最小值] 和 [值] 選項。
MaxMinVal | 指定 |
---|---|
1 | Maximize |
2 | 最小化 |
3 | 符合特定值 |
ValueOf 選擇性的 Variant。 如果 MaxMinVal 為 3,您必須指定要比對目標儲存格的值。 ByChange 選擇性的 Variant。 要變更的儲存格或儲存格範圍,以便您在目標儲存格中取得所需的結果。 對應至 [規劃求解參數] 對話方塊中的 [變更儲存格] 方塊。 發動機 選擇性的 Variant。 應該用來解決問題的解決方法:1 表示 Simplex LP 方法,2 用於 GRG 非線性方法,3 用於 Evolutionary 方法。 對應至 [規劃求解參數] 對話方塊中的 [選取解決方法] 下拉式清單。 ByChange 選擇性的 Variant。 指定解決方法的替代方式,該方法應該用來以字串方式解決問題:「Simplex LP」、「GRG Nonlinear」 或 「Evolutionary」。 對應至 [規劃求解參數] 對話方塊中的 [選取解決方法] 下拉式清單。
範例
此範例載入先前計算過的規劃求解模式 (該模式儲存於 Sheet1 中),重新設定所有規劃求解選項,然後顯示 [規劃求解參數] 對話方塊。 此後便可以手動方式使用規劃求解。
Worksheets("Sheet1").Activate
SolverLoad LoadArea:=Range("A33:A38")
SolverReset
SolverOKDialog SetCell:=Range("TotalProfit")
SolverSolve UserFinish:=False
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。
意見反應
https://aka.ms/ContentUserFeedback。
即將登場:在 2024 年,我們將逐步淘汰 GitHub 問題作為內容的意見反應機制,並將它取代為新的意見反應系統。 如需詳細資訊,請參閱:提交並檢視相關的意見反應