جمع بواسطه الكود

[captinasd]

الاخوة الكرام

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

ارجوا مساعدتى فى الملف المرفق حيث اريد فى الخلية c2 محموع كل من الخليتين a2 و b2 يمكن بالطبع ان استخدم معادلة سهله للغايه وهى

)SUM=(A2:B2

ولكن ليس هذا المطلوب بدقة المطلوب الا يكون فى الخلية c2 معادلات ولكن قيم وقيم فقط اى ان المطلوب كود يقوم بالجمع ويضع القيمه داخل الخلية مع تكرار الكود بالطبع لباقى الصفوف مهما اختلف عدد الصفوف وهذا بالطبع هام ولكم جزيل الشكرBook111.rar

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

انشاء الله يكون هذا هو المطلوب

كود الجمع.rar

[captinasd]

الاخ الفاضل ولد المجرب

جزاك الله خيرا واشكرك شكرا جزيلا بالفعل هو المطلوب واجابة صحيحه مائة فى المائة واشكرك عليها وبشده واكرر شكرى على استجابتك ووقتك ومجهودك وتعبك واهتمامك واشكر الله عز وجل على توفيقه لك

ولكن الكود بالنسبه لى صعب ولا استطيع تعديله كى اضيف خلايا كثير للجمع فمثلا اريد اضافة a,b,c,d,e,f وكذلك اريد اضافة معادلات اخرى غير الجمع مثل الضرب والقسمه والطرح وغيرها وعلى نطاقات مختلفة فهل استطيع ذلك بنفس هذا الكود ام ان هناك طرق اخرى بالكود ايضا اسهل من ذلك

ارجوا ان يوفقك الله بالرد ويكافئك الله بالاجر والثواب من عنده

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

تم تعديل ديسمبر 30, 2010 بواسطه captinasd

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

انشاء الله تفهم التغيير الذي حدث في الكود بخصوص العمليات والتغييرات واذا لم تفهم فانا على اتم الاستعداد للشرح

كود الجمع والضرب والقسمة والطرح.rar

[captinasd]

اخى الفاضل ولد المجرب

اتقدم لك بخالص شكرى وتقديرى على مجهودك وتعبك جزاك الله من عنده خير جزاء ووفر عطاء اللهم امين

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

[captinasd]

اخى الكريم اشكرك شكرا جزيلا فمن خلال شرح لاحد الاخوة الافاضل الزميل المتالق عماد الحسامى للدالة Offset تمكنت قليلا من معرفة المقصود بالمعادلات التى تفضلتم بوضوعها وجارى محاولة تأكيد المعرفة وتثبيت المعلومه لذا جزاك الله كل خير وجعل الجنة اول واخر مرورك ان شاء الله تعالى واشكر لك تعبك وللاخوة الكرام مساعدتهم للاخرين ولكن لى استفسار هل يمكن وضع هذا الكود من خلال زر امر يعمل من خلاله بدلا من ان يعمل تلقائيا وجزاك الله خيرا

تم تعديل ديسمبر 30, 2010 بواسطه captinasd

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

اخى الكريم اشكرك شكرا جزيلا فمن خلال شرح لاحد الاخوة الافاضل الزميل المتالق عماد الحسامى للدالة Offset تمكنت قليلا من معرفة المقصود بالمعادلات التى تفضلتم بوضوعها وجارى محاولة تأكيد المعرفة وتثبيت المعلومه لذا جزاك الله كل خير وجعل الجنة اول واخر مرورك ان شاء الله تعالى واشكر لك تعبك وللاخوة الكرام مساعدتهم للاخرين ولكن لى استفسار هل يمكن وضع هذا الكود من خلال زر امر يعمل من خلاله بدلا من ان يعمل تلقائيا وجزاك الله خيرا

شاهد المرفق وانشاء الله يفي بالغرض

الجمع والضرب والطرح والقسمة بزر امر.rar

[captinasd]

الاخ الكريم الفاضل ابو احمد ( ولد المجرب ) اتقدم لك بخالص شكرى وتقديرى على تعبك ومجهودك الشاق فى ملفى جعل الله وقتك وجهدك فيه فى ميزان حسناتك ان شاء الله وجزاك عنى خير جزاء فقد وفقك الله بحمده الى المطلوب فجزالك الله خيرا واشكرك شكرا جزيلا على متابعتك وووقتك ومجهودك واكرر شكرى لك وادعوا الله ان يسر خاطرك ويريح بالك ويحقق لك كل ما تتمنى وشكرا مرات ومرات ومرات وجزاك الله خيرا

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

اخي العزيز captinasd اشكرك جزيل الشكر على هذا الكلام الجميل وانا بدوري اوجه كل حب واحترام لاساتذة المنتدى الكرام الذين لا يبخلون علينا باي شي

ابواحمد

[عصام2008]

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

جزاك الله خيرا أخي عبدالله على هذه الابداعات الجميلة ولكن لي سؤال

كيف يمكن جمع خلايا العمود الواحد ووضع الناتج في أول خليه في هذا العمود

[الـعيدروس]

السلام عليكم

الاخ ايسم

جرب هذا الكود

Sub AA()

[A1] = WorksheetFunction.Sum(Range(Cells(2, "A").Address, Cells(Rows.Count, "A").Address))

End Sub