شمارش و جمع سلول های رنگی در اکسل

ابتدا وارد محیط (VBA (Alt + F11 بشن بعد از منوی Insert گزینه module رو انتخاب کنید و کد زیر را وارد نمائید :

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
 For Each rCell In rRange   
 If rCell.Interior.ColorIndex = lCol Then        
vResult = WorksheetFunction.SUM(rCell, vResult)           
  End If        
  Next rCell   
 Else   
For Each rCell In rRange   
If rCell.Interior.ColorIndex = lCol Then        
vResult = 1 + vResult           
End If        
Next rCell   
End If
ColorFunction = vResult
End Function

بعد از درج کد فوق توسط دستورا زیر میتوانید دادهای خود را استخراج نمائید :

// تعداد سلول های رنگی
colorfunction(A;B:C;FALSE)=

// جمع سلول های رنگی

colorfunction(A;B:C;TRUE)=

A = سلولی که معیار رنگ هست یعنی اگه میخواین زرد ها رو بررسی کنین باید رنگ این سلول باید زرد باشه تا از آن الگو گرفته شود
B:C = محدوده ای که برای شمارش مد نظر می باشد