Usage in excel : =SumIfBold(HU3:HU31)
Value (Range)
Function SumIfBold(MyRange As Range) As Double
Application.Volatile (True)
Dim cell As Range
For Each cell In MyRange
If cell.Font.Bold = True Then
SumIfBold = SumIfBold + cell
End If
Next cell
Application.Volatile (True)
Dim cell As Range
For Each cell In MyRange
If cell.Font.Bold = True Then
SumIfBold = SumIfBold + cell
End If
Next cell
End Function
Published: 3/4/2013 8:11 PM