نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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


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

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

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

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

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

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

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


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

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


  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين الصفوف المكررة ومبلغ / متوسط... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • الصيغ المفضلة وإدراج بسرعة، النطاقات، الرسوم البيانية والصور؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • تجميع الجداول المحورية بواسطة رقم الأسبوع ، يوم الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة. تمييز الخلايا التي لها صيغة / اسم...
علامة التبويب kte 201905
  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.