كيفية استخدام sumproduct في vba (مع مثال)

يمكنك استخدام بناء الجملة الأساسي التالي لاستخدام SUMPRODUCT في VBA:

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

سيقوم هذا المثال المحدد بحساب مجموع حاصل ضرب القيم في النطاقين B2:B11 و C2:C11 وإرجاع النتيجة في الخلية E2 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية استخدام SUMPRODUCT في VBA

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

لنفترض أننا نريد حساب إجمالي إيرادات المتجر عن طريق ضرب السعر بعدد الوحدات ثم أخذ المجموع.

يمكننا استخدام طريقة VBA SumProduct للقيام بذلك:

 SubSumProduct ()
Range(" E2 ") = WorksheetFunction.SumProduct(Range(" B2:B11 "), Range(" C2:C11 "))
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

مجموع حاصل ضرب القيم بين النطاقين B2:B11 و C2:C11 هو 139 .

يتم عرض هذه القيمة في الخلية E2 ، كما حددنا في الماكرو.

يمكننا التحقق من صحة ذلك عن طريق حساب مجموع المنتجات بين النطاقين يدويًا:

مجموع النواتج: (4*1) + (3*5) + (3*4) + (2*7) + (2*3) + (5*5) + (3*5) + (2*6) ) + (5*6) + (2*3) = 139 .

وهذا يتوافق مع القيمة المحسوبة بواسطة أسلوب VBA SumProduct .

ملاحظة : يمكنك العثور على الوثائق الكاملة لأسلوب VBA SumProduct هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

فبا: كيفية إضافة القيم في النطاق
فبا: كيفية حساب متوسط قيمة النطاق
فبا: كيفية حساب عدد الصفوف في النطاق