24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 722  |  回复: 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的回帖
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 356求调剂 +3 gysy?s?a 2026-03-28 3/150 2026-03-29 00:33 by 544594351
[考研] 295求调剂 +4 wei-5 2026-03-26 4/200 2026-03-28 23:20 by 小木虫tim
[考研] 本科新能源科学与工程,一志愿华理能动285求调剂 +7 AZMK 2026-03-28 11/550 2026-03-28 21:01 by xxxsssccc
[考研] 275求调剂 +10 Micky11223 2026-03-25 14/700 2026-03-28 15:48 by Micky11223
[考研] 085602 化工专硕 338分 求调剂 +12 路痴小琪 2026-03-27 12/600 2026-03-28 15:41 by L135790
[考研] 320分,材料与化工专业,求调剂 +9 一定上岸aaa 2026-03-27 13/650 2026-03-28 15:00 by 神马都不懂
[考研] 085600,材料与化工321分求调剂 +9 大馋小子 2026-03-28 9/450 2026-03-28 14:56 by 神马都不懂
[考研] 086502化学工程342求调剂 +6 阿姨复古不过 2026-03-27 6/300 2026-03-28 07:06 by wangy0907
[考研] 考研调剂 +4 Sanmu-124 2026-03-26 4/200 2026-03-27 17:49 by kiokin
[考博] 26申博 +3 加油冲啊! 2026-03-26 3/150 2026-03-27 15:38 by cls512
[考研] 274求调剂 +17 顾九笙要谦虚 2026-03-24 23/1150 2026-03-27 15:16 by caszguilin
[考研] 279 分 求调剂 +4 睡个好觉_16 2026-03-24 4/200 2026-03-27 15:05 by 醉在风里
[考研] 调剂 +3 李嘉图·S·路 2026-03-27 3/150 2026-03-27 11:19 by wangjy2002
[考研] 材料考研求调剂 +3 Dendel 2026-03-23 6/300 2026-03-26 17:51 by fmesaito
[考研] 352求调剂 +4 大米饭! 2026-03-22 4/200 2026-03-26 16:40 by 不吃魚的貓
[考研] 086000生物与医药292求调剂 +6 小小陈小小 2026-03-22 9/450 2026-03-26 15:58 by dick_runner
[考研] 化学调剂一志愿上海交通大学336分-本科上海211 +4 小鱼爱有机 2026-03-25 4/200 2026-03-26 10:19 by aa331100
[考研] 290分调剂求助 +3 吉祥止止陈 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[有机交流] 有机合成求助 20+3 FENGSHUJEI 2026-03-23 5/250 2026-03-24 19:31 by 88817753
[考研] 085404电子信息284分求调剂 +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
信息提示
请填处理意见