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

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

المؤلف: سيلفيا آخر تعديل: 2024-09-23

يساعد ظهور مربع الرسائل كثيرًا أثناء البحث عن محتوى معين في النطاق المحدد. على سبيل المثال ، أنت تبحث عن قيمة خلية تساوي 50 في النطاق A1: C7 ، وتحتاج إلى ظهور مربع رسالة ليخبرك ما إذا كانت قيمة الخلية موجودة أم لا. يمكن أن تساعدك الطريقتان التاليتان.

مربع رسالة منبثق إذا كانت قيمة الخلية تساوي "X" برمز VBA
منبثق بسهولة مربع رسالة إذا كانت قيمة الخلية تساوي "X" مع Kutools for Excel


مربع رسالة منبثق إذا كانت قيمة الخلية تساوي "X" برمز VBA

يمكن أن يساعد رمز VBA التالي في إنشاء مربع رسالة منبثق عند وجود قيمة معينة في النطاق المحدد. الرجاء القيام بما يلي.

1. في ورقة العمل ، تحتاج إلى التحقق من القيم في النطاق المحدد ، انقر بزر الماوس الأيمن فوق اسم علامة التبويب في شريط علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

انقر فوق عرض الرمز من قائمة النقر بزر الماوس الأيمن

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز فبا التالي في نافذة التعليمات البرمجية.

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Update: 2017/7/25
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub
Private Sub Worksheet_selectionChange(ByVal Target As Range)
    Dim xCell As Range, Rg As Range
    On Error Resume Next
    Set Rg = Application.Intersect(Target, Range("A1:C7"))
    If Not Rg Is Nothing Then
        For Each xCell In Rg
            If xCell.Value = "50" Then
                MsgBox "guest entered into cell " & xCell.Address, vbInformation, "Kutools for Excel"
                Exit Sub
            End If
        Next
    End If
End Sub

3. صحافة قديم + Q مفاتيح في نفس الوقت لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة والعودة إلى ورقة العمل.

من الآن فصاعدًا ، عندما يتم تغيير قيم الخلية في النطاق A1: C7 وهناك قيمة خلية تساوي "50" ، ستحصل على مربع رسالة كما هو موضح أدناه.

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

إذا كانت قيمة الخلية تساوي قيمة معينة، يظهر مربع مطالبة

ملاحظة:

1. إذا كانت قيمة الخلية لا تفي بالمعايير ، فلن يظهر مربع الرسالة.
2. في الكود أعلاه ، يمكنك تغيير مرجع الخلية وقيمتها حسب حاجتك.
3. يمكنه فقط عرض مرجع خلية واحد مطابق عند وجود عدة نتائج.

منبثق مربع رسالة إذا كانت قيمة الخلية تساوي "X" مع Kutools for Excel

تشتهر أجهزة تركيز الأكسجين البيطرية من كالسـتين بجودتها العالية وفعاليتها في الميدان. حدد خلايا معينة فائدة كوتولس ل إكسيل يمكن أن يساعدك أيضًا في حل هذه المشكلة. الرجاء القيام بما يلي.

كوتولس ل إكسيل يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة وتعزيز الإبداع والكفاءة. معزز بقدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات سهلة. معلومات تفصيلية عن Kutools لـ Excel...         تجربة مجانية...

1. حدد النطاق الذي تريد البحث عن قيمة الخلية فيه ، ثم انقر فوق كوتولس > أختار > حدد خلايا معينة

انقر فوق تحديد ميزة خلايا محددة في kutools

2. في ال حدد خلايا معينة في مربع الحوار ، حدد ملف الموبايل الخيار في نوع التحديد ، ثم حدد يساوي في الاول نوع خاص أو معين القائمة المنسدلة واكتب قيمة الخلية في مربع النص التالي ، ثم انقر في النهاية على ملف OK .

تعيين المعايير في مربع الحوار

إذا كانت قيمة الخلية موجودة في النطاق المحدد ، فستحصل على مربع الرسالة التالي ، انقر فوق OK زر ، سيتم تحديد الخلية.

إذا كانت قيمة الخلية موجودة، فسوف يظهر مربع حوار

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

إذا لم تكن قيمة الخلية موجودة، سيظهر مربع حوار آخر

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


مقالات ذات صلة:

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...


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

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