2006-09-18
比方说:在A1这一个单元格,我先输入数字3,A1单元格会显示3定在那里。
问题是:当我再点击A1这一单元格输入2时,A1单元格能自动显示求和结果为5呢?
右键点击sheet1工作表,点查看代码,粘贴以下代码到里面保存就可以了(有很多不足的地方,自己去适应吧。只能在A1中输入数字)。
Private test, pan
Private Sub Worksheet_Change(ByVal Target As Range)
If pan = "" Then
If Target。 Row = 1 And Target。Column = 1 Then
pan = 1
Target。Value = Target。Value + test
End If
End If
End Sub
Private Sub Worksheet_SelectionCha...全部
右键点击sheet1工作表,点查看代码,粘贴以下代码到里面保存就可以了(有很多不足的地方,自己去适应吧。只能在A1中输入数字)。
Private test, pan
Private Sub Worksheet_Change(ByVal Target As Range)
If pan = "" Then
If Target。
Row = 1 And Target。Column = 1 Then
pan = 1
Target。Value = Target。Value + test
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
test = Range("a1")。
Value
pan = ""
Range("a1")。Select
End Sub
其实正如大家说的,没有多大用,如果你是为了累加还不如输一个数按一次回车,输完之后,点击这一列,在状态栏会出现合计数的。
我觉得这种做法便于检查错误(用相同的数字输入两列,两列数字相同则一般没错,两列的合计数不同,很快就可以找到不同的地方,而不用一遍一遍的输入而结果总是不一样)
在输入大量的求和数字时为避免错误我是这样做的,慢慢体会吧。
。收起