Function ColorSum(varRange As Range, varColor As Range) As Variant Application.Volatile Dim varTemp As Variant, cell As Range ColorSum = 0 For Each cell In varRange If cell.Interior.ColorIndex = varColor.Interior.ColorIndex Then If IsNumeric(cell.Value) Then ColorSum = ColorSum + cell.Value End If Next End Function
Užitočné (1) | Kabaka123 |
Podmienka v Exceli