تلوين الخلية بشرط

[جلال محمد]

الأخوة الكرام

السلام عليكم

ارجوا من حضراتكم البحث في موضوعى

اريد عند تحقيق شرط معين تلقائى تلون الخلية بالون الذى اريدة عن طريق التعبئة وليس عن طريق التنسيق الشرطى

واليكم ملف يوضح المطلوب

وللجميع الشكر الخالص ،،،،،،،،

جمع الخلايا الملونه.rar

[ابو اسامة العينبوسي]

السلام عليكم

Private Sub Worksheet_Change(ByVal Target As Range)

Dim My_Rng As Range, cell As Range, z As Integer

z = Range("H6").End(xlDown).Row

Set My_Rng = Range(Cells(7, "H"), Cells(z, "H"))

    For Each cell In My_Rng

     If cell.Value < Range("Min") Then

       cell.Font.ColorIndex = Range("colorcode")

     Else

     cell.Font.ColorIndex = 1

     End If

    Next cell

End Sub

جمع الخلايا الملونه2.rar

[جلال محمد]

اخى الكريم أسامة

السلام عليكم

جزاك الله كل خير علي عملك الرائع وسرعة ردك

هل من الممكن تلوين الخليله بدل الخط ولك كل الشكر

[أبوعبد الله]

رائع أخي ابو اسامةكعادتك

واسمح لي أن أرد عنك في طلب الأخ GALAL_MK الأخير بتلوين الخلايا

تلوين الخلايا.rar

تم تعديل أكتوبر 26, 2009 بواسطه إكسيلجي

[أ / محمد صالح]

بعد إذن أخي ابو اسامة وأخي إكسيلجي

بعيدا عن معرفة رقم اللون ومشكلاته

قمت بتعديل بسيط هو

أن يلون المستخدم خلية الدرجة الصغرى بلون الخط الذي يريده ولون الخلفية الذي يريده

والكود يطبق الاثنين على الخلايا التي ينطبق عليها الشرط

مرفق الملف بعد التعديل

mas-تلوين الخلايا.rar

[جلال محمد]

اخوانى الكرام

السلام عليكم

والله لم اجد اروع ولااعظم من رجال هذا المنتدى الرائع جعلكم الله عونا دائما للمحتاجين

وقال رسول الله * صلي الله عليه وسلم * :-

( من أسدى إليكم معروفا فكافؤه فان لم تجدوا ما تكافؤه به فادعوا له حتى تظنوا أنكم قد كافأتموه . )

صدق رسول الله * صلى الله عليه وسلم *

لم اجد الا ان اقدم لكم جذيل الشكر فشكرا لكم أخى اسامه واخى اكسلجى واخى MAS123

اخوكم جلال

[جلال محمد]

اخوانى الكرام

السلام عليمك

طمعا منى في كرمكم

اريد زيادة شرط آخر لتلوين خلايا العمود ( H ) فعندما يحصل الطالب على درجه اقل من درجة النجاح في العمود( F ) تلون الخليه بنفس اللون .. واليكم ملف يوضح المطلوب اكثر

ولكم الشكر

2mas-تلوين الخلايا.rar

[أ / محمد صالح]

اخوانى الكرام

السلام عليمك

طمعا منى في كرمكم

اريد زيادة شرط آخر لتلوين خلايا العمود ( H ) فعندما يحصل الطالب على درجه اقل من درجة النجاح في العمود( F ) تلون الخليه بنفس اللون .. واليكم ملف يوضح المطلوب اكثر

ولكم الشكر

أخي جلال عدّل الكود الموجود في حدث عند التغيير في ورقة العمل إلى

Private Sub Worksheet_Change(ByVal Target As Range)

Dim My_Rng As Range, cell As Range, z As Integer

z = Range("H6").End(xlDown).Row

