求累计相加的解决方法:每次输入前一单元格的数字，后一单元格可以自动累计相加

宝贝笨笨熊

A2单元格中每次输入的数字是不同的，而B2单元格需要显示第一个单元格中输入的所有数字的总和，不知道这样是否描述得清楚？我举例说吧，A列和B列，我要在A2里每天填入不同的数字，比如当日金额，今天填100，明天改成80，在B2里我需要将所有在A2里填过的数字求和，也就是累积金额，比如：第一次我在A2里填50，B2里应该是50，第二次我把A2里改为80的时候，B2里应该显示130，第三次我把A2里改为20的时候，B2里应该显示150，其他所属A、B两列的明细行依此类推，不知道这样是否看得明白了？这个报表需要注意的是：
1、金额有时候是有小数的，所以需要保留小数点后二位数                                          
2、如何实现在不同报表中的累加计算。                                    
3、原先想过用函数解决的，也上网查看过，不过由于涉及到循环引用．迭代计算．一般精通excel的人才会用这些东西的．而且都要非常小心的，否则就会很容易造成数据的混乱我也试过的，稍一点击那个单元格就恢复成什么数据也没有的了。

附表如下：

累计相加.zip (2.1 KB, 下载次数: 283)

2014-3-6 10:16 上传

点击文件名下载附件

东亚五金

用工作表事件或者工作簿事件

宝贝笨笨熊

东亚五金 发表于 2014-3-6 11:36
用工作表事件或者工作簿事件

什么意思？我不怎么明白？

东亚五金

　excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。我们在A列输入具体的数据，然后在B列实现循环累加。比如我们在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12+13=25。再次在A1输入10，B1这次的循环累加值为：10+25=35。其余单元格以此类推，只要在A列输入数字，B列就自动循环累加。实现的方法是：我们在需要进行excel循环累加的工作表标签，右键，选择“查看代码”，打开VBE编辑器，复制下面的代码，并关闭VBE编辑器，回到工作表中A列开始输入数据，excel会在B列自动循环累加数值。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range("B" & Target.Row) = Val(Range("B" & Target.Row)) + Val(Target)  '=1是表示第一列
End Sub

宝贝笨笨熊

东亚五金 发表于 2014-3-6 12:42
　excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。我们在A列输入具体的数据，然后在B列实现 ...

嗯嗯，这个我看懂了，但是这个是针对同一个报表中的不同列可以累计相加，那么如果是不同报表的要怎么弄呢？也就是说我累计相加的金额是另外一个报表列中的单元格里录入的数据。另外如果当月金额输入有误需要调整的话要怎么改呢？就是说本来输入的金额是错误的，现在要重新写正确的上去，那么后面累计相加的数据不就是有问题了么？

东亚五金

宝贝笨笨熊 发表于 2014-3-6 12:56
嗯嗯，这个我看懂了，但是这个是针对同一个报表中的不同列可以累计相加，那么如果是不同报表的要怎么弄呢 ...

这个就不会了,帮不上你的忙了

宝贝笨笨熊

东亚五金 发表于 2014-3-6 14:23
这个就不会了,帮不上你的忙了

没事，已经很感谢了

ivccav

东亚五金 发表于 2014-3-6 12:42
　excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。我们在A列输入具体的数据，然后在B列实现 ...

如果输入错误，怎么撤销呢？撤销1次也好！

autocadr41

ivccav 发表于 2015-3-6 11:13
如果输入错误，怎么撤销呢？撤销1次也好！

试试下面的文件

autocadr41

可以撤销1000次操作