=sumproduct 计数(g24:r24...

来源：蜘蛛抓取(WebSpider) 时间：2011-10-17 07:46 标签： sumproduct 计数
查看: 1033|回复: 1
[求助]还是一个动态行标的问题
阅读权限20
在线时间 小时
之前做了一个规划求解的模型，因为所有数据的个数是固定的（变量的行数和列数都固定），所以自己也写出来了
Sub 优化计算()
   Range("x5") = "=SUMPRODUCT(F5:F24,R5:R24)/100"
   Range("x6") = "=SUMPRODUCT(g5:g24,R5:R24)/100"
   Range("x7") = "=SUMPRODUCT(h5:h24,R5:R24)/100"
   Range("x8") = "=SUMPRODUCT(i5:i24,R5:R24)/100"
   Range("x9") = "=SUMPRODUCT(j5:j24,R5:R24)/100"
   Range("x10") = "=SUMPRODUCT(k5:k24,R5:R24)/100"
   Range("x11") = "=SUMPRODUCT(l5:l24,R5:R24)/100"
   Range("x12") = "=SUMPRODUCT(m5:m24,R5:R24)/100"
   Range("x13") = "=SUMPRODUCT(n5:n24,R5:R24)/100"
   Range("x14") = "=SUMPRODUCT(O5:O24,R5:R24)/100"
   Range("x15") = "=SUMPRODUCT(p5:p25,R5:R25)/100"
   Range("Q28") = "=SUM(R5:R25)"
   Range("S28") = "=SUMPRODUCT(R5:R25,T5:T25)*10"
       SolverReset
    SolverOk SetCell:=Range("$S$28"), MaxMinVal:=2, byChange:="$R$5:$R$24"
    SolverAdd CellRef:=Range("$Q$28"), Relation:=2, formulaText:=100
    SolverAdd CellRef:=Range("r5:r24"), Relation:=1, formulaText:=Range("$s$5:$s$24")
    SolverAdd CellRef:=Range("r5:r24"), Relation:=3, formulaText:=Range("$q$5:$q$24")
    SolverAdd CellRef:=Range("x5:x15"), Relation:=1, formulaText:=Range("$u$5:$u$15")
    SolverAdd CellRef:=Range("x5:x15"), Relation:=3, formulaText:=Range("$u$5:$u$15")
    SolverOk SetCell:=Range("$S$28"), MaxMinVal:=2, byChange:="$R$5:$R$24"
    SolverSolve
    End Sub
但是，现在想要写一个变量的个数不固定（主要是行数不固定，但肯定是最后一行），我想了很长时间不知道该怎么写，请高手帮忙，就是
Range("x5") = "=SUMPRODUCT(F5:F24,R5:R24)/100"
   Range("x6") = "=SUMPRODUCT(g5:g24,R5:R24)/100"
   Range("x7") = "=SUMPRODUCT(h5:h24,R5:R24)/100"
   Range("x8") = "=SUMPRODUCT(i5:i24,R5:R24)/100"
   Range("x9") = "=SUMPRODUCT(j5:j24,R5:R24)/100"
   Range("x10") = "=SUMPRODUCT(k5:k24,R5:R24)/100"
   Range("x11") = "=SUMPRODUCT(l5:l24,R5:R24)/100"
   Range("x12") = "=SUMPRODUCT(m5:m24,R5:R24)/100"
   Range("x13") = "=SUMPRODUCT(n5:n24,R5:R24)/100"
   Range("x14") = "=SUMPRODUCT(O5:O24,R5:R24)/100"
   Range("x15") = "=SUMPRODUCT(p5:p25,R5:R25)/100"
   Range("Q28") = "=SUM(R5:R25)"
   Range("S28") = "=SUMPRODUCT(R5:R25,T5:T25)*10"
这一段，所有数据都是从第五行开始，但是不一定都是第24行结束，但也不会超过第25行，是动态的
请帮忙帮我完成这一步骤，
后面的SolverOk SetCell:=Range("$S$28"), MaxMinVal:=2, byChange:="$R$5:$R$24"
我改成了SolverOk SetCell:=Range("$S$28"), MaxMinVal:=2, byChange:=.Range("n4:n" & j)（j = range(a65536).End(xlUp).Row）
如果这样改是错误的，也请帮我校正，谢谢
[此贴子已经被作者于 20:05:46编辑过]
阅读权限50
在线时间 小时
好像是这样用的！=.Range(cells(4,14) &":"& cells(j,14))
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师实验报告作业_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
实验报告作业
上传于||暂无简介
阅读已结束，如果下载本文需要使用1下载券
想免费下载本文？
定制HR最喜欢的简历
你可能喜欢

我要回帖

更多关于 sumproduct 计数 的文章

 

随机推荐