السلام عليكم بها نبدأ
جرب الكود التالي في حدث ورقة العمل

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
            Application.EnableEvents = False
                .Value = dAccumulator: .Select
            Application.EnableEvents = True
        End If
    End With
End Sub

تمام استاذنا حضرتك عبقرى ربنا يحفظك يارب ويزيدك علما يارب حاولت اغير النطاق الى a2:a1000
لم يتغير واريد ان تظهر فى كل خلية ادخل بها ارقام =1+2+3+4+5+6
لكى اعرف الارقام التى ادخلتها بينما الكود يجمع بالخلية تمام بس مش بعرف الارقام التى دخلت ايه
السبب ادخل بيانات لاشخاص كل شخص له اكثر من مبلغ مثلا 100+200+300
اريد بدل ما اكتب معادلة =100+200+300
ان اكتب 100 ثم 200 ثم 300 اجد 600 وعندما اقف عليها اعرف المبلغ التى ادخلتها
ربنا يكرمك استاذ ياسر

بارك الله فيك أخي أبا الحسن
يمكن استخدام خلية أخرى لتخزين المدخلات بها .. حاول فيها بنفسك

استاذ ياسر حاولت وبأت الامور بالفشل ممكن نظرة على هذا المصنف
مشكور استاذ ياسر بارك الله فيك

أخي الكريم أبا الحسن
الطلب غير منطقي في حقيقة الأمر ، يمكن حل المشكلة باستخدام عمود مساعد لتخزين القيم فيه ..
جرب الكود التالي عله يفي بالغرض مع العلم أنني غير مقتنع بالطلب

Const iCol As Integer = 15

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Target
        If .Cells.CountLarge = 1 And .Column = 1 Then
            If Not IsEmpty(.Value) And IsNumeric(.Value) Then
            Application.EnableEvents = False
                .Offset(, iCol).Value = .Offset(, iCol).Value & IIf(.Offset(, iCol).Value = Empty, Empty, "+") & Target.Value
                .Value = Evaluate(.Offset(, iCol).Value)
                .Select
            Application.EnableEvents = True
            End If
        End If
    End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim tmp
    With Target
        If .Cells.CountLarge = 1 And .Column = 1 Then
            Application.EnableEvents = False
                Cancel = True
                tmp = Target.Value
                Target.Value = .Offset(, iCol).Value
                Application.Wait Now + TimeValue("00:00:02")
                Target.Value = tmp
            Application.EnableEvents = True
        End If
    End With
End Sub

رائع استاذى الله يحفظك يارب تمام جدا مذهل هذا هو المطلوب ويفى بالغرض جداااااااا حضرتك اسطورة بالبرمجة ماشاء الله
ممكن حضرتك توضح لى لو حبيت اغير العمود اغير ايه فى الكود
مع خالص الشكر والتقدير لحضرتك

تغيير العمود جعلته سهل بإعلان ثابت في أول سطر بالكود بحيث يسهل عليك تغيير رقم العمود كما تريد.
بارك الله فيك والحمد لله الذي بنعمته تتم الصالحات.

اشكرك استاذ ياسر قمت بتغير الرقم 1 الى 4
العمود يقوم بالتجميع تمام بس ارقام الجمع لم تظهر فى العمود p مثل ما تظهر عندما اعمل على الكود بدون تعديل
فغيرت كل رقم 1 بالكود الى اربعة فلم يعمل الكود
بارك الله فيك استاذياسر
عايز اتعلم اغير العمود ويظهر لى ارقام ناتج الجمع1+2+5+8
مشكور احترامى

حاول تتبع الكود سطر بسطر باستخدام مفتاح F8 بعد عمل نقطة توقف في أول الكود باستخدام F9 ولاحظ كل تغير
هل تقصد أن تثوم بتغيير رقم العمود للمدخلات أم رقم العمود المساعد الذي يتم فيه تخزين القيم؟

اشكرك استاذ ياسر غيرت رقم عمود المدخلات
بتغير الرقم 1للى 4 فلم يظهر العمود المساعد
اشكرك استاذ ياسر ربنا يحفظك يارب

العمود المساعد مرتبط بعملية إزاحة بمقدار 15 عمود من العمود الهدف الذي به المدخلات .. لذا سينتقل العمود المساعد لعمود آخر .. لاحظ الأعمدة بشكل جيد بعد عملية إدخال واحدة على الأقل

تمام تم استاذنا الله يبارك فيك يارب
شكر وتقدير واحترام من اخيك