Sum same Color's cell contain number in Ms Excel.

Sum same Color's cell contain number in Ms Excel.Several time we face color cell sum ,so I include here first Vb function than this function use for sum . Find details . Enjoy it!

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
'------------------Md.Shaiful Islam Talukder --------------------

Download the workbook .

Tweet