هل هناك كود لتلوين الخلايا التى يتم فرزها

[MOHAMEDTAHER7]

هل هناك كود لتلوين الخلايا التى تم فرزها اى انا عندى ملف مكون من 3000 صف اريد كود لتلوين الخلايا التى يتم فرزها با اللون الذى يتم اختيارة مرفق ملف وشكراااااااا للجميع

اوفيسنا.rar

[MOHAMEDTAHER7]

اية ياجماعة فينكم

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

السلام عليكم

مثال.rar

[ياسر الحافظ]

الاخ / الاستاذ ابو حنين

احببت ان القي التحية والسلام واقول تشكر لهذا النشاط المميز ... جزاك الله كل الخير

وفقك الله

ابو الحارث

[alfahad]

وفقك الله يا ابا حنين

كعادتك معطى ومبدع

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

شكرا اخي الكريم : / أبو الحارث

شكرا اخي الكريم : / فهد

جزاكم الله خيرا على المرور العطر

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

الاخ ابو حنين

عمل رائع بارك الله فيك

[MOHAMEDTAHER7]

تسلم ايدك استاذ / ابو حنين بس انا لى استفسار هل يمكن تعديل هذا الكود لنجعل المستوى 1 باللون الاحمر ويكون ثابت والمصتوى 2 مثلا باللون الاصفر ويكون ثابت وهكذا وعموما سلمت يمناك على ردك

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

نعم أخي غير امسح الكود السابق كليا و غيره بهذا الكود

Private Sub Worksheet_Selectionchange(ByVal Target As Range)

For t = 5 To 71: For s = 1 To 6

If Target.Column = 3 Then

If Cells(t, 3).Value = Target.Value Then

Cells(t, s).Interior.ColorIndex = Cells(t, 3).Value + 32

Else

Cells(t, s).Interior.ColorIndex = 0

End If: End If: Next: Next

End Sub

[أبو أنس حاجب]

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

أستاذي وسيدي الفاضل أبا حنين حفظكم الله

كما تعودناك متميز في الأبداع ونبيل الخُلق زادك الله علماً على علم ونبلاً على نبل ويسر أمرك كله وحفظ لك ذريتك من بعدك إلى يوم الدين.

تقبل مني خالص التقدير والأحترام وسامحونا على التقصير معكم.

أبو أنس ناصر حاجب