СУММИРОВАНИЕ И ПОДСЧЕТ ЯЧЕЕК ОКРАШЕННЫХ В РАЗНЫЙ ЦВЕТ

[Arina]

Необходимо суммировать и подсчитывать ячейки в зависимости от цвета заливки, прописала макрос:
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


Ввожу = ColorFunction(C1; A1:A16)
выдает ошибку #ИМЯ!
Подскажите, пожалуйста, что не так.
Спасибо заранее.

[pashulka]

С пользовательской функцией всё в порядке, а проблема, по всей видимости, кроется в том, что у Вас установлен высокий уровень безопасности (меню Сервис - пункт Макрос - команда Безопасность - закладка Уровень безопасности)
Если это так, то установите переключатель в положение Средняя и если при следущем открытии своей рабочей книги - Вы не отключите макросы, то вышеопубликованная функция возвратит нужный результат (хотя, если к нужным ячейкам было применено условное форматирование, то результат вычисления подобных функций может отличаться от ожидаемого)

[Arina]

Да в том то и дело, что и уровень безопасности проверяла - стоит средний. Я на пробном файле тестировала, функция работала, затем применила в рабочем файле, где к ячейка было применено условное форматирование, выдало ошибку и все, функция перестала работать даже во вновь созданных книгах, где нет условного форматирования.

[pashulka]

Использование условного форматирования может привести к тому, что пользовательская функция возвратит "некорректное" значение (см. аттач) Однако, условное форматирование не должно вызывать значения ошибки #ИМЯ? у функций, т.к. эти вещи не взаимосвязаны (даже несмотря на то, что у.ф. может использовать результаты вычислений функций, в т.ч. и пользовательских)

В общем, предлагаю скачать нижеопубликованный пример и открыть рабочую книгу, обязательно разрешив выполнение макросов (кнопка Не отключать макросы) А если подобное безобразие(#ИМЯ?) будет наблюдаться и в дальнейшем, то имеет смысл проверить: возможно ли выполнение других макросов.

[Arina]

Ура! Заработалоооо!
Спасибо огромное за соучастие

[Superturisto]

Все работает только функция не пересчитывает значения после добавления нового значения (исменеия цвета на нужный ячейки в диапазоне)

[pashulka]

Вышеопубликованная UDF будет пересчитываться после каждого изменения значения (в т.ч. и добавления) в любой из ячеек указанного диапазона (при условии, что установлен автоматический режим пересчёта)
А что касается изменение параметров форматирования (в т.ч. цвета заливки), то есть несколько способов добиться пересчёта пользовательской функции, после их изменения, и с ними можно ознакомится на сайте автора этой функции (ссылка есть в примере)

[Superturisto]

Не вижу ссылки в примере...
Киньте в форум если не трудно

[pashulka]

А я довольно отчётливо вижу, что ссылка там наличествует, причём, именно там, где по замыслу автора, ей и положено быть.

Sums or counts cells based on a specified fill color.

[fantastik]

Спасибо всё работает!!!
)))