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
[/vba]
Я скопировал этот код в свой sheet и стал применять формулы, указанные в мануале:
Цитата
Count the colored cells: =colorfunction(A,B:C,FALSE) Sum the colored cells: =colorfunction(A,B:C,TRUE)
Разумеется, заменил значения в формулах на соответствующие значения из своей таблицы (файл прикрепил к теме). Формулы работать отказываются!
Может кто-то смог бы объяснить мне, почему мои лыжи не едут? :-) Был бы очень признателен!
Здравствуйте,
Прошу помощи в вопросе подсчёта ячеек по цвету фона этих ячеек.
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
[/vba]
Я скопировал этот код в свой sheet и стал применять формулы, указанные в мануале:
Цитата
Count the colored cells: =colorfunction(A,B:C,FALSE) Sum the colored cells: =colorfunction(A,B:C,TRUE)
Разумеется, заменил значения в формулах на соответствующие значения из своей таблицы (файл прикрепил к теме). Формулы работать отказываются!
Может кто-то смог бы объяснить мне, почему мои лыжи не едут? :-) Был бы очень признателен!KIMVSR