طريقة لعد الخلايا المظلله في عمود بملف إكسيل

[احمد محمود عبد الفتاح]

هل من طريقة لعد الخلايا المظللة في الملف المرفق في كل من العمود D,E

عد الخلايا المظللة.rar

[رجب جاويش]

تفضل أخى

Sub count()
Application.ScreenUpdating = False
For Each cl In Range("D:E")
    If cl.Interior.ColorIndex = 6 Then
         R = R + 1
    End If
Next
Range("H2") = R
Application.ScreenUpdating = True
End Sub

عد الخلايا المظللة1.rar

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

السلام عليكم 

شاهد هذا الرابط ان شاء الله يفي بالغرض

http://www.officena.net/ib/index.php?showtopic=40658&hl=

[رجب جاويش]

وهذه دالة معرفة

Function count_color(rng As Range)
For Each cl In rng
    If cl.Interior.ColorIndex = 6 Then
         R = R + 1
    End If
Next
count_color = R
End Function

وتستخدم كالآتى

=count_color(D1:E100)

عد الخلايا المظللة2.rar