excel循環累加使用VBA事件和代碼自動完成累加是比較可行的方法。

　　我們以一個具體的例子來說明使用VBA實現excel循環累加的使用。

　　我們在A列輸入具體的數據，然后在B列實現循環累加。

　　比如我們在A1輸入12，B1顯示12，A1再輸入13，B1就循環累加，值為：12+13=25。

　　再次在A1輸入10，B1這次的循環累加值為：10+25=35。其余單元格以此類推，只要在A列輸入數字，B列就自動循環累加。

　　實現的方法是：我們在需要進行excel循環累加的工作表標簽，右鍵，選擇“查看代碼”，打開VBE編輯器，復制下面的代碼，并關閉VBE編輯器，回到工作表中A列開始輸入數據，excel會在B列自動循環累加數值。

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

　　如果是同一單元格循環累加，可以使用下面的代碼，比如A1輸入2，再輸入5，結果為2+5=7，再輸入10，結果為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