كيفية كتابة بيان الحالة في vba (مع مثال)

عبارة الحالة هي نوع من البيانات التي تتنقل عبر الشروط وترجع قيمة عند استيفاء الشرط الأول.

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

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

ينظر هذا المثال تحديدًا إلى كل خلية في النطاق B2:B9 ويعيد القيم التالية في النطاق C2:C9 :

• ” ممتاز ” إذا كانت القيمة في العمود B أكبر من أو تساوي 30.
• بخلاف ذلك، ” جيد ” إذا كانت القيمة في العمود B أكبر من أو تساوي 20.
• بخلاف ذلك، ” موافق ” إذا كانت القيمة في العمود B أكبر من أو تساوي 15.
• وإلا فإنه ” سيئ ” إذا لم يتم استيفاء أي من الشروط السابقة.

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

مثال: كتابة بيان حالة في VBA

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

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

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

 SubCaseStatement ()

    Dim i As Integer

    For i = 2 To 9
    
       Select Case Range(" B " & i).Value
            Case Is >= 30
                result=" Great "
           Box Is >= 20
                result = " Good "
            Case Is >= 15
                result=" OK "
           Case Else
                result=" Bad "
        End Select
        
        Range(" C " & i).Value = result
        
    Next i
    
End Sub

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

يعرض العمود C قيمة ممتازة أو جيدة أو مقبولة أو ضعيفة بناءً على القيمة المقابلة في العمود B.

مصادر إضافية

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

فبا: كيفية تصنيف قائمة القيم
VBA: كيفية حساب القيم الفريدة في النطاق
فبا: كيفية حساب عدد الصفوف في النطاق