HELP PLEASE : تجاوز الدرجة القصوى !

[هب ريح]

الإخوة والأخوات أعضاء هذا المنتدى الرائع

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

عندي مشكلة بسيطة على أمثالكم وهي كالتالي:

إدارتي طالبة مني تصميم تقييم للموظفين على الإكسل

في واحد من الأعمدة عنوان: الدرجة القصوى لكل بند

ومن هنا يأتي سؤالي:

الأول: كيف أمنع مدخل البيانات من تجاوز الدرجة القصوى في خانات معينة.

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

[دغيدى]

عفوا تم تعديل العنوان لمخالفته تالتعليمات

[بن علية حاجي]

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

أخي الكريم، يمكنك عمل ذلك باستعمال خاصية "التحقق من الصحة" Data Validation ونطبيق ذلك على ما أراه من خلال الصورة التي أرفقتها (وأحسن من ذلك لو أرفقت الملف المعني أو جزء منه دون بيانات خاصة) يكون كما يلي :

- تحديد النطاق D4:I7 (أو أكثر حسب بياناتك)

- اختيار خاصية التحقق من الصحة Data Validation من أمر DATA

- اختيار "مخصص" Personalise

- وضع في إطار الصيغة Formula الشرط :

=D4<=$C4

(ملاحظة : الرمز $ في هذا الشرط أمام حرف C ضروري جدا)

- الموافقة على التغييرات

أرجو أني وفقت في الشرح...

أخوك بن علية

[عبدالله المجرب]

شاهد المرفق

حاول كتابة رقم اعلى من 25 في الخلية A1

واكبر من 30 في الخلية A2

واكبر من 20 في الخلية A3

,

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

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

If Target > 25 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub

End If

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

If Target > 30 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub

End If

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

If Target > 20 Then Target.Value = "": MsgBox "القيمة أعلى من المسموح بها": Exit Sub

End If

End Sub

القيمة العليا.rar

[حمادة عمر]

السلام عليكم

الاستاذ / بن علية

والاستاذ / عبد الله المجرب

روعة في الرد واروع في الكود

والجميل والرائع تسارع الاساتذة الي الخيرات بالرد علي الاعضاء

جعله الله لكم علم ينتفع به وجعله في ميزان حسناتكم

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

[جمال عبد السميع]

بعد إذن أساتذتي هذه أضافة أتمنى أن تفيد

تحديد قيمة المدخلات.rar

[دغيدى]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [AH10:AH408,AJ10:AJ408]) Is Nothing Then

If Target > 3 Then Target.Value = "": MsgBox "الدرجة أكبر من   3  درجات     ": Exit Sub

End If

  End Sub

أخى الفاضل / عبد الله

جــاءت فى وقتها

عند ادخال الدرجات لا يقبل أكبر 3 درجات

مطلوب التجاوز عن " غ " أي فى حالة غياب الطالب

أثـــابكم الله

[هب ريح]

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

أسعد الله صباحكم بكل خير وأمن وسلام

أعتذر عن المخالفة الغير مقصودة

.

أشكر الجميع بلا استثناء على تفاعلهم وإيجابيتهم في الطرح

سؤالي للأستاذ:

عبدالله المجرب إذا سمحت لي:

ليس لي خبرة بالكودات فأين أضع هذا الكود ليعمل معي

وقد ارفقت الملف مع هذا البوست بناء على طلب بعض الأعضاء

وشكراً للجميع ،،،

New Evaluation.rar

[بن علية حاجي]

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

أخي الكريم، بالملف المرفق تم إضافة كود أخي الحبيب عبد الله مع بعض التعديل والاختصار...

أخوك بن علية

New Evaluation.rar

تم تعديل يناير 9, 2013 بواسطه بن علية حاجي

[هب ريح]

الله يجزاكم الجنة جميعاً على تجاوبكم الرائع

وإجاباتكم المفيدة جداً

شكراً من القلب