подсчёт количества ячеек по цвету шрифта

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

подсчёт количества ячеек по цвету шрифта (Иное)

Ghosto

Дата: Суббота, 14.12.2013, 04:55 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день!
снова обращаюсь к Вам с вопросом.
можно ли как-то сделать подсчёт количества ячеек по цвету шрифта (не заливка)?
нашёл в инете такой код:
[vba]

Код

Function КолЦветТст(диапазон As Range, критерий As Range) As Long
Application.Volatile True
Dim i As Range
     For Each i In диапазон
          If i.Font.ColorIndex = критерий.Font.ColorIndex Then
             КолЦветТст = КолЦветТст + 1
          End If
      Next
End Function

[/vba]
в обычном документе с обычными ячейками он нормально работает, но всё меняется, если применять данную надстройку для объединенных ячеек.
и вот вопрос: можно ли как-то делать подсчёт по объединённым ячейкам?

находил данную тему, и ссылку на надстройки, но именно данной надстройки там нет.
прикрепляю файл для примера.