SolverGet 函數

傳回規劃求解目前設定的資訊。 這些設定是在 [規劃求解參數][規劃求解選項] 對話方塊中指定的。

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

SolverGet (TypeNumSheetName)

TypeNum 必要的 整數。 指定所要資訊類型的數位。 下列設定是在 [ 規劃求解參數 ] 對話方塊中指定。

TypeNum 返回
1 [設定目標儲存格] 方塊中的參照,當規劃求解未在選取工作表上使用時,則為 #N/A 錯誤值。
2 對應於 [等於] 選項的數字:1 代表最大,2 代表最小,而 3 代表值。
3 [值] 為方塊中的值。
4 [可變儲存格] 方塊中的參照 (必要時為多重參照)。
5 限制式的數目。
6 由限制式左邊部分構成的文字陣列。
7 數位陣列,對應至條件約束左側和右側之間的關聯性:1 代表 < =,2 代表 =,3 代表 > =,4 代表 int,5 代表 bin。
8 由限制式右邊部分構成的文字陣列。
13 如果選取 [Simple LP Solving] 方法,會傳回 True;如果選取其他求解方法,則會傳回 False
20 True 是表示 如果選取 [ 使不受限制的變數非負數 ] 核取方塊; 如果 清除,則為 False。

下列設定值是在 [規劃求解選項] 對話方塊中指定的。

TypeNum 返回
9 [最大時限 (秒)] 選項 ([所有方法] 索引標籤)。
10 [反覆運算次數] 選項 ([所有方法] 索引標籤)。
11 [限制式精確度] 選項 ([所有方法] 索引標籤)。
12 [整數最適率 (%)] 選項 ([所有方法] 索引標籤)。
14 如果選取 [顯示反覆運算結果] 核取方塊,會傳回 True;如果取消選取該核取方塊,則會傳回 False
15 如果選取 [使用自動範圍調整] 核取方塊,會傳回 True;如果取消選取該核取方塊,則會傳回 False ([所有方法] 索引標籤)。
16 表示估計型態的數字:1 表示正切函數,而 2 表示二次方程式。
17 與 [GRG Nonlinear] 索引標籤中的 [導數] 選項對應的數字:1 表示前向導數,而 2 表示中心導數 ([GRG Nonlinear] 索引標籤)。
18 表示搜尋型態的數字:1 表示牛頓法,而 2 表示共軛法。
19 [收斂] 誤差值 ([GRG Nonlinear] 索引標籤和 [Evolutionary] 索引標籤)。
21 [母體大小] 選項 ([GRG Nonlinear] 索引標籤和 [Evolutionary] 索引標籤)。
22 [隨機種子] 選項 ([GRG Nonlinear] 索引標籤和 [Evolutionary] 索引標籤)。
23 如果 選取 [使用 多重入門] 核取方塊,則為 True; 如果 在 GRG 非線性索引標籤) (清除該索引標籤,則為 False。
24 如果選取 [變數需要範圍限制] 核取方塊,會傳回 True;如果取消選取該核取方塊,則會傳回 False
25 [突變率] 選項 ([Evolutionary] 索引標籤)。
26 [子問題數目上限] 選項 ([所有方法] 索引標籤)。
27 [合適解答數目上限] 選項 ([所有方法] 索引標籤)。
28 [忽略整數限制式] 選項 ([所有方法] 索引標籤)。
29 [不含改進的最長時限] 選項 ([Evolutionary] 索引標籤)。

SheetName 選擇性的 Variant。 包含您要提供資訊之規劃求解模型之工作表的名稱。 如果省略 SheetName ,則會假設此工作表為使用中工作表。

範例

如果您未在 Sheet1 中使用 [規劃求解],本範例將會顯示一條訊息。

Worksheets("Sheet1").Activate 
state = SolverGet(TypeNum:=1) 
If IsError(State) Then 
 MsgBox "You have not used Solver on the active sheet" 
End If

支援和意見反應

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