如何在同一儲存格輸入數值累計

小凱

如何在同一儲存格輸入數值累計，如在A1輸入1，再次輸1=2，再次輸1=3，再次輸1=4 請問如何做到，我有發過帖子怎麼不見了，請幫忙。

Rowen

'VBA: Dim A As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells(1, 1).Address = Range("A1").Address Then Application.EnableEvents = False If [A1] = "Reset" Or [A1] = "" Then [A1] = "" A = 0 Else A = A + 1 [A1] = A End If Application.EnableEvents = True End If End Sub

小凱

謝謝板主：正是我要的。 請問板主：如果想要改輸入5，就是加5，輸入10就是加10，請問修改那一段句子。

Rowen

'输入多少,累加多少: Dim vLastNum As Variant Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells(1, 1).Address = Range("A1").Address Then Application.EnableEvents = False If [A1] = "Reset" Or [A1] = "" Then [A1] = "" vLastNum = 0 Else [A1] = [A1] + vLastNum vLastNum = [A1] End If Application.EnableEvents = True End If End Sub

小凱

板主：你是我的偶像，真的非常感謝。

Rowen

别客气! 记得常来, 常带朋友来, 一起分享大家的智慧.

小凱

板主你好：我在a2中設為自動編號，為第一程序，輸入完自動編號，才開始輸入菜單，我想簡化步驟，如我在b10輸入時，自動編號就自動加一號，也就是a2加一號，請幫忙。

qq5000

Rowen，厉害。 等我有问题的时候再问你。