excel使用VBA實現excel循環累加的代碼

Excel使用VBA實現excel循環累加的代碼

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 DoubleIf Target.Address = "$A$1" ThenApplication.EnableEvents = False[a1] = Val(temp) + Val([a1])Application.EnableEvents = TrueEnd Iftemp = [a1].ValueEnd Sub

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。