ارجوالمساعدة بكود لتلوين الخلية النشطة بدون تعارض مع صيغة التنسيق الشرطى

[فضل حسين]

الى خبراء واعضاء منتداى العزيز والعظيم

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

مرفق ملف موضح به المطلوب ............ وجزاكم الله كل خير

كود مختلف لتلوين الخلية النشطة.rar

[الـعيدروس]

السلام عليكم

بعد تحايل توصلت لهذا الكود

استبدل الكود التالي بالكود الذي عندك

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

Static OldCell As Range

Application.EnableEvents = False

Call ali_COLR

Application.EnableEvents = True

If Not OldCell Is Nothing Then

OldCell.Interior.Color = xlColorIndexNone

End If

Application.EnableEvents = False

Call ali_COLR

Application.EnableEvents = True

Target.Interior.Color = 3

Set OldCell = Target

End Sub

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

Public Sub ali_COLR()

Dim R

For R = 1 To 50

Range(Cells(R, 1), Cells(R, 18)).Offset(1, 0).Interior.Color = RGB(210, 242, 250)

R = R + 1

Next

End Sub

جرب واخبرني بالنتائج

تحياتي

[abouelhassan]

استاذنا ابو نصار

زادك الله علما وكرما استاذنا

احترام شديد جداااااا

اخيك

ابوالحسن

[الحسامي]

السلام عليكم

والله يا ابو نصار انك رائع

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

ولاثراء الموضوع هنا تعديل على الكود الاصلي (مع ابقاء التنسيق الشرطي)

Static OldCell As Range

If Target.Cells.Count <> 1 Then Exit Sub

Target.FormatConditions.Delete

If Not OldCell Is Nothing Then

OldCell.FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(ROW(),2)=0"

OldCell.FormatConditions(1).Interior.Color = 12632256

OldCell.Interior.ColorIndex = xlColorIndexNone

End If

Target.Interior.ColorIndex = 3

Set OldCell = Target

او هنا كود اخر لعمل المطلوب ( مع ازالة التنسيق الشرطي)

Static OldCell As Range

If Target.Cells.Count <> 1 Then Exit Sub

If Not OldCell Is Nothing Then

OldCell.Interior.ColorIndex = xlColorIndexNone

If OldCell.Row Mod 2 = 0 Then OldCell.Interior.Color = RGB(192, 192, 192)

End If

Target.Interior.ColorIndex = 3

Set OldCell = Target

[الـعيدروس]

السلام عليكم

اشكرك جدا استاذ عماد على هذا التشجيع

وجزاك الله خير على اكوادك نتعلم الكثير منك

حفظك الله وسدد خطاك

تلميذك أبو نصار

[جلال محمد]

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

للاثراء الموضوع

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

تحياتي لكم

كود مختلف لتلوين الخلية النشطة 2.rar

[فضل حسين]

الاساتذة الفضلاء الكبار

ابونصار

فارس الاكسل العربى ( الحسامى باشا )

جلال محمد

كل الشكر والتقدير والاحترام والاجلال لحلولكم الرائعة وهو المطلوب بالفعل جزاكم الله كل خير والف الف شكر وربنا يخليكم دايما لنا .