طلب جمع

[وليد المصرى 1]

السلام عليكم ورحمة الله

هل يوجد كود جمع فى خانة واحدة ( نفس الخانة )

اقصد ان يكون الجمع الى اذا وضعت رقم 10 فى خانة وبعدها وضعت رقم 30 فى نفس الخانة يعطينى المجموع40 وهكذا

هل يوجد كود يقوم بهذا العمل ؟

اشكركم جميعا

تم تعديل سبتمبر 12, 2012 بواسطه goodlife

[الـعيدروس]

السلام عليكم

الاخ الفاضل goodlife

فرضا الخليه المراد استخدامها " A2 "

استخدم الكود التالي في حدث الورقة

Private Sub Worksheet_Change(ByVal T As Excel.Range)

On Error Resume Next

    Static S_Ali As Double

With T

    If Not Intersect(.Value, [A2]) Is Nothing Then

	    If Not IsEmpty(.Value) And IsNumeric(.Value) Then _

			 S_Ali = S_Ali + .Value Else: S_Ali = 0

	    Application.EnableEvents = False

		    .Value = S_Ali

	    Application.EnableEvents = True

	    End If

    End With

End Sub

[طارق محمود]

السلام عليكم

كنت قد حاولت ولم أفلح

وعندما رأيت حل أخي العبقري أبونصار باستخدام الثنائية الرائعة

Application.EnableEvents = False

................

Application.EnableEvents = True

عندها أكملت الحل ، سأرفقه أيضا للإثراء

في المرفق لن تلتزم بخلية محددة ، أي خلية تضع بها رقم سيضاف علي ماكان فيها

تفضل المرفق

add_in_same_cell.rar

[alfahad]

جميل جداً

ماذا لو اردنا ان يكون في الخلية P5 ناتج جميع ما يكتب في (B4:B200 ) حيث ان المدى (B4:B200) يوجد به ارقام تتراوح من 0 الى 8000

[الـعيدروس]

بيكون كالتالي

Private Sub Worksheet_Change(ByVal T As Excel.Range)

Static S_Ali%

If T.Row < 2 And T.Column <> 2 Then Exit Sub

With T

    If Not Intersect(T, [B4:B200]) Is Nothing Then

    If Not IsEmpty(.Value) And IsNumeric(.Value) Then

		    S_Ali = S_Ali + .Value

		    Else: S_Ali = 0

    End If

    Application.EnableEvents = False

    [P5] = S_Ali

    Application.EnableEvents = True

    End If

End With

End Sub

تم تعديل سبتمبر 12, 2012 بواسطه عباد

[alfahad]

شاكر لك يا ابا نصار

وليس بمستغرب تلبية الطلب على ابن اليمن السعيد

حفظك الله وحفظ اخوننا في بلد الايمان

[وليد المصرى 1]

اشكركم جميعا اخواتى على هذا المجهود العظيم

جزاكم الله خيرا