كيفية جعل الخلية تكون بلون معين

[al_faroooq]

لدي بعض الإسفسار وهو كيفية جعل الخلية تكون بلون معين بحيث تكون على النحو التالي

من نسبة 91إلى 100 ممتاز يكون باللون الأخضر مثلاً

من نسبة 81 إلى 90 جيدجدا اللون الأزرق مثلاً

من نسبة 71 إلى 80 جيد اللون الأصفر مثلاً

من نسبة 61 إلى 70 مقبول البرتقالي مثلاً

من نسبة 51 إلى 60 ضعيف الأحمر مثلاً

وليكن ذلك في نفس الخلية الواحدة ويتم تطبيقها على الباقي (((( والذي أرغب أن يكون بلون هو لون خلية التقدير ))))

أثابكم الله جميعاً

حيث أنني وجدت التنسيق الشرطي 3 شروط فقط وهذا لايكفي المطلوب .

أنا محتاج ذلك عاجلاً أثابكم الله جميعاً

_______.rar

[ابو الحمز]

اضف الكود التالي الى الصفحة وستعمل ان شاء الله

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Value

Case "جيد"

Target.Interior.ColorIndex = 6

Case "ضعيف جدا"

Target.Interior.ColorIndex = 9

Case "ضعيف"

Target.Interior.ColorIndex = 3

Case "مقبول"

Target.Interior.ColorIndex = 7

Case "جيد جدا"

Target.Interior.ColorIndex = 5

Case "ممتاز"

Target.Interior.ColorIndex = 4

Case Else

Target.Interior.ColorIndex = 0

End Select

End Sub

[al_faroooq]

أخي العزيز أبو الحمز أشكرك بعد شكر الله

لكني فعلت مثل ماقلت لي وحاولت بأكثر من طريقة ولكن دون جدوى

وقد أرفقت لك الملف لترى هل وضعته بالطريقة الصحيحة أم لا

_______.rar

[محمد عسكر]

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

الأخ / al_faroooq

تحية طيبة و بعد

قمت بتحميل الملف المرفق ففى بداية الأمر لم أجد ما ترجوه

و لكنى بعد محاولات قمت بالوقوف على الأمر من الدالة الشرطية IF و أعدت كتابة التقدير كما فى الكود بدون تشكيل

و لكن ما سيتغير لونه هو لو الخليه بالكامل و ليس لون الخط الذى بالخليه

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

تحياتى

_______.zip

[ابو الحمز]

السلام عليكم

والله يا اخي الكريم انا مثلكم ما زلت مبتدأ وما نقلته لك ينجح فقط في حالة لو طبعت انت كلمة :

ممتاز تتلون باللون الاخضر ولو كتبت كلمة جيد تتلون باللون الاصفر وهكذا

ولكن لم ينجح الكود مع المعادلة ، ما زلت ابحث عن الحل مثلك ، ان وجدته سأضيفه لك ان شاء الله

[محمد عسكر]

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

أخى / أبو حمزه

انى اعنى فى ردى السابق ان الكود يعمل بالفعل لكن كل ما قمت به هو إعادة كتابه التقدير بالشكل الذى بالكود اى بدون تشكيل و ارفقت لك الناتج و لكن ما حدث انه تم تلوين الخلية بالكامل و ليس الخط كما ترغب

تحياتى

[ابو الحمز]

اخي محمد عسكر

كلامك صحيح الكود يعمل للمرة الاولى ولكن لو لاحظت انك لو غير القيمة فإن اللون يبقى كما هو لا يتغير .

بالنسبة لملاحظتك: سبب تغير لون الخلفية لاننا اخترنا الخلية

اما ان اردنا اختيار لون الخط فما علينا الا ان نضيف العبارة:

Target.Font.ColorIndex = 10

وبذلك نختار لون الخط بدلا من لون الخلية او ابقاء الخياران معا

ارجو من اهل الخبرة ان يساعدونا

[شرجاوي سلام]

انا عندي ملف ، بس مب صنع ايدي

أبي أعرف كيف سواه الشخص

برفقه لكم ، ومنكم نستفيد ونتعاون ع الخير

وإذا عرفتوا الكود ، ممكن اتحطونه في الموضوع

1.zip

تم تعديل فبراير 17, 2007 بواسطه شرجاوي سلام

[ابو الحمز]

بارك الله فيك اخي شرجاوي سلام

الملف المرفق لا يوجد فيه كود

[نزار سليمان عيد]

اخواني جميعا

مرفق لكم الملف وان شاء الله يحوز على اعجابكم

________2.zip

[محمد عسكر]

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

الأخ nse

جزاك الله خيرا و أكرمك من فضله

