مشغل VBA Excel المنطقي

مشغل منطقي و | مشغل منطقي أو | مشغل منطقي لا

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

مشغل منطقي و

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

Dim score1 As Integer, score2 As Integer, result As String

score1 = Range("A1").Value
score2 = Range("B1").Value

If score1 >= 60 And score2 > 1 Then
result = "pass"
Else
result = "fail"
End If

Range("C1").Value = result

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

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

الاستنتاج: تفشل عمليات إرجاع VBA من Excel نظرًا لأن النتيجة 2 ليست أكبر من 1.

مشغل منطقي أو

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

Dim score1 As Integer, score2 As Integer, result As String

score1 = Range("A1").Value
score2 = Range("B1").Value

If score1 >= 60 Or score2 > 1 Then
result = "pass"
Else
result = "fail"
End If

Range("C1").Value = result

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

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

الاستنتاج: يمرر إرجاع VBA Excel لأن score1 أكبر من أو يساوي 60.

مشغل منطقي لا

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

Dim score1 As Integer, score2 As Integer, result As String

score1 = Range("A1").Value
score2 = Range("B1").Value

If score1 >= 60 And Not score2 = 1 Then
result = "pass"
Else
result = "fail"
End If

Range("C1").Value = result

Explanation: اذا كان score1 أكبر من أو يساوي 60 و score2 هو ليس يساوي 1 ، إرجاع إرجاع VBA Excel ، وإلا Excel VBA إرجاع الفشل.

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

الاستنتاج: تفشل عمليات إرجاع VBA من Excel لأن النتيجة 2 تساوي 1.