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

يساعد ظهور مربع الرسائل كثيرًا أثناء البحث عن محتوى معين في النطاق المحدد. على سبيل المثال ، أنت تبحث عن قيمة خلية تساوي 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" ، ستحصل على مربع رسالة كما هو موضح أدناه.

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

ملاحظة:

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

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

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

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

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

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

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

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

• كيفية حذف الصف بأكمله إذا كانت الخلية تحتوي على صفر في إكسيل؟
• كيفية حساب الخلايا مع نص محدد في التحديد في إكسيل؟

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

🤖	مساعد 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ...