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

(تمت الاجابة) برجاء المساعدة لتنفيذ التحقق من الصحة بشرطين


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

الى خبراء واعضاء منتداى العزيز والعظيم

سلام الله عليكم ورحمته وبركاته

برجاء المساعدة ومرفق الملف موضح به المطلوب

وجزاكم الله كل خير

وشكرا

التحقق من الصحة بشرطين.rar

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

ينفع كود :frown3:

حطه في حدث الصفحة


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [E3]) Is Nothing Then

If Target.Value > 40 And Not Target.Value = "غ" Then

MsgBox "خطاء في الإدخال", vbCritical, "تنبية !!!"

Target.Value = Empty

Target.Select

Exit Sub

End If

End If

End Sub

وهذا المرفق

التحقق_ ALI.rar

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

استاذى الفاضل / ابو نصار

كل عام وسيادتكم بخير . والف الف شكر على هذا العمل الرائع مثلك بارك الله فيك وجزاك الله كل خير .

بالطبع كود رائع وخطير وقام بالمطلوب ولكن استاذى الفاضل لن اخفى عنك سرا انا كنت احب او افضل الحل بالمعادلات من داخل التحقق من الصحة نفسه

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

استاذى الرائع / ابونصار

اشكرك مرة ثانية لردك السريع واستجابتك السريعة واشكرك على هذا الكود الجميل مثلك وبارك الله فيك وفى عطائك وعلمك

وأستئذنك لو تكرمت يكون الحل بالمعادلات من داخل التحقق من الصحة من قائمة بيانات

وشكرا بل الف شكر لسيادتكم

تم تعديل بواسطه فضل 1
رابط هذا التعليق
شارك

التحقق_ ALI.rarمشكور أخى ابو نصار الاخ الفاضل فضل 1 بمجرد ما تزيد المدى فى الكود تنفذ المطلوب مثال بالمرفق

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

بالنسبة للمدى تقدر تحط أي مدى تحب

من هذا السطر


If Not Intersect(Target, [E3]) Is Nothing Then

مثلا لو المدى متفرق

If Not Intersect(Target, [E3:E500,G3:G500,S3:S500]) Is Nothing Then

واما قائمة التحقق حاولت ولم انجح اعذرني

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

السلام عيلكم ورحمة الله وبركاته.

استاذي الفاضل ابا نصار الله يزيدك علماً على علم ويحفظك ومن تحب

أبو أنس

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

السلام عليكم و رحمة الله وبركاته

بعد اذن اخي ابو نصار

تفتح التحقق من صحة

من القائمة الأولى تختار "" مخصص ""

في مربع الصيغة تكتب الصيغة التالية


=OR(SUM(E3)<40;E3="غ")

ثم موافق

وجرب الخلية E3

ثم تنسخ الخلية E3 الى اي مدى تريد

التحقق من الصحة بشرطين.rar

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

الرجاء التصحيح للدالة كما يلي


=IF(ISNUMBER(E3);SUM(E3)<40;E3="غ")

حيث انه في الحالة السابقة قبل اي حرف على اساس ان Sum لاتجمع الحروف وتعطيها قيمة صفر وصفر اصغر من 40 طبعا

اما في هذه الحالة

يتم التأكد من القيمة المدخلة انها رقم

اذاكانت رقم يحسب قيمتها اقل من 40

غير ذلك يجب ان تكون حرف "غ"

ويمكنك اضافة نفس الشرط الى التنسيق الشرطي

حيث سوف يتم تلوين الخلية التي تم وضع قيمة لها بلون مميز

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

الاساتذة الفضلاء الكرام

ابو نصار

حبيبى دائما تعبينك معانا ونرجو منك انت اللى تعذرنا لكثرة اسئلتنا جزاك الله كل خير وربنا يخليك لنا.

نزاهة

شاكرلك على ملحوظتك الجميلة الف شكر

احمد زمان

جزاكم الله كل خير وبارك الله فيكم وزادك علما . معادلة جميلة من شخص جميل وهو كان المطلوب بالفعل بالمعادلات . مليون شكر ياحبيبى الفاضل / احمد مازن

تم تعديل بواسطه فضل 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information