كيفية عرض مربع رسالة إذا كانت الخلية أكبر أو أقل من قيمة محددة في Excel؟

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

عرض مربع رسالة إذا كانت قيمة الخلية في عمود ما أكبر أو أقل من خلية أخرى.

عرض مربع رسالة إذا كانت قيمة الخلية في خلية ما أكبر أو أقل من خلية أخرى.

عرض مربع رسالة إذا كانت قيمة الخلية في عمود ما أكبر أو أقل من خلية أخرى.

لنفترض أن لدي رقمًا محددًا وهو 100 في الخلية A1، الآن عندما يتم إدخال رقم في العمود D يكون أكبر من 100 في الخلية A1، يجب أن يظهر مربع رسالة لتذكير المستخدم.

هنا، الكود VBA أدناه يمكن أن يساعدك على إنهاء هذا، يرجى اتباع الخطوات التالية:

1. انتقل إلى ورقة العمل التي تريد استخدامها.

2. انقر بزر الماوس الأيمن على تبويب الورقة، وحدد عرض الكود من قائمة السياق، في نافذة Microsoft Visual Basic for Applications التي ستظهر، يرجى نسخ ولصق الكود التالي في نافذة الوحدة النمطية الفارغة، انظر لقطة الشاشة:

كود VBA: عرض مربع رسالة إذا كانت قيمة الخلية في عمود ما أكبر أو أقل من خلية.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xC As String
Dim xWSName As String
Dim xA As String
xC = "D:D"
xWSName = "Sheet1"
xA = "A1"
    If Intersect(Target, Range("D:D")) Is Nothing Then Exit Sub
    If IsEmpty(Target) Then Exit Sub
    xNum = (Sheets(xWSName).Range(xA).Value)
    If (Target.Value) > (Sheets(xWSName).Range(xA).Value) Then
        MsgBox Prompt:="The entered number is greater than cell A1, please enter again! ", Title:="Kutools for Excel"
    End If
End Sub

ملاحظة: في الكود أعلاه، Sheet1 هو ورقة العمل التي تريد استخدامها؛ A1 هي قيمة الخلية التي تريد مقارنتها؛ D:D هو العمود الذي تريد مقارنته بالخلية A1.

3. ثم، احفظ وأغلق نافذة الكود، من الآن فصاعدًا، سيتم عرض مربع رسالة إذا قمت بإدخال رقم في العمود D والذي يكون أكبر من 100، انظر لقطة الشاشة:

عرض مربع رسالة إذا كانت قيمة الخلية في خلية ما أكبر أو أقل من خلية أخرى.

إذا كنت تريد عرض مربع رسالة عند وجود قيمة خلية أكبر أو أقل من خلية أخرى، يرجى تطبيق الكود أدناه:

1. انتقل إلى ورقة العمل التي تريد استخدامها.

2. انقر بزر الماوس الأيمن على تبويب الورقة، وحدد عرض الكود من قائمة السياق، في نافذة Microsoft Visual Basic for Applications التي ستظهر، يرجى نسخ ولصق الكود التالي في نافذة الوحدة النمطية الفارغة، انظر لقطة الشاشة:

كود VBA: عرض مربع رسالة إذا كانت قيمة الخلية أكبر أو أقل من خلية.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error GoTo ExitSub
Dim One As Long
Dim Two As Long
One = Range("A1").Value
Two = Range("D1").Value
If Not (Application.Intersect(Range("A1:D1"), Target) Is Nothing) Then
If (One < Two) Then
MsgBox "The value in cell D1 cann't be greater than cell A1!", vbInformation, "Kutools for Excel"
End If
End If
ExitSub:
End Sub

ملاحظة: في الكود أعلاه، A1 و D1 هما الخليتان اللتان تريد مقارنتهما.

3. ثم، احفظ وأغلق نافذة الكود، عند إدخال قيمة تكون أقل من القيمة في الخلية A1، سيتم عرض مربع رسالة كما هو موضح في لقطة الشاشة أدناه:

مقالات ذات صلة أكثر حول عرض مربع الرسائل:

---

أفضل أدوات إنتاجية لمكتب العمل

Kutools لـ Excel يحل معظم مشاكلك ويزيد من إنتاجيتك بنسبة 80%

• شريط الصيغة الفائق (تحرير سهل للنصوص والصيغ المتعددة الأسطر); تخطيط القراءة (قراءة وتحرير سهل للخلايا الكبيرة العدد); لصق إلى النطاق المُرشح...
• دمج الخلايا/الصفوف/الأعمدة مع الاحتفاظ بالبيانات; تقسيم محتوى الخلايا; دمج الصفوف المكررة والمجموع/المتوسط... منع الخلايا المكررة; مقارنة النطاقات...
• تحديد الصفوف المكررة أو الفريدة; تحديد الصفوف الفارغة (جميع الخلايا فارغة); البحث المتقدم والبحث الضبابي في العديد من المصنفات; اختيار عشوائي...
• نسخ دقيق للخلايا المتعددة دون تغيير مرجع الصيغة; إنشاء تلقائي للمراجع إلى أوراق متعددة; إدراج رموز تعداد نقطي، مربعات اختيار وأكثر...
• تفضيل وإدراج سريع للصيغ، النطاقات، الرسوم البيانية والصور; تشفير الخلايا بكلمة مرور; إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني...
• استخراج النص، إضافة نص، إزالة الأحرف في موضع محدد، إزالة المسافات; إنشاء وطباعة إحصاءات صفحة البيانات; التحويل بين محتويات الخلايا والتعليقات...
• مرشح متقدم (حفظ وتطبيق مخططات التصفية على أوراق أخرى); ترتيب متقدم حسب الشهر/الأسبوع/اليوم، التكرار وأكثر; تصفية خاصة حسب العريض، المائل...
• تجميع المصنفات وأوراق العمل; دمج الجداول بناءً على الأعمدة الرئيسية; تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls، xlsx وPDF...
• تجميع جدول محوري حسب رقم الأسبوع، يوم الأسبوع وأكثر... عرض الخلايا غير المؤمنة، المؤمنة بألوان مختلفة; تمييز الخلايا التي تحتوي على صيغة/اسم...

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء... 

---

Office Tab - يجلب واجهة التبويب إلى Office، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة بتبويب في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
• فتح وإنشاء مستندات متعددة في تبويبات جديدة لنفس النافذة، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50%، ويقلل من مئات النقرات بالماوس لك كل يوم!

اقرأ المزيد... تجربة مجانية لمدة 30 يومًا بكامل الميزات... شراء...