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
核心關(guān)注：拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題：使用VBA實(shí)現(xiàn)excel循環(huán)累加的代碼
本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213397.html
相關(guān)文章
