[VBA ] 規劃求解

看板Visual_Basic作者Tampa (光芒)時間8年前 (2016/11/19 17:08)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串1/1

各位大大好我用的是excel 2010 有試著錄製一段規劃求解的巨集程式碼如下快速鍵: Ctrl+s ' SolverOk SetCell:="$AB$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$2", Engine:= _ 3, EngineDesc:="Evolutionary" SolverDelete CellRef:="$G$3432", Relation:=1, FormulaText:="48" SolverAdd CellRef:="$G$2", Relation:=1, FormulaText:="$E$2" SolverOk SetCell:="$AB$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$2", Engine:= _ 3, EngineDesc:="Evolutionary" SolverDelete CellRef:="$G$3432", Relation:=4 SolverAdd CellRef:="$G$2", Relation:=4, FormulaText:="整數" SolverOk SetCell:="$AB$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$2", Engine:= _ 3, EngineDesc:="Evolutionary" SolverDelete CellRef:="$G$3432", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$E$2", Relation:=3, FormulaText:="0" SolverOk SetCell:="$AB$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$2", Engine:= _ 3, EngineDesc:="Evolutionary" SolverOk SetCell:="$AB$2", MaxMinVal:=2, ValueOf:=0, ByChange:="$G$2", Engine:= _ 3, EngineDesc:="Evolutionary" SolverSolve End Sub 簡單來說我輸入變數在G欄位的所有儲存格，範圍從G2到G17860，限制式如下 G2<=E2 G2>=0 G2=整數求AB2的最小值 . . . G3<=E3 G3>=0 G3=整數求AB3的最小值 . .一直到 . G17860<=E17860 G17860>=0 G17860=整數求AB17860的最小值巨集結束問題一:規劃求解似乎不能直接用複製來做所以需要用巨集，但小弟我對程式碼不很了解所以附上程式碼，希望各位大大可以指點一下，需要修改哪幾個地方以方便我順利求解 ps計算方式為演化感謝 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.225.188.16 ※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1479546529.A.65E.html ※ Tampa:轉錄至看板 Office 11/19 17:10