多个单元格在自己中累加

czshmx

<P>下面这段代码只能在A1中累加,可是我要的是A1、B1、C1中它们都能累加啊！</P>
<P>Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0, 0) &lt;&gt; "A1" Then Exit Sub
   
    Add Target
   
End Sub</P>
<P>Private Sub Add(rngTarget As Range)
    Static dblOld As Double
   
    On Error GoTo ErrorExit
    Application.EnableEvents = False
    dblOld = rngTarget.Value + dblOld
    rngTarget.Value = dblOld
    rngTarget.Select
   
ErrorExit:
    Application.EnableEvents = True
End Sub</P>

czshmx

<P>附件中只能在Ａ１中自动累加，而我需要在Ｂ１、Ｃ１中也要自动累加啊！</P> 5TpK646e.rar (2.3 KB, 下载次数: 23)

2005-10-8 10:08 上传

点击文件名下载附件
帮我改改这段ＶＢＡ

[此贴子已经被作者于2005-10-8 10:08:31编辑过]