هب ريح قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 الإخوة والأخوات أعضاء هذا المنتدى الرائع السلام عليكم ورحمة الله وبركاته: عندي مشكلة بسيطة على أمثالكم وهي كالتالي: إدارتي طالبة مني تصميم تقييم للموظفين على الإكسل في واحد من الأعمدة عنوان: الدرجة القصوى لكل بند ومن هنا يأتي سؤالي: الأول: كيف أمنع مدخل البيانات من تجاوز الدرجة القصوى في خانات معينة. وهذه صورة للمشروع الذي أعمل عليه والخانات التي أريد أن أمنعها من تجاوز الرقم هي التي أمام الدرجة القصوى في العمود الأزرق وهي عبارة عن تقييم لفترة 3 أشهر
بن علية حاجي قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 السلام عليكم ورحمة الله أخي الكريم، يمكنك عمل ذلك باستعمال خاصية "التحقق من الصحة" Data Validation ونطبيق ذلك على ما أراه من خلال الصورة التي أرفقتها (وأحسن من ذلك لو أرفقت الملف المعني أو جزء منه دون بيانات خاصة) يكون كما يلي : - تحديد النطاق D4:I7 (أو أكثر حسب بياناتك) - اختيار خاصية التحقق من الصحة Data Validation من أمر DATA - اختيار "مخصص" Personalise - وضع في إطار الصيغة Formula الشرط : =D4<=$C4 (ملاحظة : الرمز $ في هذا الشرط أمام حرف C ضروري جدا) - الموافقة على التغييرات أرجو أني وفقت في الشرح... أخوك بن علية
عبدالله المجرب قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 شاهد المرفق حاول كتابة رقم اعلى من 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
حمادة عمر قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 السلام عليكم الاستاذ / بن علية والاستاذ / عبد الله المجرب روعة في الرد واروع في الكود والجميل والرائع تسارع الاساتذة الي الخيرات بالرد علي الاعضاء جعله الله لكم علم ينتفع به وجعله في ميزان حسناتكم جزاكم الله خيرا
جمال عبد السميع قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 بعد إذن أساتذتي هذه أضافة أتمنى أن تفيد تحديد قيمة المدخلات.rar
دغيدى قام بنشر يناير 8, 2013 قام بنشر يناير 8, 2013 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 درجات مطلوب التجاوز عن " غ " أي فى حالة غياب الطالب أثـــابكم الله
هب ريح قام بنشر يناير 9, 2013 الكاتب قام بنشر يناير 9, 2013 السلام عليكم ورحمة الله وبركاته أسعد الله صباحكم بكل خير وأمن وسلام أعتذر عن المخالفة الغير مقصودة . أشكر الجميع بلا استثناء على تفاعلهم وإيجابيتهم في الطرح سؤالي للأستاذ: عبدالله المجرب إذا سمحت لي: ليس لي خبرة بالكودات فأين أضع هذا الكود ليعمل معي وقد ارفقت الملف مع هذا البوست بناء على طلب بعض الأعضاء وشكراً للجميع ،،، New Evaluation.rar
بن علية حاجي قام بنشر يناير 9, 2013 قام بنشر يناير 9, 2013 (معدل) السلام عليكم ورحمة الله أخي الكريم، بالملف المرفق تم إضافة كود أخي الحبيب عبد الله مع بعض التعديل والاختصار... أخوك بن علية New Evaluation.rar تم تعديل يناير 9, 2013 بواسطه بن علية حاجي
هب ريح قام بنشر يناير 9, 2013 الكاتب قام بنشر يناير 9, 2013 الله يجزاكم الجنة جميعاً على تجاوبكم الرائع وإجاباتكم المفيدة جداً شكراً من القلب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.