Исключение столбцов из диапазона

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

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

Исключение столбцов из диапазона (Макросы/Sub)

EvgenyApMr

Дата: Среда, 22.04.2020, 12:10 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2019

Добрый день!)

Есть процедура, которая считает ячейки с определенным цветом.

[vba]

Код

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
Dim Sum As Double
Application.Volatile True
For Each cell In DataRange
If cell.Interior.Color = ColorSample.Interior.Color Then
Sum = Sum + 1
End If
Next cell
SumByColor = Sum
End Function

[/vba]

Подскажите, как модифицировать эту процедуру таким образом, чтобы из заданного диапазона были исключены были исключены те ячейки, которые принадлежат к столбцам с окрашенными ячейками?

Должен происходить подсчет только тех "Б", которые не попадают под коричневый столбец. Или наоборот - счёт только тех, которые попадают.

Например, в формуле

Код

=СЧЁТЕСЛИ(E6:AH6;"Б")*1

нужно удалить ячейки под окрашенным столбцом (H6, I6, O6 и т.д.)