excel循環(huán)累加使用VBA事件和代碼自動(dòng)完成累加是比較可行的方法。
我們以一個(gè)具體的例子來說明使用VBA實(shí)現(xiàn)excel循環(huán)累加的使用。
我們?cè)贏列輸入具體的數(shù)據(jù)，然后在B列實(shí)現(xiàn)循環(huán)累加。
比如我們?cè)贏1輸入12，B1顯示12，A1再輸入13，B1就循環(huán)累加，值為：12+13=25。
再次在A1輸入10，B1這次的循環(huán)累加值為：10+25=35。其余單元格以此類推，只要在A列輸入數(shù)字，B列就自動(dòng)循環(huán)累加。
實(shí)現(xiàn)的方法是：我們?cè)谛枰M(jìn)行excel循環(huán)累加的工作表標(biāo)簽，右鍵，選擇“查看代碼”，打開VBE編輯器，復(fù)制下面的代碼，并關(guān)閉VBE編輯器，回到工作表中A列開始輸入數(shù)據(jù)，excel會(huì)在B列自動(dòng)循環(huán)累加數(shù)值。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range("B" & Target.Row) = Val(Range("B" & Target.Row)) + Val(Target)
End Sub
如果是同一單元格循環(huán)累加，可以使用下面的代碼，比如A1輸入2，再輸入5，結(jié)果為2+5=7，再輸入10，結(jié)果為7+10=17。
Private Sub Worksheet_Change(ByVal Target As Range)
Static temp As Double
If Target.Address = "$A$1" Then
Application.EnableEvents = False
[a1] = Val(temp) + Val([a1])
Application.EnableEvents = True
End If
temp = [a1].Value
End Sub