Set My_Rng = Range(Cells(7, "H"), Cells(z, "H"))

    For Each cell In My_Rng

     If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then

        cell.Font.ColorIndex = Range("Min").Font.ColorIndex

        cell.Interior.ColorIndex = Range("Min").Interior.ColorIndex

     Else

        cell.Font.ColorIndex = 1

        cell.Interior.ColorIndex = 0

     End If

    Next cell

End Sub

وستجد ما يسرك

[جلال محمد]

اخى الكريم MAS123

السلام عليكم

جزاك الله كل خير وجعل اعمالك في ميزان حسناتك ان شاء الله

شكرا لك على مجهودك عمل رائع وهذا هو المطلوب جزاك الله خيرا،،،،،،،

اخوك / جلال محمد

[جلال محمد]

اخى الكريم MAS123

ارجو منك اذا اتسع وقتك ان تشرح لي

هذا السطر (( Set My_Rng = Range(Cells(7, "H"), Cells(z, "H

وهذا الجزء من سطر الشرط وخصوصا الشرط الثانى Or cell.Offset(0, -2).Value < Range("f6").Value Then

وذلك لكى اتمكن من تطبيقة علي الملف الأصلي

وشكرا لك جزيل الشكر ،،،،،

[أ / محمد صالح]

اخى الكريم MAS123

ارجو منك اذا اتسع وقتك ان تشرح لي

هذا السطر (( Set My_Rng = Range(Cells(7, "H"), Cells(z, "H

وهذا الجزء من سطر الشرط وخصوصا الشرط الثانى Or cell.Offset(0, -2).Value < Range("f6").Value Then

وذلك لكى اتمكن من تطبيقة علي الملف الأصلي

وشكرا لك جزيل الشكر ،،،،،

أخي الكريم جلال وفقك الله

معنى السطر الأول هو تحديد المدى المسمى my_rng بالمدى

range("h7:hz")

حيث z هي رقم آخر صف في العمود h كما هو موضح في السطر السابق لهذا السطر

z = Range("H6").End(xlDown).Row

ومعنى السطر الثاني هو الشرط الثاني لتنفيذ التلوين

If cell.Value < Range("Min") Or cell.Offset(0, -2).Value < Range("f6").Value Then

ويعني الشرط ككل

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

ينفذ عملية التلوين بنفس لون الخلفية ولون الخط الموجود في خلية الدرجة الصغرى للمجموع

وإذا لم ينطبق الشرط يتم تلوين الخلفية بالأبيض ولون الخط بالأسود

أتمنى أن يكون اتضح الأمر

[جلال محمد]

اخى الكريم

اولا جزاك الله كل خير انا عارف انى تعبتك جدا

ولكن ان غلبت وغلب حمارى مش عارف اطبق الكود علي نموزج اكبر

فأرجو من حضرتك تطبيق الكود علي الملف المرسل

وان شاء الله ربنا يهدينا واصل الي وا أريد

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

Book1.rar

[أ / محمد صالح]

أخي جلال

يكفيك تكرار الكود بعدد الأعمدة المطلوب تنفيذ الشرط عليها

على العموم مرفق ملفك بعد التعديل

أتمنى أن يكون هو المطلوب

على فكرة

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

mas-Book1.rar

[جلال محمد]

اخى الكريم MAS123

السلام عليكم

اولا / جزاك الله خيرا علي تعبك معى وربنا يجعلة في ميزان حسناتك ان شاء الله

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

فلك جزيل الشكر علي ماتيسره علي الناس سهل الله طريقك الي الجنه

أخوك / جلال

[mohameddja]

أرجو أن تقدموا لنا طريقة العمل في تلوين الخلية بإدراج شرط محدد 

و لكم جزيل الشكر و الاحترام 

 

[سـامي 169]

 

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

ممكن لو سمحت تعملها بالتنسيق الشرطي

[HUNTER25]

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

 

اولا جزاكم الله خيرا على الشروحات

 

سؤالي: كيف يمكنني تلوين السطر الموافق للخلية التي قيمتها أصغر من 10 ...