(تمت الاجابة) برجاء المساعدة بكود او بمعادلة لعمل فكرة الجمع التراكمى فى نفس الخلية

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

مرفق ملف موضح به المطلوب ......... وجزاكم الله كل خير

عمل فكرة الجمع التراكمى.rar

[عبدالله المجرب]

السلام عليكم

اخي فضل جرب هذا الكود ضعه في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [E6]) Is Nothing Then

[G10] = [G10] + [E6]

End If

End Sub

[فضل حسين]

حبيب قلبى / المايسترو باشا

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

والنقطة هى اننى نسيت ان اوضح لسيادتك ان الخلية وهى E6 وهى التى تمد الخلية G10 بالقيم المتغيرة المراد جمعها .

هى اصلا بها معادلة جمع . بتتغير على حسب جمع خليتين او اكثر . وهذا خطأ من عندى لم اوضحه .

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

اكرر اسفى للمرة الثانية

وعلى فكرة ارفقت الملف موضح فيه النقظة الجديدة للتوضيح .

ومااريده الجمع التراكمى فى نفس الخلية من خلية بها معادلة

وفى انتظار رد سيادتك على احر من الجمر فهذا الامر مهم بالنسبة لى ياحبيبى يامايسترو

عمل فكرة الجمع التراكمى.rar

[عبدالله المجرب]

على عجالة

لانها دقت ساعة اغلاق الكمبيوتر

في حدث الصفحة ضع هذا الكود

Private Sub Worksheet_Calculate()

[G10] = [G10] + [E6]

End Sub

[فضل حسين]

الف شكر يامايسترو جزاك الله كل خير وربنا يباركلك ويبارك فى صحتك ويخليك لنا وللمنتدى وللجميع .