لكن مش ده اللى كان طلبه الأخ/al_faroooq لانك عملت الكود على اساس ان كل خليه على حده

يعنى ثابته بلون معين و لكن بتغير التقدير

الا انه على ما اعتقد انه كان يطلب ان يتغير لون الخط حسب التقدير

يعنى ممكن يكون كذا خليه بنفس اللون اذا كانوا بنفس التقدير

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

تحياتى

-----------------

اشهد أن لا إله الا الله - و أشهد ان محمد رسول الله

[ابو الحمز]

بارك الله فيك اخي الكريم

هل هناك من طريقة اخرى لاختصار الكود ، المسألة طويلة جدا وتحتاج ان تطبق هذا الكود على كل خلية في الصفحة ، يعني مسألة اعقد من عملها باليد

[bahraini]

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

الأخ البسيسي

بالنسبة لطلبك سأقوم بأرساله إليك عبر البريد الالكتروني.

كذلك لاننسى الأخوان الكرام هذا المنتدى الرائع، تجدون مرفق ملف اكسل وصورة توضيحية.

والسؤال كان

==============================

= كيف اجعل خانة معينه من خانات اكسل ولتكن A5 =

= تعطيني لون احمر اذا دخل فيها رقم اقل من 3 =

= وتعطيني لون اصفر اذا دخل فيها رقم مابين 3-6 =

= وتعطيني لون اخضر اذا كان فوق 6 =

==============================

أرجو أن ينا استحسانكم.

cond.rar

[ابو الحمز]

اخي الفاروق

اخيرا وجدت لك الحل وبامكانك مراجعة الرابط

http://www.officena.net/ib/index.php?showtopic=15816

[نزار سليمان عيد]

اخواني جميعا

اسف لتاخري بالرد

ولكن عندما اجبتكم في الرسالة السابقة طبقت المطلوب على الجدول المرفق فقط ولم اطبقه على كامل العمود A

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

صحيح 100% حيث انه يعمل مع المدخلات في الخلايا من A3 الى A9

حيث انك لو وضعت 50 في A3 لتغير اللون حسب المطلوب ولو ان الدرجة مثلا 70 في نفس الخلية لتعير اللون الى اللون المطلوب وهكذا لكل المدى من A3 الى B9 .

والان ارفقت الملف ليشمل التغيير في كامل العمود من A3 الى آخر الصفحة B65536

كل ما عليك اخي هو كتابة الدرجة في اي خلية من A3 الى A65536 وسيتغير اللون عند نسخ المعادلة في B3 الى B65536

________2.zip

[محمد عسكر]

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

الأخ NSE

رااااااااااااااااااائع

ممتاز جدا

جزاك الله خيرا و بارك الله فيك و اكرمك

[bahraini]

الأخوة أعضاء المنتدى

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

يطيب لي أن أقدم شرح لطلب الأخ الفاروق حيث ستجد 3 ملفات مرفقة داخل الملف المضغوط.

وللعلم فان هذي الملف من صنع احد المواقع الاجنبية وهو اضافه لبرنامج الاكسل حيث انك تستطيع وضع الشروط لغاية 30 شرط.

الملف الأول أسمه: CFPlus.xla

الملف الثاني أسمه: CFPlus.ini

بعد فك الضغط ضع الملفين نفس المجلد (أي مكان سواء في C أو D) المهم أن يكون الملفان في نفس المكان.

بعد ذلك قم بالضعظ مرتين double click على الملف CFPlus.xla . سيتم فتح برنامج الاكسل (لاتغلق البرنامج)

بعد ذلك افتح الملف المسمى (التقدير)

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

المثال الأول يقوم بتلوين الصف بالكامل حس اللون لكل درجة وتقدير

المثال الثاني يقوم بتلوين خلية التقدير فقط بناء على الدرجة المعطاه

ان شاء الله يكون هذا المطلوب

وهذا شيء يسير قدرني الله على فعله رغم اني لست محترفا ولكن لكل مجتهد نصيب

وأعضاء المنتدى يستاهلون كل خير

مع تحيات أخوكم بوفاطمة

Officena.Solutions.rar

[ابو الحمز]

اخي nse

بارك الله فيك على هذا الحل الرائع ، وزادك الله من علمه وشكرا جزيلا على هذه المعلومة القيمة

[عاشق الرقي]

يا أساتذة ماشاء الله عليكم

والله اذهلتوني في براعتكم

اسأل الله العظيم رب العرش الكريم أن يجعل كل جهودكم في ميزان حسناتكم

وأسلوبكم الراقي في الحوار

باك الله فيكم ولكم

أخوكم أبو ريان