smart قام بنشر أكتوبر 16, 2004 مشاركة قام بنشر أكتوبر 16, 2004 هل من الممكن أن نضع صيغة للتحقق من البيانات المدخلة بشكل مخصص وتشتمل على نص ورقم بمعني عندي مدخلات علامات الطلاب 50 أول اقل ولكن احيانا يكون الطالب غائبا اريد ان اكتب غائب فاذا وضعت صيغة عدد صحيح مثلا فهذا التحقق لللأرقام فقط ولا يقبل كلمة غائب اريد أن اجعلها مخصصة وتشتمل على الجانبين علامات من 50 أو اقل ونص كلمة غائب ولكم مني التحية رمضان كريم رابط هذا التعليق شارك More sharing options...
أبوأحـمـد قام بنشر أكتوبر 17, 2004 مشاركة قام بنشر أكتوبر 17, 2004 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 رابط هذا التعليق شارك More sharing options...
smart قام بنشر أكتوبر 17, 2004 الكاتب مشاركة قام بنشر أكتوبر 17, 2004 شكرا ياابااحمد على الاجابة ؟؟؟ وتقبل الله منا ومنكم صالح الأعمال وساجرب واعطيك الا جابة كان هو المطلوب رابط هذا التعليق شارك More sharing options...
smart قام بنشر أكتوبر 17, 2004 الكاتب مشاركة قام بنشر أكتوبر 17, 2004 السلام عليكم لقد جربت ولم أفلح لقد اضفت الكود الى ورقة العمل وحددت العمود مثلا من c2 الى c52ولكن لم افلح اذا تكرمت علينا بمثال بسيط وفي ملاحظة ثانية عندي ليس عمودا واحدا عندي 7 اعمدة كيف السبيل ؟؟ نرجو منك الرد بمثال بسيط رابط هذا التعليق شارك More sharing options...
أبوأحـمـد قام بنشر أكتوبر 17, 2004 مشاركة قام بنشر أكتوبر 17, 2004 هذا هو المثال أتمنى يكون طلبك tnseg.zip رابط هذا التعليق شارك More sharing options...
smart قام بنشر أكتوبر 18, 2004 الكاتب مشاركة قام بنشر أكتوبر 18, 2004 شكرا ابو احمد وهو المطلوب سانقل الكود غلى ملفي وبارك الله فيك وجعله الله في ميزان حسناتك (y) :h رابط هذا التعليق شارك More sharing options...
smart قام بنشر أكتوبر 18, 2004 الكاتب مشاركة قام بنشر أكتوبر 18, 2004 اخي ابو احمد لقد جربت الكود وبارك الله فيك ولي ملاحظتان : الأولى: ان الكود يقوم بتغيير لون الخلية اذا كانت مثلا لونها اخضر ترجع الى لون ابيض ... الثانية : اذا كنت استخدم النموذج في تعبئة البيانات فانه يتجاهل الكود ولا يعترف به واذا كان هناك في تنسيق شرطي فلا يعترف به وهو اذا كانت الخلية أقل من 25 درجة فلون الخط احمر اذا امكن عمل شيء ؟؟؟ وبارك الله فيك وفي اخوتي اعضاء المنتدي من مشرفين واعضاء رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر أكتوبر 18, 2004 مشاركة قام بنشر أكتوبر 18, 2004 (معدل) السلام عليكم ورحمة الله وبركاتة . بعد اذن الاخ العزيز ابواحمد , توجد هناك طريقتان يمكن ان تختار منهما المناسب لك . وهذا الطريقتين لا تعتمدان علي الكود وانما علي ( التحقيق من صحة البيانات ) الموجود ضمن ( شريط الادوات - بيانات ) , الطريقة الاولي : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( مخصص ) وفي الخيار ( الصيغة ) ضع المعادلة التالية : =OR(A1<=50;A1="غائب") حيث A1 الخلية المخصصة لادخال الارقام او عبارة غائب الطريقة الثانية : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( قائمة ) وضع في اي عمود الارقام من 1 حتي 50 وفي اخر خلية بعد الرقم 50 اكتب كلمة ( غائب ) وحدد هذا العمود ليكون هو مصدر للقائمة , عندها سيقوم الاكسيل بمقارنة الرقم المدخلة للتاكد من انة اقل من 50 او انة يساوي العبارة " غائب " , ارجو ان ان هاتين الطريقتين تحقق لك الفائدة وانا في انتظار النتيجة , امنيتي للجميع بالتوفيق والنجاح ورمضان كريم ,,,, تم تعديل أكتوبر 18, 2004 بواسطه ابومؤنس 1 رابط هذا التعليق شارك More sharing options...
smart قام بنشر أكتوبر 23, 2004 الكاتب مشاركة قام بنشر أكتوبر 23, 2004 السلام عليكم أشكرك أخ ابو مؤتس على مشاركتك في وضع طريقة جديدة وهذا ليس غريباً عنك واشكر أخي ابو احمد كذلك لمبادرته في وضع الكود من البداية جرت الطريقة وهي فعالة بدرجة كبيرة (y) رمضان كريم رابط هذا التعليق شارك More sharing options...
ابومؤنس قام بنشر أكتوبر 23, 2004 مشاركة قام بنشر أكتوبر 23, 2004 السلام عليكم ورحمة الله وبركاتة , هل جربة الطريقتين , وهل نجحت كلهما في اعطائك النتيجة المطلوب . لااني بصراحة جربت الطريقة الاولي فقط وكنت انتظر منك النتيجة ,,, والحمد لله انك توصلت الي الحل . بالتوفيق ,,,, رابط هذا التعليق شارك More sharing options...
الردود الموصى بها