/ / Excel VBA If Then Statement

Excel VBA If Then Statement

إذا ثم بيان | بيان آخر

استخدم ال إذا ثم العبارة في Excel VBA لتنفيذ خطوط التعليمات البرمجية في حالة استيفاء شرط معين.

إذا ثم بيان

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

Explanation: اذا كانت الدرجة أكبر من أو تساوي 60 ، فسوف تمر ترجمات VBA من Excel.

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

Excel VBA If Then Statement

ملاحظة: إذا كانت النتيجة أقل من 60 ، فإن Excel VBA يضع قيمة نتائج المتغير الفارغ في الخلية B1.

بيان آخر

ضع زر أمر في ورقة العمل الخاصة بك وقم بإضافة الأسطر التعليمات البرمجية التالية:

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then
    result = "pass"
Else
    result = "fail"
End If

Range("B1").Value = result

Explanation: اذا كانت الدرجة أكبر من أو تساوي 60 ، فسوف تمر ترجمات VBA Excel ، وإلا فسوف تفشل عمليات إرجاع VBA من Excel.

النتيجة عند النقر فوق زر الأمر الموجود على الورقة:

Excel VBA Else Statement

ملحوظة: فقط إذا كان لديك سطر رمز واحد بعد ذلك ثم لا يوجد بيان آخر ، فإنه يسمح بوضع سطر رمز مباشرة بعد ذلك ثم إلى حذف (ترك خارج) End If (المثال الأول). وإلا ابدأ سطرًا جديدًا بعد الكلمات Then and Else وانتهي بـ End If (المثال الثاني).

اقرأ أيضًا: