[已解决]请教表格中对一列求和的方法

cxc11

   图示：
              A    B    C    D    .....
             10
             22.2
             33
             41.15
             56
            等等

求a列的和值，然后在鼠标点击下一个行单元格的时候将结果自动显示出来，谢谢了

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-16 19:07

这样话就可以这样写：
写在所在的SHEET里

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count = 1 And Target.Column = 1 Then
   
3.     Target.Formula = "=sum(A1:A" & Target.Row - 1 & ")"
   
4. End If
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

MM309755469

{:301:}没明白楼主的意思~

半个城市

如果是求A列的和的话，直接用SUM，可是又不是很明白你的问题，应该没有我理解的这么简单吧，你发在VBA，是想用VBA来解决吗？

放浪形骸

是不是说你点了A列的某个单元格之后，直接计算出该单元格以上的所有数据和？

放浪形骸

这样话就可以这样写：
写在所在的SHEET里

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count = 1 And Target.Column = 1 Then
   
3.     Target.Formula = "=sum(A1:A" & Target.Row - 1 & ")"
   
4. End If
   
5. End Sub
   

复制代码

cxc11

谢谢大家的帮助