单元格累加代码修改！

jinmaji

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

pureshadow

Sub test()
Dim myres
myres = Application.Sum(Range("d2:d10")) * Range("c11").Value
Range("d12") = myres + Range("d12")
End Sub

ZFL68622888

看看，学习下

qxybg

学习下,学习下

wx00008

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

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

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

wx00008

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

刘志文

学习学习