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

[chasewang (chaseup)]

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