مقارنة VBA Operaتورس: لا يساوي، Less من أو يساوي

إن رؤية كل عامل مطبق على متغيرين يجعل من السهل التنبؤ بالنتيجة المُعادة.

مثال كود المصدر

المقارنة المتساوية Operaتور

If 2 = 1 Then
    MsgBox "True", vbOKOnly, "Equal Operator"
Else
    MsgBox "False", vbOKOnly, "Equal Operator"
End If

هنا،

• "إذا كان 2 = 1 إذن... وإلا... انتهى إذا" يستخدم عبارة if لتقييم الشرط "2 = 1"
• "رسالةBox... " هي وظيفة مدمجة تعرض مربع رسالة.
  • سيتم عرض المعلمة الأولى "True" أو "False" في مربع الرسالة. في مثالنا، 2 لا يساوي 1، وبالتالي، سيتم عرض "false" في مربع الرسالة.
  • المعلمة الثانية “vbOKOnly” هي الزر الذي يظهر في مربع الرسالة
  • المعلمة الثالثة "متساوية". Opera"tor" هو عنوان صندوق الرسالة.

يؤدي تنفيذ الكود أعلاه إلى النتائج التالية

يُعدّ هذا الاختبار الفردي أبسط أشكال الاختبارات. أما وحدات الماكرو الحقيقية فتجمع بين المقارنات وتتفرع بين عدة نتائج.

كيفية استخدام المقارنة Operators في جملة if

نادراً ما يكون عامل المقارنة مفيداً بمفرده. تُمرر نتيجته (صواب أو خطأ) إلى بنية القرار، وعبارة "إذا" هي الأكثر استخداماً. يوضح المثال أدناه تقييم الدرجة الموجودة في الخلية A1 وكتابة النتيجة بجانبها.

Sub GradeScore()
    Dim Score As Long

    Score = Sheet1.Range("A1").Value

    If Score >= 90 Then
        Sheet1.Range("B1").Value = "Distinction"
    ElseIf Score >= 50 Then
        Sheet1.Range("B1").Value = "Pass"
    ElseIf Score < 0 Then
        MsgBox "A score cannot be negative", vbCritical, "Invalid Entry"
    Else
        Sheet1.Range("B1").Value = "Fail"
    End If
End Sub

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

• الترتيب مهم: يتوقف VBA عند أول فرع يُرجع القيمة True. وضع النتيجة ≥ 50 قبل النتيجة ≥ 90 سيتم تصنيف كل درجة عالية على أنها نجاح.
• أما "وإلا" فهو المصطلح الشامل: أي قيمة تفشل في كل اختبار سابق تنتقل إلى Else، لذلك لا يتم ترك أي مدخلات دون معالجة.
• ممنوع التسلسل: لا يمكن لـ VBA القراءة 0 ≤ النتيجة ≤ 100. كتابة إذا كانت النتيجة أكبر من أو تساوي صفرًا وأقل من أو تساوي 100، يستخدم ال العوامل المنطقية بدلا من ذلك.
• نفس الاختبار، ولكن بهياكل أخرى: الشرط نفسه هو الذي يحرك Do While و Select Case، لذا تنتقل المعاملات إلى كل حلقة تكتبها.

💡 نصيحة: قم بتعريف المتغير بنوع رقمي، كما هو موضح في النتيجة الخافتة طالماإذا بقيت القيمة من نوع Variant تحتوي على نص، "9" > "10" تُرجع القيمة True لأن المقارنة تتم حرفًا حرفًا.

مقارنة النصوص والتواريخ في VBA

Numbers قارن تمامًا كما تشير إليه الحسابات، لكن النصوص والتواريخ تتبع قواعدها الخاصة، وكلاهما يفاجئ المبتدئين.

تُقارن السلاسل حرفًا حرفًا باستخدام موضعها في الترتيب، لذا فإن "Apple" < "Banana" تُرجع القيمة True. بشكل افتراضي، تكون المقارنة حساسة لحالة الأحرف، مما يعني أن "guru99" = "Guru99" تُرجع خطأ. وضع خيار مقارنة النص يؤدي وضع هذا السطر في بداية الوحدة إلى تجاهل حالة الأحرف في جميع مقارنات السلاسل النصية داخل تلك الوحدة. لإجراء اختبار واحد دون تغيير الوحدة، استخدم دالة StrComp مع وسيطة vbTextCompare.

تُخزَّن التواريخ كأرقام تسلسلية تُحسب من 30 ديسمبر 1899، لذا فهي تُقارن مباشرةً مع نفس المُشغِّلين الستة. كتابة إذا كان تاريخ الاستحقاق < التاريخ الحالي، يكتشف البرنامج العنصر المتأخر بشكل صحيح، لأن دالة التاريخ تُرجع تاريخ النظام الحالي كرقم تسلسلي. المشكلة الوحيدة تكمن في التاريخ المُخزّن كنص: فمثلاً، التاريخ "01/02/2026" عند قراءته من ملف مُستورد هو سلسلة نصية وليس تاريخًا، ويتم مقارنته أبجديًا. لذا، يُنصح بتحويله باستخدام دالة التاريخ (CDate) قبل اختباره.

إن معرفة قواعد كل نوع من أنواع الأخطاء يزيل معظم المفاجآت، ولكن لا تزال بعض الأخطاء تفاجئ المطورين ذوي الخبرة.

أخطاء شائعة عند مقارنة القيم في VBA

تُفسر المشكلات الخمس التالية معظم المقارنات التي تُسفر عن نتيجة غير متوقعة.

• تم الخلط بين التكليف والمقارنة: خارج نطاق الشرط، س = 5 يخزن 5 في x. داخل عبارة If، تختبر الرموز نفسها المساواة. لا يحتوي VBA على عامل == منفصل، لذا اقرأ السياق بعناية.
• الاختبار Double القيم اللازمة للمساواة التامة: الدقة المخزنة تعني أن 0.1 + 0.2 = 0.3 تُرجع القيمة خطأ. قارن الفرق المُقرّب بدلاً من ذلك، على سبيل المثال إذا كانت القيمة المطلقة لـ (أ - ب) أقل من 0.000001، فإن.
• مقارنة أي شيء مع القيمة الفارغة (Null): القيمة الفارغة (Null) لا تساوي أي شيء، ولا حتى قيمة فارغة أخرى. استخدم دالة IsNull للاختبار بدلاً من ذلك. = فارغ.
• مقارنة نص برقم: الخلية التي تحتوي على النص "100" لا تساوي الرقم 100. قم بالتحويل باستخدام CLng أو CDbl قبل الاختبار.
• قراءة .Text بدلاً من .Value: تُعيد الخاصية .Text النص المعروض، والذي يتم اقتطاعه وفقًا لعرض العمود والتنسيق. قارن دائمًا بالخاصية .Value.

قم بتنزيل ملف Excel أعلاه Code

الأسئلة الشائعة