اذهب الي المحتوي
أوفيسنا

طريقة جمع أو ضرب أو قسمة عمودين في عمود ثالث بإستعمال VBA


الردود الموصى بها

السلام عليكم و رحمة الله و بركاته تقبل الله منا و منكم صالح الأعمال.

لدي سؤال عن كيفية جمع أو ضرب أو قسمة عمودين في عمود ثالث بإستعمال VBA

 

رابط هذا التعليق
شارك

شكرا جزيلا أخي لكنني لا أريد وحدة نمطية

فأنا ما أريده هو جعل قيمة العمود F تساوي جمع أو ضرب أو قسمة العمود D و العمود E بإستعمال VBA

أو حتى جمع ثلاثة أعمدة مثلا : E=A+B+C

و لك جزيل الشكر أخي

رابط هذا التعليق
شارك

لم افهم جيداً السؤال 

هل تريد ان تكون الخلية A1+B1+C1=E1 

ام ان الخلية E1=مجموع الخلايا في العامود A +مجموع الخلايا في العامود B+مجموع الخلايا في العامود C

 وما العمل في هذه الجالة بالنسبة للضرب والقسمة

  • Like 1
رابط هذا التعليق
شارك

أخي الكريم صالح يرجى وضع شكل النتائج المتوقعة ليسهل تقديم المساعدة

الأمر يمكن بكل سهولة باستخدام الدالة المعرفة الرائعة التي تقدم بها أخونا سليم .. يمكن استخدام الدالة المعرفة في كود فرعي ..

ولكن أفضل أن ترفق ملف بشكل المعطيات وشكل النتائج المتوقعة

تقبل تحياتي

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم لكم جزيل الشكر أخوتي على المداخلة

ما أقصده هنا أن كل خلية من العمود E تساوي مجموع الخلايا التي قبلها من نفس السطر A1+B1+C1=E1 و A2+B2+C2=E2 و A3+B3+C3=E3 ...و هكذا.

لأن الذي أحتاجه أنا هو  F4= SUM(C4:E4)/COUNT(C4:E4) و F5= SUM(C5:E5)/COUNT(C5:E5) ......و هكذا.

و  H2= (G2*3+F2*2)/5 و H3= (G3*3+F3*2)/5 و هكذا.

لكني أحببت أن أفعلها بــ VBA لأن هذا الملف سوف نقوم بتصديره من قاعدة بيانات أكسس و هذا المرفق يوضح ذلك.

 

جمع وضرب عمودين.rar

رابط هذا التعليق
شارك

جرب هذا الماكرو

Sub fix_Them()
lr = Sheets("ورقة1").Cells(Rows.Count, "A").End(3).Row

Sheets("ورقة1").Range("f2").Formula = "=Average(d2:e2)"
Range("f2").AutoFill Destination:=Range("f2:f" & lr), Type:=xlFillDefault
Range("f2:f" & lr).Value = Range("f2:f" & lr).Value

Sheets("ورقة1").Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5"
Range("h2").AutoFill Destination:=Range("h2:h" & lr), Type:=xlFillDefault
Range("h2:h" & lr).Value = Range("h2:h" & lr).Value


End Sub

 

 

  • Like 3
رابط هذا التعليق
شارك

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

الحمد لله لقد نجحت معي الفكرة بعد إجراء بعض التغييرات على الكود و أصبح كما يلي:

 lr = ws.Range("A1").CurrentRegion.Rows.Count
 .Range("f2").Formula = "=SUM(c2:e2)/count(c2:e2)"
 .Range("f2").AutoFill Destination:=.Range("f2:f" & lr), Type:=xlFillDefault

 .Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5"
 .Range("h2").AutoFill Destination:=.Range("h2:h" & lr), Type:=xlFillDefault

 

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information