فبا: كيفية حساب متوسط قيمة النطاق

يمكنك استخدام بناء الجملة الأساسي التالي لحساب متوسط قيمة النطاق في Excel باستخدام VBA:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

يحسب هذا المثال بالتحديد القيمة المتوسطة في النطاق B2:B12 ويعين النتيجة للخلية E2 .

إذا كنت تريد بدلاً من ذلك عرض القيمة المتوسطة في مربع رسالة، فيمكنك استخدام بناء الجملة التالي:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

توضح الأمثلة التالية كيفية استخدام كل من هذه الطرق عمليًا مع مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول لاعبي كرة السلة المختلفين:

مثال 1: حساب متوسط النطاق باستخدام VBA وعرض النتائج في الخلية

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

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubAverageRange ()
    Range(" E2 ") = WorksheetFunction.Average(Range(" B1:B12 "))
End Sub

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

لاحظ أن الخلية E2 تحتوي على القيمة 21.27273 .

يخبرنا هذا أن متوسط القيمة في عمود النقاط هو 21.27273.

المثال 2: حساب متوسط النطاق باستخدام VBA وعرض النتائج في مربع الرسالة

لنفترض أننا نريد بدلاً من ذلك حساب متوسط القيمة في عمود النقاط وعرض النتائج في مربع رسالة.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 SubAverageRange ()
    'Create variable to store average value
    Dim avg As Single
    
    'Calculate average value of range
    avg = WorksheetFunction.Average(Range(" B1:B12 "))
    
    'Display the result
    MsgBox " Average Value in Range: " & avg
End Sub

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

يخبرنا مربع الرسالة أن متوسط القيمة في النطاق B2:B12 هو 21.27273 .

لاحظ أننا في هذا المثال قمنا بحساب متوسط القيمة في النطاق B2:B12 .

ومع ذلك، إذا كنت تريد بدلاً من ذلك حساب متوسط القيمة في عمود بأكمله، فيمكنك كتابة B:B بدلاً من ذلك.

سيؤدي هذا إلى حساب متوسط القيمة لكل خلية في العمود B.

مصادر إضافية

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

فبا: كيفية كتابة وظائف AVERAGEIF وAVERAGEIFS
VBA: كيفية كتابة وظائف SUMIF وSUMIFS
VBA: كيفية كتابة وظائف COUNTIF وCOUNTIFS