鸡腿菇的功效与作用:电子表格中,如何用2个(或多个)单元格实现数字累加?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 04:59:38
电子表格里,我想在某格子里输入数据后直接就与原数据累加,各位大人谁知道应该怎么做啊?比如第一格A3,第二格A4;用A3填新数据,用A4表示累加结果。如:初始A3中数据500,A4也是500;我现在又给A3输入200,将原来的数500覆盖掉,而A4如何显示为累加数700??

有必要这样吗?
如果你只是想做一个简单的数据统计.只要在B2中输入=sum(a2:a1000)
然后你在a2中输入数字后回车,光标自动到a3中再输入数据-------
这样就可以在b2中显示所有你刚才输入的数据和.
同时在A列还可以看到你输入的所有数据.

右击(该工作表)工作表标签
选 检视程序代码(V)
对话框左上方的下拉 选 Worksheet
右上方的下拉 选 Change
然后清空工作界面弹出来的内容,
然后复制下面的代码粘贴上去
Private Sub Worksheet_Change(ByVal Target As Range)

For i = 3 To 3

For j = 1 To 10

If Target.Row = i And Target.Column = j Then

A = Cells(i + 1, j).Value

Cells(i + 1, j) = A + Cells(i, j)

End If

Next

Next

End Sub
然后点击保存-关闭
然后在在A3中输入数据即可

简单的可以这样,不过没有做过详细的处理,比较A3的值是不是有改变之类的,只是当上一个焦点在A3时,A4就相加,呵呵。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oLast As Range
If Not oLast Is Nothing Then
If oLast.Address <> Target.Address Then
Select Case oLast.Address
Case "$A$3"
Range("A4").Value = Range("A4").Value + Range("A3").Value
End Select
Set oLast = Target
End If
Else
Set oLast = Target
End If
End Sub