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

作者: chasewang   2015-07-28 21:38:51
軟體: 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
作者: soyoso (我是耀宗)   2015-07-29 00:28:00
是否可以提供檔案來測試看看呢?
作者: chasewang   2015-07-29 08:57:00
麻煩你了 http://0rz.tw/NgHWF
作者: soyoso (我是耀宗)   2015-07-29 10:32:00
https://goo.gl/zsdMa5 試試,看是否符合您要的結果
作者: chasewang   2015-07-29 11:00:00
求出來了!!真的非常感謝您另外想再請教一下,有無辦法可以將規劃求解無最適值 顯示出來
作者: soyoso (我是耀宗)   2015-07-29 11:04:00
以檔案來看,什麼條件下會模擬出無最適值呢?
作者: chasewang   2015-07-29 11:36:00
其實我原本還有加限制式,就是兩個組合比例要各大於10%還有兩個比例總和要為1的條件有辦法嗎OTZ真的很感謝你
作者: soyoso (我是耀宗)   2015-07-29 11:54:00
可用變數來取得SolverSolve回傳值微軟說明 https://goo.gl/y8E0Wl
作者: chasewang   2015-07-29 18:16:00
瞭解 真的很感謝你的協助

Links booklink

Contact Us: admin [ a t ] ucptt.com