Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect([A1:Y100], Target) Is Nothing Then
        oldvalue = Val(Target.Value)
        inputvalue = InputBox("请输入数量,按ENTER键确认!", "数值累加器")
        Target.Value = oldvalue + inputvalue
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Application.Intersect([A1:Y100], Target) Is Nothing Then
        oldvalue = Val(Target.Value)
        inputvalue = InputBox("请输入数量,按ENTER键确认!", "数值累加器")
        Target.Value = oldvalue + inputvalue
    End If
End Sub