[算表] 規劃求解在VBA內的問題

[jack2pp12345 (囧彥)]

軟體:Excel

版本:2010

最近需要用規劃求解來計算大量的數據

但是資料格式都一樣

就想利用VBA節省時間

以下是我的程式碼

For i = 1 To 15

j = 8 + 2 * i

        SolverOk SetCell:="cells(5,j)", MaxMinVal:=2, ValueOf:=0,
        ByChange:="cells(6,j):cells(7,j)", _
        Engine:=1, EngineDesc:="GRG Nonlinear"

        SolverOk SetCell:="cells(5,j)", MaxMinVal:=2, ValueOf:=0,
        ByChange:="cells(6,j):cells(7,j)", _
        Engine:=1, EngineDesc:="GRG Nonlinear"

        SolverSolve True


  Next i

大部分是錄的

cells(5,j)是一堆資料的加總

要將他最小化

而cells(6,j)跟cells(7,j)會影響資料的大小

沒有其他的限制式


我剛剛跑   會出現只有第一個有答案

剩下14個也會有動作  但是後面的欄位都是空白的

還請大家教教我這個VBA新手

拜託了

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.113.68.204
→ soyoso:"Cells(5, j)"用雙引號為文字，刪除引號
→ soyoso:"cells(6,j):cells(7,j)"也是，改range(cells(6,j),cells(7
→ soyoso:,j)；或是用range(6,j).resize(,2)試試
→ soyoso:                            ^^^^打反了(,2)改(2)
→ soyoso:如果還是不行的話，再請提供檔案
→ jack2pp12345:謝謝soyoso大大!! 原來是這裡錯  成功了 謝謝你