电子表格里,我想在某格子里输入数据后直接就与原数据累加,各位大人谁知道应该怎么做啊?比如第一格A3,第二格A4;用A3填新数据,用A4表示累加结果。如:初始A3中数据500,A4也是500;我现在又给A3输入200,将原来的数500覆盖掉,而A4如何显示为累加数700??
第1个回答 2006-08-19
简单的可以这样,不过没有做过详细的处理,比较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
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
第2个回答 2013-06-29
右击(该工作表)工作表标签
选 检视程序代码(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中输入数据即可
选 检视程序代码(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中输入数据即可
第3个回答 2006-09-02
有必要这样吗?
如果你只是想做一个简单的数据统计.只要在B2中输入=sum(a2:a1000)
然后你在a2中输入数字后回车,光标自动到a3中再输入数据-------
这样就可以在b2中显示所有你刚才输入的数据和.
同时在A列还可以看到你输入的所有数据.本回答被网友采纳
如果你只是想做一个简单的数据统计.只要在B2中输入=sum(a2:a1000)
然后你在a2中输入数字后回车,光标自动到a3中再输入数据-------
这样就可以在b2中显示所有你刚才输入的数据和.
同时在A列还可以看到你输入的所有数据.本回答被网友采纳