انتقل إلى المحتوى الرئيسي

كيف يظهر مربع الرسالة المنبثق إذا كانت الخلية أكبر أو أقل من قيمة معينة في Excel؟

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

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

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


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

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

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

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

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

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

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. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، وحدد عرض الرمز من قائمة السياق ، في النافذة المنبثقة ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود التالي في نافذة الوحدة النمطية الفارغة ، انظر لقطة الشاشة:

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

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 ، سيظهر مربع رسالة كما هو موضح أدناه:


المزيد من مقالات مربع الرسائل المنبثقة ذات الصلة:

  • قم بإنشاء مربع رسالة منبثقة عند فتح ملف Excel
  • في حالة معينة ، قد ترغب في ظهور مربع رسالة دائمًا لتذكيرك بما عليك القيام به أولاً عند فتح مصنف معين ، يمكن أن يساعدك ذلك على تذكر القيام بأهم شيء في عملك اليومي. وفي هذه المقالة ، سأتحدث عن كيفية إنشاء مربع رسالة منبثق عند فتح ملف Excel.
  • قم بإنشاء مربع رسالة نعم لا قبل تشغيل ماكرو في Excel
  • في Excel ، يمكنك تشغيل ماكرو مباشرة بالضغط على المفتاح F5 أو النقر فوق الزر "تشغيل" في نافذة Microsoft Visual Basic for Applications. لكن ، في بعض الأحيان ، قد ترغب في إنشاء مربع رسالة يسأل المستخدم عما إذا كان يريد تشغيل الماكرو. إذا كانت الإجابة بنعم ، فاستمر في تشغيل الرمز ، وإذا كانت الإجابة لا ، فتوقف عن تشغيل الرمز. في هذه المقالة ، سأتحدث عن كيفية إنشاء مربع رسالة نعم لا قبل تشغيل ماكرو في إكسيل.
  • قم بإنشاء مؤقت صندوق الرسائل لإغلاق صندوق الرسائل تلقائيًا بعد وقت معين
  • يمكنك استخدام برنامج VBA النصي بشكل متكرر لحل المشكلات أثناء استخدام مصنف Excel. وستظهر مربعات رسائل أثناء تشغيل البرنامج النصي. في بعض الحالات ، قد ترغب في إغلاق بعض مربعات الرسائل المحددة تلقائيًا بعد وقت معين بدلاً من إغلاقها يدويًا. في هذه المقالة ، سوف نعرض لك طريقة إنشاء مؤقت مربع الرسائل لإغلاق مربع الرسائل تلقائيًا بعد وقت معين في Excel.

  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
could you help me combine multiple of these rules
This comment was minimized by the moderator on the site
is it possible to include the text from a specific cell in the content of the alert message box?
This comment was minimized by the moderator on the site
Thanks for this, it worked great! But I want to know how can I make this work if the cell that I'm monitoring depends on a cell on another Sheet. For example A1 in Sheet 1 changes values if cell A3 in Sheet 2 changes. I have something like this and the pop up message didn't come up, only when manually changed the A1 on Sheet 1.

Thanks!
This comment was minimized by the moderator on the site
In your VB example above a Pop Up Message Box occurs If Cell A1 is Less than D1 which works well however how do I make it also create a Pop up message for cell A2 is Less than D2, A3 is Less than D3 and so on.
This comment was minimized by the moderator on the site
GRACIAS, COMO PUEDO HACER PARA AMPLIARLO A UN RANDO MAS GRANDE ES DECIR O15:O100 Y N15:N100
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations