Формула для определения количества закрашенных ячеек

[catano]

Добрый день!

Подскажите возможно ли, чтобы Excel подсчитывал в таблице количество закрашенных (залитых) и пустых ячеек? Какая должна быть формула?

[EducatedFool]

Встроенные функции тут вряд ли помогут.

Но можно написать пользовательскую функцию, которая возвратит количество закрашенных ячеек.

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

(добавлено)
Найти не смог - пришлось делать снова
Вот весь код:

Function КолвоЧистыхЯчеек(ByRef ra As Range) As Long
    Dim cell As Range
    For Each cell In ra.Cells
        КолвоЧистыхЯчеек = КолвоЧистыхЯчеек - (cell.Interior.ColorIndex = xlNone)
    Next cell
End Function

Function КолвоЗакрашенныхЯчеек(ByRef ra As Range) As Long
    Dim cell As Range
    For Each cell In ra.Cells
        КолвоЗакрашенныхЯчеек = КолвоЗакрашенныхЯчеек - (cell.Interior.ColorIndex <> xlNone)
    Next cell
End Function

Обратите внимание на формулы в ячейках:

  Ячейка: A2      Формула  (стиль A1):   =КолвоЧистыхЯчеек(C1:C19)
                  Формула  (стиль R1C1): =КолвоЧистыхЯчеек(R[-1]C[2]:R[17]C[2])

  Ячейка: A3      Формула  (стиль A1):   =КолвоЗакрашенныхЯчеек(C2:D10)
                  Формула  (стиль R1C1): =КолвоЗакрашенныхЯчеек(R[-1]C[2]:R[7]C[3])

[Aent]

Можно и встроенными функциями если не требовать автоматического пересчёта
Допустим таблица это [A1:A5]
Определяем имя ЗАЛИВКА как =ПОЛУЧИТЬ.ЯЧЕЙКУ(63;A1) и помещаем в
[B1:B5] формулу =ЗАЛИВКА
Тогда число ячеек с заливкой определяется как
=СЧЁТЕСЛИ(B1:B5;"<>0")

Кстати, вопрос несколько усложняется если учитывать условное форматирование
Посмотрите пример:
http://www.vbaexpress.com/kb/getarticle.php?kb_id=190
Ну и вот эта ссылка, полагаю,может пригодиться
http://www.planetaexcel.ru/forum.php?thread_id=8934