E作者XXXavier (驅魔神探)
看板Visual_Basic
標題[VBA ] 規劃求解函數(SolverOK)問題
時間Tue Apr 24 23:05:56 2007
我有兩個目標式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)
→ XXXavier:不好意思打擾囉!問題已解決! 04/24 23:33
→ XXXavier:在VB編輯器中 工具>設定引用項目 勾選Solver即可 04/24 23:34