台灣最大程式設計社群網站
線上人數
1010
 
會員總數:245228
討論主題:189098
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> vba 規劃求解問題
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
vba 規劃求解問題
價值 : 20 QP  點閱數:57 回應數:0

樓主

karen
門外漢
0 1
11 0
發送站內信


有一個大型試算表需要逐欄規劃求解,但是變數不相鄰
請問這樣在bychange的地方要怎麼寫?


Sub 規劃求解()


Dim j As Integer
For j = 11 To 11
SolverReset
SolverOk SetCell:=Cells(43, j), MaxMinVal:=3, ValueOf:=2, ByChange:="Cells(32, j), Cells(34, j)", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:=Cells(41, j), Relation:=2, FormulaText:="1000000"
SolverAdd CellRef:=Cells(34, j), Relation:=3, FormulaText:="0"
SolverAdd CellRef:=Cells(32, j), Relation:=3, FormulaText:="0"
SolverOk SetCell:=Cells(43, j), MaxMinVal:=3, ValueOf:=2, ByChange:="Cells(32, j), Cells(34, j)", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:=Cells(43, j), MaxMinVal:=3, ValueOf:=2, ByChange:="Cells(32, j), Cells(34, j)", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve True
Next
End Sub


搜尋相關Tags的文章: [ 規劃求解 ] , [ vba ] , [ excel ] ,
本篇文章發表於2019-12-03 09:56
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.