Office中国论坛/Access中国论坛

标题: 单元格累加代码修改！ [打印本页]

作者: jinmaji 时间: 2009-8-10 12:45
标题: 单元格累加代码修改！
请大家帮我看看附件中的代码是错在什么地方了，绿色部分的数值不能实现自动累加（第一次计算后放到内存依次累加），最后得出结果！当黄色部分的数值变后，绿色部分相应改变！

作者: pureshadow 时间: 2009-8-10 13:54
Sub test()
Dim myres
myres = Application.Sum(Range("d2:d10")) * Range("c11").Value
Range("d12") = myres + Range("d12")
End Sub

作者: ZFL68622888 时间: 2009-8-23 14:53
看看，学习下

作者: qxybg 时间: 2009-9-6 23:50
学习下,学习下

作者: wx00008 时间: 2009-9-7 11:31
当你打开工作簿时，这个工作簿的基本对象都在内存中，你运行单元格的话是可以迭加的。

比如：
可以迭加：
Range("d12") =Range("d12")+Sum(Range("d2:d10")) * Range("c11").Value

不可以迭加：
Range("d12") =Application.Sum(Range("d2:d10")) * Range("c11").Value

作者: wx00008 时间: 2009-9-7 11:32
你提问的话，我们回答的人下你的附件也要被扣钱？你真会赚钱。

作者: 刘志文 时间: 2009-9-12 21:17
学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)