kask قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 السلام عليكم ورحمة الله وبركاته أحب أن أتوجه بالشكر والعرفان على كل القائمين على هذا الصرح العلمي المفيد واسأل الله أن يجزيهم خير الجزاء على ما يقومون به مساعدة إخوانهم. سؤالي لدي خلية معينه تأخذ الرقم من 1 إلى 5 بحيث يكون لكل رقم تأخذه الخلية لون مختلف، جربت عن طريق التنسيق الشرطي ولكنه لا يفي بالغرض فليس هناك سوى ثلاث خيارات؟ مثلاً رقم 1 يأخذ اللون الأخضر الغامق ورقم 2 يأخذ اللون الأخضر الفاتح ورقم 3 يأخذ اللون الأصفر ورقم 4 يأخذ اللون الأحمر ورقم 5 يأخذ اللون العنابي. أرجو المساعده والمعذرة لعدم إرفاق ملف يوضح ذلك ودمتم بخير
omar elhosseini قام بنشر نوفمبر 14, 2006 قام بنشر نوفمبر 14, 2006 الاخ kask انظر هذا الرابط http://www.officena.net/ib/index.php?s=&am...ost&p=60263
kask قام بنشر نوفمبر 14, 2006 الكاتب قام بنشر نوفمبر 14, 2006 الأخ tameromar شكراً على تجاوبك ولكن المطلوب خلية وليس صف
omar elhosseini قام بنشر نوفمبر 15, 2006 قام بنشر نوفمبر 15, 2006 الاخ kask شاهد المرفق code___________.rar
kask قام بنشر نوفمبر 15, 2006 الكاتب قام بنشر نوفمبر 15, 2006 أشكرك tameromar على سرعة تجاوبك وفعلاً هذا هو المطلوب والمعذرة على التأخر في الرد
kask قام بنشر نوفمبر 16, 2006 الكاتب قام بنشر نوفمبر 16, 2006 الأخ tameromar أشكرك من كل قلبي على ما تقوم به من مجهود واضح وما تقدمه للأعضاء من خلال خبرتك وعلمك وفقك الله والمعذرة على كثرة الاسئله ولكن واجهتني مشكله في نفس الموضوع أعلاه الا وهي عند عمل حماية للملف وأقوم بتغيير رقم الخلية يظهر لي رسالة خطاء رقم (1004) تقول أنه لايمكن تعيين الخاصية Color Index من الفئة Interior وشكراً مرة أخرى
omar elhosseini قام بنشر نوفمبر 17, 2006 قام بنشر نوفمبر 17, 2006 اخى شاهد المرفق code___________.rar
abuoumar قام بنشر نوفمبر 17, 2006 قام بنشر نوفمبر 17, 2006 شكرا لأخي kask على طرحة هذا السؤال لأن عندي نفس المشكلة ولكن أين أضع الشروط ؟ وقد قمت سابقا بطرح نفس السؤال وجزاء الله كل خير أخي الكريم علي على تجاوبه ولكن لازت أعاني من المشكلة وهذا رابط الموضوع أرجوا أن تلقي نظرة عليه http://www.officena.net/ib/index.php?showtopic=14367
abuoumar قام بنشر نوفمبر 17, 2006 قام بنشر نوفمبر 17, 2006 شكرا لأخي kask على طرحة هذا السؤال لأن عندي نفس المشكلة ولكن أين أضع الشروط ؟ وقد قمت سابقا بطرح نفس السؤال وجزاء الله كل خير أخي الكريم علي على تجاوبه ولكن لازت أعاني من المشكلة وهذا رابط الموضوع أرجوا أن تلقي نظرة عليه http://www.officena.net/ib/index.php?showtopic=14367
kask قام بنشر نوفمبر 19, 2006 الكاتب قام بنشر نوفمبر 19, 2006 لأخ tameromar لا زالت المشكلة مستمرة معي ولم اجد لها حل !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! والمعذرة لأني أثقلت عليك بكثرة الأسئلة الأخ abuoumar شكرأ على مرورك ولا زالت المشكلة عندي مستمرة عند عمل حماية للملف وأقوم بتغيير رقم الخلية يظهر لي رسالة خطاء رقم (1004) تقول أنه لايمكن تعيين الخاصية Color Index من الفئة Interior لأي خلية في الجدول
kask قام بنشر نوفمبر 20, 2006 الكاتب قام بنشر نوفمبر 20, 2006 الأخ tameromar لا زالت المشكلة مستمرة معي ولم اجد لها حل أرجو مساعدتي لوسمحت عند عمل حماية للملف وأقوم بتغيير رقم الخلية يظهر لي رسالة خطاء رقم (1004) تقول أنه لايمكن تعيين الخاصية Color Index من الفئة Interior لأي خلية في الجدول
omar elhosseini قام بنشر نوفمبر 20, 2006 قام بنشر نوفمبر 20, 2006 اخى الملف يعمل معى على الجهاز بدون اى مشكله يمكن لاحد الاعضاء عمل اختبار للملف لنعرف هل تظهر رسالة خطأ عند ادخال الارقام من 1 الى 5 فى الخلية الخضراء تحياتى
علي السحيب قام بنشر نوفمبر 21, 2006 قام بنشر نوفمبر 21, 2006 (معدل) الملف سليم 100% .. أخي عمر .. ربما يكون الأخ Kask .. قد قام بنقل الكود الخاص بالصفحة فقط إلى ملف آخر ونسي أن ينقل الموديول المتصل بالكود .. إذا كان الأمر كذلك أخي Kask .. قم بإستبدال الكود الذي لديك بالكود التالي .. وستحل المشكلة بإذن الله: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$5" Then ActiveSheet.Unprotect "123" If Target = 1 Then Target.Interior.ColorIndex = 12 If Target = 2 Then Target.Interior.ColorIndex = 35 If Target = 3 Then Target.Interior.ColorIndex = 6 If Target = 4 Then Target.Interior.ColorIndex = 3 If Target = 5 Then Target.Interior.ColorIndex = 40 ActiveSheet.Protect "123" End If End Sub شاهد المرفق، ____________________3_____.rar تم تعديل نوفمبر 21, 2006 بواسطه علي السحيب
omar elhosseini قام بنشر نوفمبر 21, 2006 قام بنشر نوفمبر 21, 2006 استاذنا علي السحيب تحياتى لك شكرا لك استاذى الامر كما ذكرت بالتمام
kask قام بنشر نوفمبر 21, 2006 الكاتب قام بنشر نوفمبر 21, 2006 (معدل) مشرفينا الأفاضل tameromar و علي السحيب أشكركم كل الشكر على سعة صدوركم لنا وملفك سليم ولكن المشكلة كانت لدي بالنسبة للكود الي استخدمه هو لأكثر من خليه وعذراً على عدم توضيح السؤال من البداية وهذا هو الكود أرجو التعديل عليه لكي أتمكن من عمل حماية وشكراً Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range Dim Cell As Range Set MyRange = [b12:y12] For Each Cell In MyRange If Cell = "0" Then Cell.Interior.ColorIndex = 0 If Cell = "1" Then Cell.Interior.ColorIndex = 10 If Cell = "2" Then Cell.Interior.ColorIndex = 4 If Cell = "3" Then Cell.Interior.ColorIndex = 27 If Cell = "4" Then Cell.Interior.ColorIndex = 3 If Cell = "5" Then Cell.Interior.ColorIndex = 9 Next End Sub وهذا الكود المستخدم لمشرفنا الغالي علي السحيب على هذا الرابط أضغط هنا المشاركة رقم 14 تم تعديل نوفمبر 21, 2006 بواسطه kask
kask قام بنشر نوفمبر 21, 2006 الكاتب قام بنشر نوفمبر 21, 2006 تكفون يا مشرفينا من غير امر عليكم ابي الرد اليوم ضروري لاني لازم اسلمه بكره وشكراً مقدماً
kask قام بنشر نوفمبر 22, 2006 الكاتب قام بنشر نوفمبر 22, 2006 شكراً مشرفنا العزيز tameromar على ما تبذله في مساعدة أخوانك الأعضاء جعلها الله في موازين حسناتك وقد تم حل المشكله عن طريق الكود المرفق أعلاه ودمت بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.