24小时热门版块排行榜    

查看: 690  |  回复: 2

ella0717

金虫 (正式写手)

[求助] excel宏编辑solver语句出错

本人程序语言几乎不懂,只能看懂不会写,现用excel中的规划求解工具箱求几个数,需多次运算分别保存计算结果,使用录制宏的功能获得初始语句后略加修改,但其中solver的一句提示语法错误。这句是录制来的,未做任何改变,reference里也已经选中了solver,全文见下,哪位帮忙看看问题在哪,怎么修改,多谢多谢!

Sub calandcopy()
'
' calandcopy Macro
'
' 快捷键: Ctrl+e
'
    Dim i As Integer
    For i = 1 To 5000
    ActiveCell.Select
    Calculate
    SolverOk SetCell,:="$A$42", MaxMinVal:=2, ValueOf:="0", yChange:="$I$38:$K$38"
    SolverSolve
    ActiveCell.Offset(-4, 8).Range("A1:C1".Select
    Selection.Copy
    ActiveCell.Offset(i + 2, 0).Range("A1".Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -1).Range("A1".Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "i"
    ActiveCell.Offset(i - 1, -7).Range("A1".Select
    Next i
End Sub
回复此楼
Letitbreakinallitsfury!
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

ella0717

金虫 (正式写手)

就是几句简单的语言,保存每次由不同的随机数产生的结果复制到下面,只是中间用了一步规划求解。
Letitbreakinallitsfury!
2楼2013-09-05 20:42:27
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

ella0717

金虫 (正式写手)

已解决。录制的宏中setcell后多了个;最后是bychange。
另外,在solversolve 后添加 userfinish:=true,每次规划迭代结束就不会弹出窗口了,自动完成计算和列出结果。
Letitbreakinallitsfury!
3楼2013-09-05 23:57:12
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 ella0717 的主题更新
信息提示
请填处理意见