24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 721  |  回复: 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 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 320分,材料与化工专业,求调剂 +8 一定上岸aaa 2026-03-27 12/600 2026-03-28 13:08 by 松花缸1201
[考研] 311求调剂 +9 lin0039 2026-03-26 9/450 2026-03-28 13:05 by 唐沐儿
[考研] 266分,求材料冶金能源化工等调剂 +7 哇呼哼呼哼 2026-03-27 9/450 2026-03-28 12:22 by zllcz
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 275求调剂 +10 jjjjjjjjjjl 2026-03-27 10/500 2026-03-27 23:47 by barnett0632
[考研] 086000调剂 +3 7901117076 2026-03-26 3/150 2026-03-27 21:34 by Jianing_Mi
[考研] 312求调剂 +9 上岸吧ZJY 2026-03-22 13/650 2026-03-27 11:24 by sanrepian
[考研] 081200-11408-276学硕求调剂 +3 崔wj 2026-03-26 3/150 2026-03-27 07:58 by chemisry
[考研] 321求调剂 +6 Ymlll 2026-03-24 6/300 2026-03-26 20:50 by 不吃魚的貓
[考研] 材料与化工304求B区调剂 +3 邱gl 2026-03-26 6/300 2026-03-26 18:03 by 邱gl
[考研] 085602化学工程求调剂。 +4 平乐乐乐 2026-03-26 4/200 2026-03-26 17:57 by fmesaito
[考研] 机械学硕310分,数一英一,一志愿211本科双非找调剂信息 +3 @357 2026-03-25 3/150 2026-03-26 16:34 by by.MENG
[考研] 一志愿 南京邮电大学 288分 材料考研 求调剂 +3 jl0720 2026-03-26 3/150 2026-03-26 13:39 by zzll406
[考研] 打过很多竞赛,085406控制工程300分,求调剂 +3 askeladz 2026-03-26 3/150 2026-03-26 09:08 by 给你你注意休息
[考研] 334分 一志愿武理-080500 材料求调剂 +4 李李不服输 2026-03-25 4/200 2026-03-25 21:26 by 星空星月
[考研] 生物技术与工程 +3 1294608413 2026-03-25 4/200 2026-03-25 18:02 by 1294608413
[考研] 求调剂 +3 李李不服输 2026-03-25 3/150 2026-03-25 13:03 by cmz0325
[考研] 一志愿吉林大学材料与化工303分求调剂 +4 为学666 2026-03-24 4/200 2026-03-25 11:27 by BruceLiu320
[考研] 289材料与化工(085600)B区求调剂 +4 这么名字咋样 2026-03-22 5/250 2026-03-25 08:20 by mx.yue
[考研] 307求调剂 +3 余意卿 2026-03-21 6/300 2026-03-24 15:03 by 余意卿
信息提示
请填处理意见