[算表]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