excel中实现累加

来源:百度知道 编辑:UC知道 时间:2024/06/01 13:36:49
有一个excel表,K列是数量,L列是累计,要实现在K列输入数值,在L列进行累加,比如第一次K列输入20,L列显示20,第二次还是在同一个单元格输入5,L列显示25,一直从第6行到54行都是实现这样的功能,还有N、O列,T、U列,W、X列也同上,请问各位excel高手,如何实现,小弟在此先谢过了,急~~~~~

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, y As Integer
x = Target.Row
y = Target.Column
If x >= 6 And x <= 54 And (y = 11 Or y = 14 Or y = 20 Or y = 23) Then
'y=11,y=14,y=20,y=23分别对应K列,N列,T列,W列
Cells(x, y + 1) = Cells(x, y + 1) + Cells(x, y)
End If
End Sub

L1=K1+K2,再向下填充,这只能实现第一次在k1输入,显示在L1第二次在k2输入,显示在L2..........

Worksheet的Chang事件吧
当指定位置发生改变的时候
相应的位置也发生变化
如:L=K+L