برجاء المساعدة بكود او بمعادلة لعد الخلايا الملونة فى نطاق معين

[فضل حسين]

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

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

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

عد الخلايا الملونة فقط.rar

[عبدالله المجرب]

السلام عليكم

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

وانما يعتمد على قيمة الخلية

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In [B2:G20]

If cl.Value = "" Or cl.Value = 0 Then

r = r + 1

[K13] = r

End If

Next

End Sub

[ابو القبطان]

اخي اطلع على المرفق لعلك تجد ما يفيدك

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

[ابو القبطان]

سقط سهوا ذكر أن العمل منقول .. فإدعو لصاحبه

[عبدالله المجرب]

اخي حسن

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

[فضل حسين]

الف شكر للمايسترو الكبير حبيب قلبى

وشكر للاخ حسن

ولكن يبق سؤال يطرح نفسه هل اللون الناتج من التنسيق الشرطى لايمكن عده ؟

وشكرا