Добрый день! Задача состоит в том, чтобы посчитать количество ячеек с определенным цветом заливки одновременно по ДВУМ диапазонам (т.е по двум условиям) по принципу работы "счётеслимн". Нашёл очень хорошую статью в приемах:
Использую следующий код из данной статьи:
А теперь внимание основной вопрос:
Подскажите пожалуйста, как должен выглядеть вышеуказанный код, если мне нужно добавить в функцию еще один дополнительный диапазон (по принципу работы функции "счётеслимн") для отбора по такому же критерию (по цвету заливки, но уже другого цвета).
Файл прилагаю. В нём есть конкретное описание.
Использую следующий код из данной статьи:
| Код |
|---|
Function CountByColor(DataRange As Range, ColorSample As Range) As Long Dim cell As Range, n As Long For Each cell In DataRange If cell.Interior.Color = ColorSample.Interior.Color Then n = n + 1 Next cell CountByColor = n End Function |
А теперь внимание основной вопрос:
Подскажите пожалуйста, как должен выглядеть вышеуказанный код, если мне нужно добавить в функцию еще один дополнительный диапазон (по принципу работы функции "счётеслимн") для отбора по такому же критерию (по цвету заливки, но уже другого цвета).
Файл прилагаю. В нём есть конкретное описание.
