وظيفة و VBA | كيفية استخدام AND Logical Operator في VBA؟
وظيفة Excel VBA AND
AND هي وظيفة منطقية بالإضافة إلى عامل منطقي مما يعني أنه إذا تم استيفاء جميع الشروط المنصوص عليها في هذه الوظيفة ، فسنحصل فقط على النتيجة الحقيقية بينما إذا فشل أي من الشروط ، فسيتم إرجاع الناتج ليكون خطأ ، أمر AND يحمل في ثناياه عوامل في VBA للاستخدام.
آمل أن تكون قد استعرضت مقالتنا حول "VBA OR" و "VBA IF OR". هذه الوظيفة هي عكس الدالة OR. في دالة OR ، احتجنا إلى تلبية أي من الشروط المنطقية المتوفرة للحصول على النتيجة على أنها TRUE. ولكن في وظيفة AND يكون العكس تمامًا. من أجل الحصول على نتيجة TRUE ، يجب تلبية جميع الاختبارات المنطقية المتوفرة في برنامج Excel.
حسنًا ، انظر إلى بناء جملة الدالة AND في Excel.
[اختبار منطقي] و [اختبار منطقي] و [اختبار منطقي]
في ما سبق ، لدي درجتا اختبار من أصل 600.
في عمود النتائج ، أحتاج إلى الحصول على النتيجة على أنها TRUE إذا كانت درجة كلا الاختبارين أكبر من 250.
انظر إلى الصورة أدناه.
عندما نطبق الوظيفة المنطقية وحصلنا على النتائج. في الخلية C4 و C5 ، حصلنا على النتيجة على أنها TRUE لأن درجات الاختبار 1 والاختبار 2 أكبر من أو تساوي 250.
انظر إلى الخلية C6 هنا لدينا FALSE على الرغم من أن درجة الاختبار 2 تساوي 250. هذا لأن النتيجة في الاختبار 1 هي 179 فقط.
أمثلة لاستخدام VBA و Function
يمكنك تنزيل قالب VBA و Excel هذا هنا - قالب VBA و Excelمثال 1
على سبيل المثال ، سنختبر الأرقام هنا ، سواء 25> = 20 و 30 <= 31.
الخطوة 1: قم بتعريف المتغير على أنه سلسلة.
رمز:
AND_Example1 فرعي () خافت K كنهاية سلسلة فرعية
الخطوة 2: بالنسبة للمتغير "k" ، سنخصص القيمة من خلال تطبيق دالة AND.
رمز:
AND_Example1 () خافت K كسلسلة K = End Sub
الخطوة 3: أدخل الشرط الأول بالشكل 25> = 20.
رمز:
AND_Example1 () خافت K كسلسلة K = 25> = 20 End Sub
الخطوة 4: الآن افتح دالة AND وقم بتوفير الاختبار المنطقي الثاني ، أي 30 <= 29.
رمز:
AND_Example1 () خافت K كسلسلة K = 25> = 20 و 30 <= 29 End Sub
الخطوة 5: اعرض الآن نتيجة المتغير "k" في مربع الرسالة في VBA.
رمز:
AND_Example1 () خافت K كسلسلة K = 25> = 20 و 30 <= 29 MsgBox K End Sub
قم بتشغيل الماكرو لمعرفة النتيجة.
حصلنا على النتيجة على أنها FALSE لأننا طبقنا شرطين أولهما 25> = 20 ، تم استيفاء هذا الشرط وبالتالي كانت النتيجة صحيحة والشرط الثاني 30 <= 29 هذه النتيجة غير مرضية هي FALSE. من أجل الحصول على النتيجة كـ TRUE ، يجب استيفاء كلا الشرطين.
المثال رقم 2
الآن سأغير الاختبار المنطقي إلى "100> 95 و 100 <200"
رمز:
AND_Example2 () خافت k كسلسلة k = 100> 95 و 100 <200 MsgBox k End Sub
قم بتشغيل الكود لرؤية النتيجة.
هنا حصلنا على TRUE كنتيجة لأن
الاختبار المنطقي الأول: 100> 95 = صحيح
الاختبار المنطقي الثاني: 100 <200 = TRUE
نظرًا لأننا حصلنا على نتائج TRUE لكلا الاختبارين المنطقيين ، فإن النتيجة النهائية لدينا هي TRUE.
المثال رقم 3
الآن سنرى البيانات من ورقة العمل. استخدم البيانات التي استخدمناها لإظهار مثال على وظيفة Excel AND.
هنا الشرط هو اختبار 1 نقاط> = 250 ودرجة الاختبار 2> = 250 .
نظرًا لأن لدينا أكثر من خلية واحدة من البيانات ، نحتاج إلى استخدام الحلقات لتجنب كتابة أسطر من الرموز غير الضرورية والمستهلكة للوقت. لقد كتبت الكود أدناه من أجلك ، والصيغة ، والمنطقية هي نفس الشيء الوحيد الذي استخدمته "VBA For Next Loop".
رمز:
AND_Example3 () خافت ك كعدد صحيح لـ k = 2 إلى 6 خلايا (ك ، 3) القيمة = خلايا (ك ، 1)> = 250 وخلايا (ك ، 2)> = 250 ك التالي نهاية فرعية
سيعطي هذا النتيجة تمامًا مثل وظيفة ورقة العمل الخاصة بنا ولكننا لن نحصل على أي صيغ ، نحصل على النتائج فقط.
على هذا النحو ، يمكننا تطبيق دالة منطقية AND لاختبار شروط متعددة والتي يجب أن تكون جميعها صحيحة للوصول إلى النتائج المرجوة.
يعمل هذا بشكل معاكس تمامًا للدالة OR ، حيث تتطلب OR أن يكون أي شرط من الشروط المقدمة صحيحًا للوصول إلى النتائج ولكنه يتطلب نتيجة بنسبة 100٪ في اختبار منطقي للوصول إلى النتائج.
