با سلام
امکان داره فرمولی بنویسیم که شرط کنه اگه سلول الف قرمز بود تایپ کنه خوب
با تشکر
امکان داره فرمولی بنویسیم که شرط کنه اگه سلول الف قرمز بود تایپ کنه خوب
با تشکر
Function CountColorIf(rSample As Range, rArea As Range) As Long
Dim rAreaCell As Range
Dim lMatchColor As Long
Dim lCounter As Long
lMatchColor = rSample.Interior.Color
For Each rAreaCell In rArea
If rAreaCell.Interior.Color = lMatchColor Then
lCounter = lCounter + 1
End If
Next rAreaCell
CountColorIf = lCounter
End Function
کامنت