excel数据自动累加

Question

excel需要编辑数据，类似于截图这样，比如1号我再本日销售里面输入12，那月度销售里面自动生成12,2号的时候我在本日销售里面输15，那月度销售里面会自动变成27，以此类推，也就是说本日销售里面每天都会变，需要在月度销售里面自动做一个累加，请哪位大大帮忙设计一个函数，要浅显易懂版的告诉我每一步怎么操作，谢谢！我只有这么点分数，祝好人一生平安。

Answer 1

你的思路本身就有问题 ，
按照你说的， 在某个单元格输入数据， 后面记录所有输入的数据 并累加，
如果这样， 你输入错了 怎么办？ 你要查询某一日的销售怎么办?
启用迭代计算 或者用VBA 可以办到， 但是 没法 防呆， 因为没有你的历史记录，比如今天的是15，如果你不小心输入150， 后面也自动加，你怎么知道怎么错的

直接 分日期 录入 数据就可以了， 公式就是简单的SUM 或者+
假设在A1:A31 录入每日销售，
B1 输入 =sum(A1:A31)
就可以得到汇总了， 也有每日销售的历史记录
===============================

除非用宏记录每次输入， 或者共享工作薄 记录 修改，
不能防错 的 方法 不能达到 记录和累加数据的效果

Answer 2

计算公式很简单，是个循环公式

关键是要更改一下设置，工具》选项

如图设置

 

追问

按照你这个方法，我在A2输入的数据，B1也累加了

追答

我是只针对你的提问回答的呀，你没说还要在别的格里输入数据

Answer 3

你能换个方式吗？给你个思路，比如这个图片你可以建立一个月的日期1-30号：然后填入每天的销售量。选择一个单元格填入公式=sum(b3:b17,d3:d7),意思是你在A列中输入1-15的日期，然后在B列中输入你单日对应的销售量，在C列中输入16-30的日期，然后在D列中填入单日的销售量，最后填入那个公式，这样就可以得到你要的效果。够详细了吧，求给分。

Answer 4

这个需要VBA代码了，代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
  Range("b2") = Val(Range("a2")) + Range("b2")
  Application.EnableEvents = True
End Sub

详见附件。

靠，犯了一个致命的错误哦。抱歉抱歉。代码修正如下：

Private Sub Worksheet_Change(ByVal Target As Range)
  if target.address="$A$1" then 
      Application.EnableEvents = False
      Range("b2") = Val(Range("a2")) + Range("b2")
      Application.EnableEvents = True
  endif
End Sub

本回答被提问者采纳

Answer 5

你首先点工具----选项---重新计算---勾上迭代计算--最多迭代计算次数输入1，确定。然后在B2输入=B2+A2，这样你在A2输入数据就会累加在B2了。不过发现了一个问题，就是当A2是5，你在其他单元格输入一次数据，会加5.追问

按照你这个方法，我在A3输入的数据，B2也累加了

追答

那只有今天输入了就把数据删除了。