السلام عليكم أحبتي أعضاء و رواد المنتدى ....... زملائي ممكن تعديل الكود و هو لأحد الزملاء بالمنتدى لكنه لا يعترف بما وراء الفاصلة حيث يجمع إلا الأعداد الطبيعية جزاكم الله خيرا
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "A1" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
.Select
Application.EnableEvents = True
End If
End With
End Sub