单元格累加代码修改！

jinmaji · 发表于 2009-8-10 12:45:24

请大家帮我看看附件中的代码是错在什么地方了，绿色部分的数值不能实现自动累加（第一次计算后放到内存依次累加），最后得出结果！当黄色部分的数值变后，绿色部分相应改变！

pureshadow · 发表于 2009-8-10 13:54:34

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:26

看看，学习下

qxybg · 发表于 2009-9-6 23:50:23

学习下,学习下

wx00008 · 发表于 2009-9-7 11:31:35

当你打开工作簿时，这个工作簿的基本对象都在内存中，你运行单元格的话是可以迭加的。

比如：
可以迭加：
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:52

你提问的话，我们回答的人下你的附件也要被扣钱？你真会赚钱。

刘志文 · 发表于 2009-9-12 21:17:21

学习学习

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[其它] 单元格累加代码修改！

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)