Макрос Excel VBA: подсчет ячеек условного форматирования (динамический диапазон)

Макрос Excel VBA: подсчет ячеек условного форматирования (динамический диапазон). В этом видео мы создаем код, который автоматически подсчитывает все условно отформатированные ячейки в диапазоне, независимо от количества строк. Этот код позволяет пользователю легко подсчитывать условно отформатированные ячейки в нескольких столбцах с разными критериями для каждого. Мы используем «Окно сообщения» и «Иначе если», чтобы учесть, что в нашем подсчете есть ноль, одна или несколько условно отформатированных ячеек.

Данные, использованные в этом видео:
https://gsociology.icaap.org/dataupload.html

Это модификация кода из:
https://www.excelsirji.com/vba-code-count-color-cells-conditional-formatting/

Код:

Подсчет_cond_cells()

Уменьшить диапазон как диапазон
Уменьшить rngCell как диапазон
Dim row_count как целое число
Dim cond_count как целое число
Рабочий лист Dim ws As

Установите ws ThisWorkbook.Sheets(/"Sheet1/")

ws.Activate
row_count WorksheetFunction.CountA(Диапазон(/"A1/

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