(تمت الاجابة) كود تلوين الخلايا النشطه

[إبراهيم ابوليله]

الاخوه الافاضل

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

اريد تلوين الخليه النشطه باللون الازرق وتكون الكتابه بالون الاصفر

[أبو حنــــين]

السلام عليكم

تفضل اخي

التلوين.rar

[إبراهيم ابوليله]

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

ولكنى اريد تلوينها عند الوقوف عليها فقط

[أبو حنــــين]

تفضل اخي

التلوين.rar

[إبراهيم ابوليله]

الاخ ابو حنين

مشكور اهتمامك

ولكننى اريد عندما اشير الى خليه بالماوس تتغير خصائصها لتصبح بالون الازرق والكتابه بالون الاصفر بدلا من اللون الابيض للخليه والاسمر للكتابه

ثم عند الابتعاد عن الخليه ترجع خصائصها كما كانت وهى لون الخليه ابيض ولون الكتابه اسمر

ارجو المعزره فى الاطاله

[رجب جاويش]

بعد اذن أخى الفاضل / أبو حنين

تفضل أخى

التلوين 1.rar

[إبراهيم ابوليله]

بارك الله فيك اج رجب

عمل رائع

وهذا بالظبط هو المطلوب

[احمد غانم]

عمل رائع... سلمت يداك اخي رجب جاويش

مشكلة الكود انه لا يسمح بألوان اخرى في الخلايا؟

تم تعديل مايو 2, 2012 بواسطه أحمــــد غانـــم

[رجب جاويش]

أخى أحمد

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

اللون يحدد داخل الكود وبامكانك تغيرة كما تشاء من داخل الكود

[احمد غانم]

اخي رجب بارك الله بك

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

[رجب جاويش]

أخى الفاضل / أحمد

عند وجود خلايا تم عمل تلوين لها عن طريق التنسيق الشرطى فان الكود لا يؤئر على الألوان الخاصة بالتنسيق الشرطى

واليك المرفق لتوضيح ذلك

التلوين 1.rar

[أبو حنــــين]

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

[رجب جاويش]

أخى الفاضل / أبو حنين

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

[إبراهيم ابوليله]

ارجو المساعده

كما هو مشروح

مرفق شيت الاكسل

التلوين 1.rar

[الـعيدروس]

السلام عليكم

بعذ اذن الأخوه الافاضل

بيكون هكذا

Option Explicit

Public O_ALIDROOS As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, [A2:Z5000]) Is Nothing Then

Application.ScreenUpdating = False

Application.EnableEvents = False

If Not O_ALIDROOS Is Nothing Then

0

O_ALIDROOS.Interior.Color = RGB(255, 255, 0)

O_ALIDROOS.Font.Color = RGB(0, 0, 255)

End If

Target.Interior.Color = RGB(0, 0, 255)

Target.Font.Color = RGB(255, 255, 0)

Application.ScreenUpdating = True

Application.EnableEvents = True

Set O_ALIDROOS = Target

Else

GoTo 0

End If

End Sub

[إبراهيم ابوليله]

يا جماعه

انا مش عارف انا مش قادر اوصلكو ولا ايه

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

ولما ابعد عنها يرجع لونا كما كانت لو ملونه ترجع ملونه

لو من غير لون ترجع من غير لون

[إبراهيم ابوليله]

ارجو المساعده

[إبراهيم ابوليله]

ارجو المساعده

[منياوى]

الف الف شكر