اذهب الي المحتوي
أوفيسنا

كيفية إظهار رسالة تحذيرية بإدخالات خاطئة بناء على قيم معينة


obad65

الردود الموصى بها

مع التحية اخواني الأعزاء

 

كما هو موضح بالمرفق 

أود عند اختيار نوع الحفرية (1)  ترابي في الخانة C3

وعند ادخال كميات في الخانات C8;C9;E7;E8

تظهر رسالة تنبيه بالماكرو تفيد بوجود خطأ لايمكن ادخال كميات أسفلتية في الحفرية الترابية

 

     ولكم مني جزيل الشكر والتقدير والاحترام

zz.zip

رابط هذا التعليق
شارك

الأخ الحبيب حسام اسمح لي بإضافة بسيطة على الكود الخاص بك

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C8:C9")) Is Nothing Then
    If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents
    End If
    If Not Intersect(Target, Range("E7:E8")) Is Nothing Then
    If [C3] = 1 And Not IsEmpty(Target) Then MsgBox "لا يمكن ادخال كميات أسفلتيه فى الحفرية الترابية": Target.ClearContents
    End If
End Sub


حتى يتم مسح محتويات الخلية بعد إظهار الرسالة

تم تعديل بواسطه YasserKhalil
  • Like 1
رابط هذا التعليق
شارك

يا كبير الاستاذ استاذ 

رائع رائع رائع رائع

وبعدين ( مش عايزين نقطع على بعض دى يدوب سبوبه بسيطه ههههههههههههههههههه)بصصلى فيها

زادك الله من علمه وتقبل احترامى 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information