PTT數位生活區 / Office

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

看板Office作者 (囧彥)時間12年前 (2013/12/06 00:55), 編輯推噓0(0推 0噓 6→)
留言6則, 2人參與, 最新討論串1/1
軟體: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
→
12/06 07:25, , 1F
"Cells(5, j)"用雙引號為文字，刪除引號
12/06 07:25, 1F
→
12/06 07:26, , 2F
"cells(6,j):cells(7,j)"也是，改range(cells(6,j),cells(7
12/06 07:26, 2F
→
12/06 07:27, , 3F
,j)；或是用range(6,j).resize(,2)試試
12/06 07:27, 3F
→
12/06 07:29, , 4F
^^^^打反了(,2)改(2)
12/06 07:29, 4F
→
12/06 07:30, , 5F
如果還是不行的話，再請提供檔案
12/06 07:30, 5F
→
12/06 11:44, , 6F
謝謝soyoso大大!! 原來是這裡錯 成功了 謝謝你
12/06 11:44, 6F
‣ 更多 jack2pp12345 的文章
文章代碼(AID): #1IeB04ZV (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 jack2pp12345 的文章
文章代碼(AID): #1IeB04ZV (Office)