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

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


smart

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

هل من الممكن أن نضع صيغة للتحقق من البيانات المدخلة بشكل مخصص وتشتمل على نص ورقم

بمعني عندي مدخلات علامات الطلاب 50 أول اقل

ولكن احيانا يكون الطالب غائبا اريد ان اكتب غائب

فاذا وضعت صيغة عدد صحيح مثلا فهذا التحقق لللأرقام فقط ولا يقبل كلمة غائب

اريد أن اجعلها مخصصة وتشتمل على الجانبين علامات من 50 أو اقل

ونص كلمة غائب

ولكم مني التحية

رمضان كريم

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

Private Sub Worksheet_Change(ByVal Target As Range)
'مع أطيب تحية من أبي أحمد 
'غير الرقم 1 برقم العمود الذي تستخدم
    If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub
       Co = Target.Column
  If Target.Value <= 50 Or Target.Value = "غائب" Then
         Cells(Target.Row, Co).Select
      Selection.Interior.ColorIndex = xlNone
Else
       Target.Value = ""
  MsgBox "اكتب هنا رقما بين 1 إلى 50 أو غائب", , "عفوا"
       Cells(Target.Row, Co).Select
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
     Exit Sub
   End If
End Sub

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

السلام عليكم

لقد جربت ولم أفلح لقد اضفت الكود الى ورقة العمل

وحددت العمود مثلا من c2 الى c52ولكن لم افلح

اذا تكرمت علينا بمثال بسيط

وفي ملاحظة ثانية

عندي ليس عمودا واحدا عندي 7 اعمدة كيف السبيل ؟؟ نرجو منك الرد

بمثال بسيط

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

اخي ابو احمد

لقد جربت الكود وبارك الله فيك ولي ملاحظتان :

الأولى: ان الكود يقوم بتغيير لون الخلية اذا كانت مثلا لونها اخضر ترجع الى لون ابيض ...

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

واذا كان هناك في تنسيق شرطي فلا يعترف به وهو اذا كانت الخلية أقل من 25 درجة فلون الخط احمر

اذا امكن عمل شيء ؟؟؟

وبارك الله فيك وفي اخوتي اعضاء المنتدي من مشرفين واعضاء

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

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

بعد اذن الاخ العزيز ابواحمد ,

توجد هناك طريقتان يمكن ان تختار منهما المناسب لك . وهذا الطريقتين لا تعتمدان علي الكود وانما علي ( التحقيق من صحة البيانات ) الموجود ضمن ( شريط الادوات - بيانات ) ,

الطريقة الاولي : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( مخصص ) وفي الخيار ( الصيغة ) ضع المعادلة التالية :

=OR(A1<=50;A1="غائب")

حيث A1 الخلية المخصصة لادخال الارقام او عبارة غائب

الطريقة الثانية : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( قائمة ) وضع في اي عمود الارقام من 1 حتي 50 وفي اخر خلية بعد الرقم 50 اكتب كلمة ( غائب ) وحدد هذا العمود ليكون هو مصدر للقائمة , عندها سيقوم الاكسيل بمقارنة الرقم المدخلة للتاكد من انة اقل من 50 او انة يساوي العبارة " غائب " ,

ارجو ان ان هاتين الطريقتين تحقق لك الفائدة وانا في انتظار النتيجة ,

امنيتي للجميع بالتوفيق والنجاح ورمضان كريم ,,,,

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

السلام عليكم

أشكرك أخ ابو مؤتس على مشاركتك في وضع طريقة جديدة وهذا ليس غريباً عنك واشكر أخي ابو احمد كذلك لمبادرته في وضع الكود من البداية

جرت الطريقة وهي فعالة بدرجة كبيرة (y) :fff:

رمضان كريم

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

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

هل جربة الطريقتين , وهل نجحت كلهما في اعطائك النتيجة المطلوب .

لااني بصراحة جربت الطريقة الاولي فقط وكنت انتظر منك النتيجة ,,,

والحمد لله انك توصلت الي الحل .

بالتوفيق ,,,,

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

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

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

Important Information