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

[صالح حمادي]

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

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

 

[سليم حاصبيا]

جرب هذا الملف

 

My_Function.rar

[صالح حمادي]

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

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

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

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

[سليم حاصبيا]

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

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

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

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

[ياسر خليل أبو البراء]

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

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

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

تقبل تحياتي

 

[صالح حمادي]

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

ما أقصده هنا أن كل خلية من العمود 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

 

 

[صالح حمادي]

بارك الله فيك أخي و أستاذي سليم سوف أقوم بالتطبيق و أطلعك على النتائج إن شاء الله

[صالح حمادي]

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

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

 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