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

[فضل حسين]

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

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

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

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

وشكرا

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

[الـعيدروس]

ينفع كود

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

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 اسم فى الورقة الواحدة . وعندى ايضا اكثر من عمود المطلوب تنفيذ عليه المطلوب .

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

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

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

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

تم تعديل يناير 13, 2012 بواسطه فضل 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

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

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

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

[فضل حسين]

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

ابو نصار

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

نزاهة

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

احمد زمان

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

تم تعديل يناير 14, 2012 بواسطه فضل 1

[دغيدى]

أثابكم الله

تم تعديل يناير 14, 2012 بواسطه دغيدى