24小时热门版块排行榜    

查看: 802  |  回复: 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

金虫 (正式写手)

已解决。录制的宏中setcell后多了个;最后是bychange。
另外,在solversolve 后添加 userfinish:=true,每次规划迭代结束就不会弹出窗口了,自动完成计算和列出结果。
Letitbreakinallitsfury!
3楼2013-09-05 23:57:12
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 3 个回答

ella0717

金虫 (正式写手)

就是几句简单的语言,保存每次由不同的随机数产生的结果复制到下面,只是中间用了一步规划求解。
Letitbreakinallitsfury!
2楼2013-09-05 20:42:27
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[论文投稿] 二审4个多月了还是Awaiting Reviewer Scores 10+3 纳斯达克ML 2026-10-11 4/200 2026-10-14 17:30 by babero
[有机交流] OpenAI又攻克数学难题了,离AI做有机合成还有多远? +8 wangyl_123 2026-10-10 13/650 2026-10-14 15:12 by zuesli
[基金申请] 申请科研项目纯靠实力能成功吗? 200+4 David1982 2026-10-13 7/350 2026-10-14 14:24 by 13108017953
[硕博家园] 极限拉扯,如何抉择 +10 Isak0320 2026-10-12 14/700 2026-10-14 11:39 by thegarfield
[教师之家] 课题组会帮你通过考核么? +4 好运来~9527 2026-10-10 7/350 2026-10-13 08:41 by xli1984
[基金申请] 入职后第一次管课题组的专利缴费,对账才发现官费比别人多掏了一倍 +6 13108017953 2026-10-08 6/300 2026-10-12 20:07 by w3w3y3
[公派出国] 售一区SCI文章T0P,我:8O.551.O54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:34 by XQNyDCa1Tk5n
[公派出国] 售SCI一区文章,我:8O5.5.1.O5.4,科目全,可伽急 +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:26 by XQNyDCa1Tk5n
[找工作] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 22:26 by XQNyDCa1Tk5n
[考博] 售SCI一区T0P文章,我:8.O55.1.O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 9/450 2026-10-11 22:15 by XQNyDCa1Tk5n
[考博] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 22:11 by XQNyDCa1Tk5n
[教师之家] 售SCI文章,我:8O5.5.1.O.54,科目齐全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 22:06 by XQNyDCa1Tk5n
[教师之家] 售SCI一区T0P文章,我:8.O.55.1.O.5.4,科目全,可+急 (EPI+-1)(金币-50) +5 qR2AdCWTVtkw 2026-10-09 10/500 2026-10-11 14:25 by VOMexwnDzOFZ
[教师之家] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 (EPI+-1)(金币-50) +4 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 14:05 by VOMexwnDzOFZ
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:51 by VOMexwnDzOFZ
[硕博家园] 售SCI-T0P文章,我:8O.5.5.1.O.54,科目齐全,可+急 +5 qR2AdCWTVtkw 2026-10-09 8/400 2026-10-11 13:45 by VOMexwnDzOFZ
[找工作] 售SCI一区T0P文章,我:8O.55.1.O.5.4,科目齐全,可+急 +3 qR2AdCWTVtkw 2026-10-09 7/350 2026-10-11 10:54 by VOMexwnDzOFZ
[考博] 招收博士生一名 +3 mandolin 2026-10-10 3/150 2026-10-11 10:21 by 不是山谷!
[公派出国] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +4 qR2AdCWTVtkw 2026-10-09 4/200 2026-10-11 03:14 by M0zrYVSAnxpE
[有机交流] 各位大佬,路线设计求助 +6 zapen 2026-10-08 8/400 2026-10-10 15:59 by zapen
信息提示
请填处理意见