جمع و تفريغ الخلايا

[الفاينل]

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

يشهد الله بفرحيتي حينما علمت بهذا المنتدى

واهنئكم واهئن القائم على المنتدى الكثر من رائع

وما تقدم ماهو الاتعبير عن رايي لا لشي

طلبي هو انني اريد ان اضع خانه مثلا A1 وهي مبيعات يوميه لقطع معينه واريد ان تجمع مع خانه B 1 وتعود الخانه الاولى فارغه

وربما الصوره توضح اكثر

http://file9.9q9q.net/Download/51542386/DDDDDD.bmp.html

[الســـــــاهر]

السلام عليكم

انظر بالمرفقات

و ارجو ان يكون المطلوب

Book1.rar

تم تعديل يوليو 19, 2008 بواسطه الســـــــاهر

[الفاينل]

اخي الساهر

هذا هو المطلوب

بس هناك مشكله وهي اول رقم تضعه في الجدول A1 يدبل ومن ثم يصير تمام

وممكن تشرح لي الطريقه الله يعطيك العافيه

تم تعديل يوليو 19, 2008 بواسطه الفاينل

[ابوالزوز]

السلام عليكم ..

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

أخي الفاينل في المرفق تعديل على الحل السابق وهو بسيط ومفهوم

تقبل تحياتي ..

_______.rar

تم تعديل يوليو 19, 2008 بواسطه abuzzouz

[dddd]

الله ينور بصراح

[Ahmed Emannan]

شكراً

[الفاينل]

الله يعطيكم العافيه جميعا

الحقيقة عاجز عن شكركم

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

[الفاينل]

الاخ ابو عزوز

والاخ الساهر

ماقصرتو جاوبتو على سوالي بثبات وبسرعه بس تجاهلتم طلبي بالشرح

[الفاينل]

يا اخوان نريد حل او احد يشرح لنا يمكن الاخوان اللي اللي بسرعه جاوبو ماهم عارفين طريقة الشرح

[omar elhosseini]

الاخ الفاينل

اليك اخى الاسلوب الامثل لهذه الحالة مع الشرح ومثال بالمرفقات

والمثال الورقة الاولى عن خلية واحدة كمثال

والورقة الثانية تطبيق المثال على مدى محدد

معلومة عامة ::

اولا يجب ان يكون الكود فى حدث تغير خلايا الورقة وليس فى حدث اختيار خلايا الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
10  Application.EnableEvents = False
20  If Target.Address = "$A$1" Then [B1] = [B1] + [A1]
30  [A1] = ""
40  Application.EnableEvents = True
End Sub
End Sub

شرح الكود المستخدم :: السطرين رقمى 10 و 40 هما لمنع اهتزاز الشاشة عند عملية الكتابة والمسح للخلية A1 لأننا نتعامل مع حدث التغير فى احد خلايا الورقة والا استمر وميض الشاشة الى مالانهاية

20  If Target.Address = "$A$1"

الجزء الاول من السطر رقم 20 يقول اذا كانت الخليه المستهدفة هى A1 نفذ ما يأتى بعد ذلك وبصورة اخرى يعنى لا تنفذ هذا الكود الا اذا تم تغير فى الخلية A1

Then [B1] = [B1] + [A1]

الجزء الثانى من السطر رقم 20 يضع فى الخلية B1 مجموع الخلية B1 السابق مضافا اليه قيمة الخلية A1

30  [A1] = ""

السطر رقم 30 يقوم بتفريغ الخلية A1 بعد تحقق الشرط وعملية الجمع فى السطر رقم 20

شاهد المرفق

Test_1.rar

[الفاينل]

بارك الله فيك ورحم الله والديك

كفيت ووفيت واشكرك من كل قلبي

والشكر موصول لجميع اللاخوه الذين شاركو

والمشرفين القائمين على هذا الصرح الاكثر من رائع