فضل حسين قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 الى خبراء واعضاء منتداى العزيز والعظيم سلام الله عليكم ورحمته وبركاته برجاء المساعدة ومرفق الملف موضح به المطلوب وجزاكم الله كل خير وشكرا التحقق من الصحة بشرطين.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 ينفع كود حطه في حدث الصفحة 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 رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 13, 2012 الكاتب مشاركة قام بنشر يناير 13, 2012 (معدل) استاذى الفاضل / ابو نصار كل عام وسيادتكم بخير . والف الف شكر على هذا العمل الرائع مثلك بارك الله فيك وجزاك الله كل خير . بالطبع كود رائع وخطير وقام بالمطلوب ولكن استاذى الفاضل لن اخفى عنك سرا انا كنت احب او افضل الحل بالمعادلات من داخل التحقق من الصحة نفسه والسبب فى ذلك يااستاذى الفاضل ان بياناتى كبيرة جدا تتعدى اكثر من 2500 اسم فى الورقة الواحدة . وعندى ايضا اكثر من عمود المطلوب تنفيذ عليه المطلوب . استاذى الرائع / ابونصار اشكرك مرة ثانية لردك السريع واستجابتك السريعة واشكرك على هذا الكود الجميل مثلك وبارك الله فيك وفى عطائك وعلمك وأستئذنك لو تكرمت يكون الحل بالمعادلات من داخل التحقق من الصحة من قائمة بيانات وشكرا بل الف شكر لسيادتكم تم تعديل يناير 13, 2012 بواسطه فضل 1 رابط هذا التعليق شارك More sharing options...
محمد السيد الشاطر قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 التحقق_ ALI.rarمشكور أخى ابو نصار الاخ الفاضل فضل 1 بمجرد ما تزيد المدى فى الكود تنفذ المطلوب مثال بالمرفق رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر يناير 13, 2012 مشاركة قام بنشر يناير 13, 2012 بالنسبة للمدى تقدر تحط أي مدى تحب من هذا السطر If Not Intersect(Target, [E3]) Is Nothing Then مثلا لو المدى متفرق If Not Intersect(Target, [E3:E500,G3:G500,S3:S500]) Is Nothing Then واما قائمة التحقق حاولت ولم انجح اعذرني رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر يناير 14, 2012 مشاركة قام بنشر يناير 14, 2012 السلام عيلكم ورحمة الله وبركاته. استاذي الفاضل ابا نصار الله يزيدك علماً على علم ويحفظك ومن تحب أبو أنس رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 14, 2012 مشاركة قام بنشر يناير 14, 2012 السلام عليكم و رحمة الله وبركاته بعد اذن اخي ابو نصار تفتح التحقق من صحة من القائمة الأولى تختار "" مخصص "" في مربع الصيغة تكتب الصيغة التالية =OR(SUM(E3)<40;E3="غ") ثم موافق وجرب الخلية E3 ثم تنسخ الخلية E3 الى اي مدى تريد التحقق من الصحة بشرطين.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر يناير 14, 2012 مشاركة قام بنشر يناير 14, 2012 الرجاء التصحيح للدالة كما يلي =IF(ISNUMBER(E3);SUM(E3)<40;E3="غ") حيث انه في الحالة السابقة قبل اي حرف على اساس ان Sum لاتجمع الحروف وتعطيها قيمة صفر وصفر اصغر من 40 طبعا اما في هذه الحالة يتم التأكد من القيمة المدخلة انها رقم اذاكانت رقم يحسب قيمتها اقل من 40 غير ذلك يجب ان تكون حرف "غ" ويمكنك اضافة نفس الشرط الى التنسيق الشرطي حيث سوف يتم تلوين الخلية التي تم وضع قيمة لها بلون مميز رابط هذا التعليق شارك More sharing options...
فضل حسين قام بنشر يناير 14, 2012 الكاتب مشاركة قام بنشر يناير 14, 2012 (معدل) الاساتذة الفضلاء الكرام ابو نصار حبيبى دائما تعبينك معانا ونرجو منك انت اللى تعذرنا لكثرة اسئلتنا جزاك الله كل خير وربنا يخليك لنا. نزاهة شاكرلك على ملحوظتك الجميلة الف شكر احمد زمان جزاكم الله كل خير وبارك الله فيكم وزادك علما . معادلة جميلة من شخص جميل وهو كان المطلوب بالفعل بالمعادلات . مليون شكر ياحبيبى الفاضل / احمد مازن تم تعديل يناير 14, 2012 بواسطه فضل 1 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يناير 14, 2012 مشاركة قام بنشر يناير 14, 2012 (معدل) أثابكم الله تم تعديل يناير 14, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان