سؤال عن اقتران اكسل

[طولكرم]

السلام عليكم

بودي السؤال عن اقتران يقوم بمهمة المكدس أي يقرأ قيمة من خلية ويضيفها إلى خلية معينة ثم يقرأ قيمة أخرى من نفس الخلية السابقة ويضيف هذه القيمة إلى الخلية المضافة سابقا

مثال:

لو كان عندي خلية A2 وخلية D2

أرغب في قراءة قيمة من A2 وإضافتها إلى D2 ثم إدخال قيمة جديدة في A2 وإضافتها إلى D2 مرة أخرى وهكذا أي اقتران تجميعي

وشكرا لكم ويا حبذا سرعة الرد

[فلسطيني]

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

جرب الملف المرفق و ضع الرقم الذي تريد في الخلية A2 ثم اضغط الزر

فسيتم الترحيل حسب الكود التالي :-

Sub khaled()
Dim val As Integer
val = Sheets("sheet1").Range("a2").Value
Sheets("sheet1").Select
Range("d2").Select
ActiveCell.Value = ActiveCell.Value + val
End Sub

khaled.rar

[طولكرم]

أشكرك أخي الكريم فلسطيني

الكود يعمل تمام وبارك الله فيك ، لكن عندي سؤال: كيف يمكن أن يعمل على أكثر من خلية؟

فهمت قصدي يعني مثل نسخ المعادلة ، ومثل اقتران التفقيط الذي يوجد بهذا المنتدى

إذ أستطيع تنفيذها على عمود من الخلايا أو خلايا متعددة بمجرد سحبه بالماوس

وشكرا مرة أخرى

[halwim]

لدي فكرة منذ فترة تراودني وكنت أعتقد بأنه لايوجد لها حل ولكن بعد مشاهدتي لهذا الموضوع انبعث لدي الأمل من جديد سأطرحها وان شاء الله أجد الحل المطلوب كمايلي :

لنفترض أن الخلية A1 فيها الرقم 4 وهو إجمالي المبلغ الواصل من محمد مثلا

و بعد أيام قام محمد بدفع الباقي وهو 6 مثلا هنا سوف نضطر لمسح الرقم 4

ثم القيام بعملية جمع وهي 4+6 = 10 ثم كتابة (10) في الخلية A1 طبعا

الشغلة طويلة خصوصا إذا صارت مبالغ كبيرة بالملايين ..... ما أتمناه هو كتابة

كود أو ماكرو يقوم بعملية جمع للمبلغ الجديد مع المبلغ الموجود في الخلية A1

بحيث تحتفظ الخلية A1 دائما بآخر ما يو ضع فيها ولا ينمسح بكتابة رقم جديد

بل يزداد في عملية جمع مستمرة الى ما لا نهاية فلو كان فيها رقم 4 ثم كتبنا

فيها الرقم 6 فإنه يصبح فيها مباشرة الرقم 10 وهكذا .

[طولكرم]

لدي فكرة منذ فترة تراودني وكنت أعتقد بأنه لايوجد لها حل ولكن بعد مشاهدتي لهذا الموضوع انبعث لدي الأمل من جديد  سأطرحها  وان شاء الله أجد الحل المطلوب كمايلي :

لنفترض أن الخلية A1 فيها الرقم  4 وهو  إجمالي المبلغ الواصل من محمد مثلا

و بعد أيام قام محمد بدفع الباقي وهو  6 مثلا  هنا سوف نضطر لمسح الرقم 4

ثم القيام بعملية جمع  وهي  4+6 = 10  ثم كتابة (10) في الخلية A1  طبعا

الشغلة طويلة خصوصا إذا صارت مبالغ كبيرة بالملايين ..... ما أتمناه هو كتابة

كود أو ماكرو  يقوم بعملية جمع للمبلغ الجديد مع المبلغ الموجود في الخلية A1

بحيث تحتفظ الخلية A1  دائما بآخر ما يو ضع فيها ولا ينمسح بكتابة رقم جديد

بل يزداد في عملية جمع مستمرة الى ما لا نهاية فلو كان فيها رقم 4 ثم كتبنا

فيها الرقم 6 فإنه يصبح فيها مباشرة الرقم  10 وهكذا  .

<{POST_SNAPBACK}>

أخي الكريم هذا هو المطلوب تماماً

مع إمكانية تطبيق هذا الاقتران على عدة خلايا يعني مش لمحمد فقط إنما خليل وصبحي و و ....

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

وشكرا لكم

[halwim]

الأخ الكريم طولكرم

أبشركم جميعا أن هذه المسألة قد وضع لها حلا الأستاذ tameromar

فخرجت من عالم الخيال والأحلام إلى أرض الواقع الحل تجدونه على الرابط التالي :

http://www.officena.net/ib/index.php?showtopic=12754