بعد التحيه
ارجو المساعده فى معادله لجمع الرمز X المتواجد فى الخليه الصفراء فقط
معادله وليس كود ... ممنوع رفع الملف مضغوط طالما حجمه صغير , تم اعادة رفع الملف بدون ضغط تجنباً لإهدار الوقت لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
It is forbidden to upload a compressed file as long as its size is small. The file was re-uploaded without compression to avoid wasting time
Function CountCellsByColor(rData As Range, cellRefColor As Range) As Long
Dim indRefColor As Long
Dim cellCurrent As Range
Dim cntRes As Long
Application.Volatile
cntRes = 0
indRefColor = cellRefColor.Cells(1, 1).Interior.Color
For Each cellCurrent In rData
If indRefColor = cellCurrent.Interior.Color Then
cntRes = cntRes + 1
End If
Next cellCurrent
CountCellsByColor = cntRes
End Function