بعد اذن الاخ المحترم ايسم ابراهيم
بعد ما تعمل خطوات الاخ ايسم
هتعمل copy ثم past فى Module جديد
Function CountColors(myrng As Range)
Dim Cell As Range
For Each Cell In myrng
If Cell.Interior.ColorIndex <> xlNone Then
CountColors = CountColors + 1
End If
Next
End Function
مرفق ملف اكسل جاهز + صورة للشرح
و الله أعلى و أعلم
Count Colors0.rar