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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

ذات صلة: كيفية العثور على القيمة القصوى في النطاق باستخدام VBA

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

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

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

 SubMinValue ()
    Range(" D2 ") = WorksheetFunction.Min(Range(" B2:B11 "))
End Sub

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

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

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

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

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

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

 SubMinValue ()
    'Create variable to store min value
    Dim minValue As Single
    
    'Calculate min value in range
    minValue = WorksheetFunction.Min(Range(" B2:B11 "))
    
    'Display the result
    MsgBox " Min Value in Range: " & minValue 
End Sub

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

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

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

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

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

مصادر إضافية

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

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