[VBA ] 規劃求解函數(SolverOK)問題

看板Visual_Basic作者時間18年前 (2007/04/24 23:05), 編輯推噓0(0推 0噓 2→)
留言2則, 1人參與, 最新討論串1/1
我有兩個目標式1和2 想寫一個程式可以先用規劃求解求取目標1的值，然後再求取目標2的值 我用錄製巨集的方式得知規劃求解可以用函數SolverOK來設定 但是執行程式時卻出現"未定義SolverOK這個函數"(應該有此函數才對啊 @ @) 請問是哪裡出錯了？ p.s 增益集已勾選規劃求解 --以下為程式碼----------------------------------------------------------- '計算目標分別為目標值1或2之解 '目標為目標值1 SolverOk SetCell:="$F$14", MaxMinVal:=1, ValueOf:="0", ByChange:="$C$13:$D$13" SolverSolve Sheet2.Cells(14, 11) = Sheet2.Cells(14, 6) Sheet2.Cells(14, 12) = Sheet2.Cells(15, 6) '調整目標為目標值2 SolverOk SetCell:="$F$15", MaxMinVal:=1, ValueOf:="0", ByChange:="$C$13:$D$13" SolverSolve Sheet2.Cells(15, 11) = Sheet2.Cells(14, 6) Sheet2.Cells(15, 12) = Sheet2.Cells(15, 6) -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.114.202.118 ※ 編輯: XXXavier 來自: 140.114.202.118 (04/24 23:16) ※ 編輯: XXXavier 來自: 140.114.202.118 (04/24 23:27)
→
04/24 23:33, , 1F
不好意思打擾囉！問題已解決！
04/24 23:33, 1F
→
04/24 23:34, , 2F
在VB編輯器中 工具>設定引用項目 勾選Solver即可
04/24 23:34, 2F
‣ 更多 XXXavier 的文章
文章代碼(AID): #16BXpL_m (Visual_Basic)