عامل تشغيل VBA "غير متساوٍ" | أمثلة خطوة بخطوة على VBA "لا يساوي"

Not Equal هو عامل تشغيل في VBA والذي يمكن أن يُطلق عليه أيضًا عامل نفي ، وهو دالة منطقية ، لذا فإن الناتج الذي تم إرجاعه بواسطة هذه الوظيفة إما صحيح أو خطأ ، ونحن نعلم أن عامل التشغيل المتساوي هو "=" هذا ولكن ليس مساويًا هو " "في VBA ، لذا مهما كانت القيمة التي نحصل عليها من عامل التشغيل المتساوي ، فسنحصل على قيمة معاكسة تمامًا باستخدام عامل التشغيل Not Equal.

عامل تشغيل "غير متساوٍ" في VBA

عادة ، نجري اختبارًا منطقيًا "ما إذا كان الشيء مساويًا لشيء آخر أم لا". في بعض الحالات ، نحتاج إلى إجراء اختبار "عدم المساواة" أيضًا. اختبار اللامساواة ليس إلا اختبارًا متساويًا. بشكل عام ، نقول إذا كان هناك شيء مساوٍ لشيء آخر أم لا ، إذا كان متساويًا ، فإنه يؤدي نوعًا ما من المهام إن لم يكن مهمة مختلفة. وبالمثل ، باستخدام اختبار عدم المساواة ، يمكننا أيضًا إجراء نوع من العمليات. يتم تمثيل "NOT EQUAL" في VBA من خلال مجموعة من الرموز أكبر من وأقل من. إذا تم الجمع بين هذين العاملين يصبح الرمز غير متساوي مثل "" .

كيف لا يساوي العمل في Excel VBA؟

يعمل VBA غير متساوٍ تمامًا عكس منطق يساوي عامل التشغيل. يساوي عامل التشغيل إرجاع TRUE إذا كان الاختبار الذي تم توفيره مرضيًا ، فإنه سيعيد FALSE. على سبيل المثال ، إذا قلت 10 = 10 فسيتم إرجاع TRUE أو FALSE.

على الجانب الآخر ، تعمل كلمة "غير متساوية" في الاتجاه المعاكس ، إذا لم يكن الاختبار المنطقي المقدم في Excel متساويًا ، فسيعود فقط إلى TRUE أو خطأ.

على سبيل المثال ، إذا قلت 10 10 فسوف تُرجع FALSE لأن 10 تساوي 10. من أجل الحصول على نتيجة TRUE ، يجب ألا تكون قيمة واحدة مساوية للقيمة الأخرى.

أمثلة على عدم المساواة في Excel VBA

فيما يلي أمثلة على عامل التشغيل لا يساوي في Excel VBA.

مثال 1

سنرى الآن كيفية استخدام علامة VBA Not Equal () عمليًا. انظر إلى الجزء أدناه من الكود.

رمز:

 NotEqual_Example1 () خافت k كسلسلة k = 100 100 MsgBox k End Sub 

نحن هنا نختبر ما إذا كان الرقم 100 لا يساوي الرقم 100. بالتأكيد نعلم أن الرقم 100 يساوي 100 ، لذا ستكون النتيجة خاطئة.

الآن سوف أقوم بتغيير المعادلة.

رمز:

 NotEqual_Example1 () خافت كسلسلة k = 100 99 MsgBox k End Sub 

الآن الاختبار هو ما إذا كان الرقم 100 لا يساوي 99. إذن ستكون النتيجة صحيحة.

المثال رقم 2

سنرى الآن كيفية استخدام عامل التشغيل غير المتكافئ هذا في أمثلة الوقت الفعلي. من أجل العرض التوضيحي ، قمت بإنشاء بعض البيانات.

لدينا قيمتان ، "القيمة 1" و "القيمة 2".

الآن المطلوب هو إذا كانت القيمة 1 لا تساوي القيمة 2 ، فأنا بحاجة إلى النتيجة كـ "مختلفة" وإلا سأحتاج إلى النتيجة "نفسها".

الخطوة 1: تحديد متغير على أنه عدد صحيح.

رمز:

 Sub NotEqual_Example2 () Dim k As Integer End Sub 

الخطوة 2: افتح FOR NEXT LOOP من 2 إلى 9.

رمز:

 Sub NotEqual_Example2 () خافت k كعدد صحيح لـ k = 2 إلى 9 التالي k End Sub 

الخطوة 3: داخل الحلقة ، نحتاج إلى اختبار ما إذا كانت القيمة 1 لا تساوي القيمة 2. نظرًا لأننا نحتاج إلى نتائجنا الخاصة ، فنحن بحاجة إلى استخدام شرط IF.

رمز:

 Sub NotEqual_Example2 () Dim k as Integer For k = 2 To 9 If Cells (k، 1) Cells (k، 2) then Cells (k، 3) .Value = "different" Else Cells (k، 3) .Value = "نفس" End If Next k End Sub 

إذا كان الشرط يختبر ما إذا كانت القيمة 1 لا تساوي القيمة 2 أم لا. إذا لم يكن مساويًا ، فسيتم إرجاع "مختلف" ، وإذا كان مساويًا فسيتم إرجاع "نفس".

يمكنك نسخ ولصق كود فبا أدناه.

انسخ هذا الرمز إلى الوحدة النمطية الخاصة بك وقم بتشغيله باستخدام مفتاح F5 أو يدويًا. هذا سيعيد نتيجة مثل هذه.

إخفاء وإلغاء إخفاء الأوراق بعلامة غير متساوية

الطرق المختلفة لاستخدام الغناء غير المتكافئ هائلة. يمكننا استخدام هذه العلامة لتلبية احتياجاتنا.

# 1 - إخفاء كل الأوراق باستثناء ورقة واحدة

لقد رأينا هذا النوع من المواقف عدة مرات. كنا بحاجة إلى إخفاء جميع الأوراق باستثناء الورقة المعينة.

على سبيل المثال ، إذا كنت تريد إخفاء جميع الأوراق باستثناء اسم الورقة "بيانات العميل" ، فيمكنك استخدام هذا الرمز.

رمز:

 Sub Hide_All () Dim Ws كأوراق عمل لكل Ws في ActiveWorkbook.Worksheets If Ws.Name "بيانات العميل" ثم Ws.Visible = xlSheetVeryHidden End If Next Ws End Sub 

ملاحظة: قم بتغيير اسم ورقة العمل إلى اسم ورقة العمل الخاصة بك.

# 2 - إظهار كافة الأوراق باستثناء ورقة واحدة

وبالمثل ، يمكننا أيضًا إظهار جميع الأوراق باستثناء الورقة الواحدة. استخدم الكود أدناه للقيام بذلك.

رمز:

 Sub Unhide_All () Dim Ws كأوراق عمل لكل Ws في ActiveWorkbook.Worksheets If Ws.Name "بيانات العميل" ثم Ws.Visible = xlSheetVisible End If Next Ws End Sub 

يمكنك تنزيل قالب VBA لا يساوي إلى Excel هنا - قالب عامل تشغيل VBA غير متساوٍ