عد الخلايا الفارغه

[ashraff101]

الملف مرفق مطلوب عدد الخلايا كما فى التوضيح

color.rar

[أكرم الغامدي]

أخي أشرف أعتقد أن هناك مشكلة بالملف المرفق أما بالنسبة للمعادلة الخاصة بحساب الخانات الفارغة فهي "COUNTBLANK" وهذا مثال عليها:

=COUNTBLANK(A:A)

[ashraff101]

اخى اكرم السلام عليكم

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

[أكرم الغامدي]

عذراً ففي هذه الأمور من الأفضل أن يكون الشرح بملف يشرح الحالة بالتمام وهذا ما فهمت فأعذرني ان كان فهمي لك خطأ

Sub ccc()
Dim I As Integer
Dim S As Integer
Dim K As Integer
    S = 0
    K = 0
    For I = 1 To 1000
        If Range("H" & I).Font.ColorIndex = 3 And Range("H" & I) = "" Then
            S = S + 1
            MsgBox "عدد الخلايا الفارغة ولون خطها أحمر = " & S & " خلية."
        End If
        If Range("H" & I).Interior.ColorIndex = 6 And Range("H" & I) = "" Then
            K = K + 1
            MsgBox "عدد الخلايا الفارغة ولونها أصفر = " & K & " خلية."
        End If
    Next I
End Sub

[ashraff101]

اين المعادله

[ashraff101]

is there aformula like =countblankbycolor(a1:a20;6;false

ارجو الافادة

[ashraff101]

فين الاجابات يا اصدقائى