اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

قام بنشر

ينفع كود :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
قام بنشر

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

من هذا السطر


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

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