excel表格菜鸟级问题 求救....

来源：百度知道 编辑：UC知道 时间：2024/07/07 02:58:48
我想弄Excel的某个表格在原有数据上增加时 能自动累计 比如：我的A2格的数据为20 那么当我又要增加几个如增加5个 那么正常是自己加出结果25后输入进去 现在我想不改其数字 我直接在某单元格 如B2输入5 A2格就自动累计成25 以后我也只需在B2输入增加的数据 A2就自动累计进去
这个功能能否实现？是否要vba功能?
感谢各位 有几个我试了下 当我还要增加的时候 它不是自动累加的 当我B2继续输入时A2结果会变化 不是累计

当前单元加2
Sub 当前单元加2()
Selection = Selection + 2
'Selection = Workbooks("临时表").Sheets("表2").Range("A1") 调用指定地址内容
End Sub

将A1单元录入的数据累加到B1单元（工作表代码）
Private Sub Worksheet_Change(ByVal Target As Range)
Dim t As Long
If Target.Address = "$A$1" Then
t = Sheet1.Range("$B$1").Value
Sheet1.Range("$B$1").Value = t + Target.Value
End If
End Sub

明白了不？

大哥，Excel不能加自身，会出现循环警告。
下面给个例子参考下吧。
例：
1.在A1单元格里输入“20”
2.在B1单元格里输入“5”
3.在A2单元格里输入“=A1+B1”

*输入的时候不要上面的引号。

4.修改A1/B1的内容，A2就会得到A1+B1的合。

--------------------------------------
要不你这样：
1.在A1单元格里输入“=SUM(B:B)”
2.在B列从第一个单元格开始，依次输入你要累计的值（不是重复只往B1里面输入）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(2, 2) <> "" Then
Cells(2, 1) = Cells(2, 1) + Cells(2, 2)
Cells(2, 2) = "&