الجمع بالماكرو

[خالد الشاعر]

السادة الخبراء

عند ملف بجمع 100 خلية مع 100 خلية اخرى

عن طريق الماكرو بهذة المعادلة [J5] = [J5] + [D5]

فهل يوجد طريقة لجمع المائة خلية من غير ما اكتب مائة معادلة لكل خلية مثل السابقة

ولكم كل الشكر

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

أستخدم الكود البسيط النالى

Sub DOIT()

    Range("C2:C101").ClearContents

    For i = 2 To 101

        Cells(i, "C").Value = Cells(i, "A").Value + Cells(i, "B").Value

    Next i

End Sub

مرفق ملف

السلام عليكم

ADD.rar

[خالد الشاعر]

اشكرك استاذى العزيز على هذا الحل

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

ولك كل الشكر

[خالد الشاعر]

للرفع

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

أرفق ملف حتى أستطيع الفهم

و نصيحه لك

أترك فرصه يوم على الأقل حتى يمكن الرد و ليس عده ساعات لان الالحاح قد يترك رد فعلى عكسى

السلام عليكم

تم تعديل أكتوبر 16, 2009 بواسطه هادى محمد المامون سالم

[خالد الشاعر]

اشكرك استاذ هادى

واسف على الاستعجال

مرفق ملف

Book111111111.rar

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

أسف اخى الكريم

لا أستطيع فهمك

السلام عليكم

تم تعديل أكتوبر 16, 2009 بواسطه هادى محمد المامون سالم

[خالد الشاعر]

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

[هادى محمد المامون سالم]

بسم الله الرحمن الرحيم

جرب الملف المرفق

السلام عليكم

Add_01.rar

[أ / محمد صالح]

بعد إذن أخي هادي

جرب أخي صاحب السؤال هذا الكود الذي عرضه أخونا هادي بتعديل بسيط

Sub sum100()

    For i = 2 To 101

        Cells(i, "C").Value = Cells(i, "C").Value + Cells(i, "B").Value

    Next i

End Sub

هذا الكود يقوم بجمع الخلايا الموجودة في العمود B مع الخلايا الموجودة في العمود C ويعرض الناتج في العمود C وذلك لمدة 100 صف

ابتداء من الصف الثاني (2) للصف 101

أتمنى أن يكون هو المطلوب

[خالد الشاعر]

استاذ Mas123الف شكر هو دة المطلوب الف شكر تسلم ايدكو الف شكر للاستاذ هادى اثقل عليكم لى طلب اخر فى هذه المشاركة ممكن المساعدةولكم جزيل الشكر و دائماً فى تقدمhttp://www.officena.net/ib/index.php?showtopic=29889

[خالد الشاعر]

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

sum_AA_numbers.rar

[أ / محمد صالح]

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

أخي الكريم

الملف المرفق غير موضوعك نهائيا

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

فمثلا الخلية a1 بها قيمة مثلا 5 ثم كتبت بها 10 فستصبح قيمة هذه الخلية 15 بعد الانتهاء من الكتابة

وموضوعك حمع 100 صف من خليتين وإظهار الناتج في أحدهما

[خالد الشاعر]

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

[أ / محمد صالح]

ما الاستجابة التي تريدها من البرنامج عند مسح الخلية؟

فالطبيعي حسب الكود أن تعود لما كانت عليه قبل الحذف

[خالد الشاعر]

اشكرك استاذ mas123الاستجابة المطلوبة انة يمسح الرقم عن الطلبواسف استاذ ماس لى طلب اخر فى مشاركة لى بعنوان ترحيل الى ملفhttp://www.officena.net/ib/index.php?showtopic=29889برجاء المساعدة فى ترحيل الفاتورة الى ملف مستقلولك كل الشكر والاحترام