| 查看: 694 | 回复: 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"  .SelectSelection.Copy ActiveCell.Offset(i + 2, 0).Range("A1" .SelectActiveSheet.Paste ActiveCell.Offset(0, -1).Range("A1" .SelectApplication.CutCopyMode = False ActiveCell.FormulaR1C1 = "i" ActiveCell.Offset(i - 1, -7).Range("A1" .SelectNext i End Sub |
回复此楼» 猜你喜欢
谈谈两天一夜的“延安行”
已经有15人回复
-
EST投稿状态问题
已经有6人回复
-
职称评审没过，求安慰
已经有15人回复
-
垃圾破二本职称评审标准
已经有11人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有16人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
聘U V热熔胶研究人员
已经有10人回复
-
求助文献
已经有3人回复
-
投稿返修后收到这样的回复，还有希望吗
已经有8人回复
-
三无产品还有机会吗
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- C_YI_G(c,t,i)宏的如何使用？
已经有26人回复
ella0717
金虫 (正式写手)
- 应助: 41 (小学生)
- 金币: 6055.4
- 散金: 1015
- 红花: 8
- 帖子: 735
- 在线: 212.9小时
- 虫号: 1010727
- 注册: 2010-05-03
- 性别: GG
- 专业: 自然地理学
ella0717
金虫 (正式写手)
- 应助: 41 (小学生)
- 金币: 6055.4
- 散金: 1015
- 红花: 8
- 帖子: 735
- 在线: 212.9小时
- 虫号: 1010727
- 注册: 2010-05-03
- 性别: GG
- 专业: 自然地理学