[算表]excel錄製規劃求解巨集問題

看板Office作者 (chaseup)時間10年前 (2015/07/28 21:38), 編輯推噓0(0013)
留言13則, 2人參與, 最新討論串1/1
軟體: excel 版本: 2013 大家晚安 想詢問一下關於excel錄製規劃求解巨集的問題 儲存格k11是要求的數值,要求出的值是隨著i而有所增減 變動的值是K13:L13 基本上貼上的儲存格應該是沒有錯的 但是跑出來結果一直是同一筆數值 現在懷疑有問題的可能是 1.value不能這樣寫 只能單純寫值 2.k11的公式是舉陣列運算(mmult) 以下為巨集內容,希望有強者可以幫我看看哪理有問題嗎 Dim i As Integer ' For i = 1 To 31 SolverOk SetCell:=Cells(15, 11), MaxMinVal:=3, ValueOf:=0.079 + i * 0.001, ByChange:=Range("K13:L13") _, Engine:=1, EngineDesc:="GRG Nonlinear" SolverOk SetCell:=Cells(15, 11), MaxMinVal:=3, ValueOf:=0.079 + i * 0.001, ByChange:=Range("K13:L13") _, Engine:=1, EngineDesc:="GRG Nonlinear" SolverFinish KeepFinal:=1 Range("K13:L13").Select Selection.Copy Cells(20 + i, 19).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False Range("K15").Select Application.CutCopyMode = False Selection.Copy Cells(20 + i, 18).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False Range("K14").Select Application.CutCopyMode = False Selection.Copy Cells(20 + i, 17).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False Next i End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.228.182.149 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1438090733.A.E86.html

07/29 00:28, , 1F
是否可以提供檔案來測試看看呢?
07/29 00:28, 1F

07/29 08:57, , 2F
麻煩你了 http://0rz.tw/NgHWF
07/29 08:57, 2F

07/29 10:32, , 3F
https://goo.gl/zsdMa5 試試,看是否符合您要的結果
07/29 10:32, 3F

07/29 11:00, , 4F
求出來了!!真的非常感謝您
07/29 11:00, 4F

07/29 11:01, , 5F
另外想再請教一下,有無辦法可以將規劃求解無最適值 顯
07/29 11:01, 5F

07/29 11:02, , 6F
示出來
07/29 11:02, 6F

07/29 11:04, , 7F
以檔案來看,什麼條件下會模擬出無最適值呢?
07/29 11:04, 7F

07/29 11:36, , 8F
其實我原本還有加限制式,就是兩個組合比例要各大於10%
07/29 11:36, 8F

07/29 11:36, , 9F
還有兩個比例總和要為1的條件
07/29 11:36, 9F

07/29 11:38, , 10F
有辦法嗎OTZ真的很感謝你
07/29 11:38, 10F

07/29 11:54, , 11F
可用變數來取得SolverSolve回傳值
07/29 11:54, 11F

07/29 11:56, , 12F
07/29 11:56, 12F

07/29 18:16, , 13F
瞭解 真的很感謝你的協助
07/29 18:16, 13F
文章代碼(AID): #1LjuNjw6 (Office)
文章代碼(AID): #1LjuNjw6 (Office)