Vba: كيفية العثور على القيمة القصوى في النطاق

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

يحسب هذا المثال الحد الأقصى للقيمة في النطاق B2:B11 ويعين النتيجة للخلية D2 .

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

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

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

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

 SubMaxValue ()
    Range(" D2 ") = WorksheetFunction.Max(Range(" B2:B11 "))
End Sub

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

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

يخبرنا هذا أن الحد الأقصى للقيمة في عمود النقاط هو 43.

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

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

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

 SubMaxValue ()
    'Create variable to store max value
    Dim maxValue As Single
    
    'Calculate max value in range
    maxValue = WorksheetFunction.Max(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Max Value in Range: " & maxValue 
End Sub

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

يخبرنا مربع الرسالة أن الحد الأقصى للقيمة في النطاق B2:B11 هو 43 .

لاحظ أننا في هذا المثال قمنا بحساب الحد الأقصى للقيمة في النطاق B2:B11 .

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

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

مصادر إضافية

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

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