نجوم المشاركات

الرجاء من الاخوة الكرام تعديل الكود بالملف أعلاه ليتم مسح بيانات خلايا محددة بصفحتين معاً مسح.rar

يتم ذلك عن طريق الكود التالي: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next TC = Target.Column TR = Target.Row T = Target If TC = 1 And TR > 1 And TR < 31 Then For C = 1 To 6 If T = "" Then Cells(TR, C).Interior.ColorIndex = xlNone If T = 1 Then Cells(TR, C).Interior.ColorIndex = 3 If T = 2 Then Cells(TR, C).Interior.ColorIndex = 50 If T = 3 Then Cells(TR, C).Interior.ColorIndex = 41 Next End If End Sub ________________.rar

السلام عليكم ورحمة االله وبركاته كثيرين يريدون كتب بالعربى لشرح اكسيل وخصوصا التعامل مع الاكواد اليكم كتابين بالعربى الاول للاكسيل للمستخدم العادى والثانى للمتعاملين مع اكواد فيجوال بيسيك لبرنامج الورد والاكسيل معا اليكم رابط التحميل من هنـــا

السلام عليكم ورحمة الله وبركاتة . بعد اذن الاخ العزيز ابواحمد , توجد هناك طريقتان يمكن ان تختار منهما المناسب لك . وهذا الطريقتين لا تعتمدان علي الكود وانما علي ( التحقيق من صحة البيانات ) الموجود ضمن ( شريط الادوات - بيانات ) , الطريقة الاولي : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( مخصص ) وفي الخيار ( الصيغة ) ضع المعادلة التالية : =OR(A1<=50;A1="غائب") حيث A1 الخلية المخصصة لادخال الارقام او عبارة غائب الطريقة الثانية : افتح ( التحقيق من صحة البيانات ) ومن الخيار ( السماح ) اختار ( قائمة ) وضع في اي عمود الارقام من 1 حتي 50 وفي اخر خلية بعد الرقم 50 اكتب كلمة ( غائب ) وحدد هذا العمود ليكون هو مصدر للقائمة , عندها سيقوم الاكسيل بمقارنة الرقم المدخلة للتاكد من انة اقل من 50 او انة يساوي العبارة " غائب " , ارجو ان ان هاتين الطريقتين تحقق لك الفائدة وانا في انتظار النتيجة , امنيتي للجميع بالتوفيق والنجاح ورمضان كريم ,,,,