Создание количества цветных ячеек на листах с условным форматированием

Создание количества цветных ячеек на листах с условным форматированием
Подсчитайте количество ячеек каждого цвета. Используйте функцию для подсчета цветов. Условие, созданное с использованием формулы цвета. Посетите мои онлайн-курсы www.easyexcelanswers.com/courses.html.
Все мои курсы включают онлайн-поддержку и руководство пользователя.
Позвольте мне научить вас VBA, которому я научился за пять лет консультирования.
https://www.easyexcelanswers.com/Into_VBA.html

Давайте избавим пользовательские формы от разочарований
https://www.easyexcelanswers.com/Userforms.html

Станьте партнером и зарабатывайте 25% на продаже курсов
https://barb-s-school-c482.thinkific.com/courses/become-an-affiliate
Код
Функция COUNTConditionColorCells(CellsRange как диапазон, ColorRng как диапазон)
'сделать рабочий лист всегда обновляемым
Приложение.Волатильный
'определить мои переменные

Тусклая работа как логическое значение
Dim dbw как строка
Уменьшить CFCELL как диапазон
Dim CF1 как одиночный
Dim CF2 как двойной
Тусклый CF3 как долго

Работать неверно
'для первого условного формата на количество условий в диапазоне
Для CF1 1 в CellsRange.FormatConditions.Count
'если первый цвет условия находится в диапазоне, то начинаем отсчет
Если CellsRange.FormatConditions(CF1).Interior.ColorIndex ColorRng.Interior.ColorIndex Тогда
Работайте верно
Выход для
Конец, если
Следующий CF1
CF2 0
CF3 0
Если работа верна, то
Для каждого CFCELL в CellsRange
'считаем цвета в диапазоне
dbw CFCELL.FormatConditions(CF1).Формула1
dbw Application.ConvertFormula(dbw, xlA1, xlR1C1)
dbw Application.ConvertFormula(dbw, xlR1C1, xlA1, , ActiveCell.Resize(CellsRange.Rows.Count, CellsRange.Columns.Count).Cells(CF3 1))
Если Evaluate(dbw) True Тогда CF2 CF2 1
CF3 CF3 1
Следующий CFCELL
Еще
COUNTConditionColorCells /"НЕТ ЦВЕТА/"
Выход из функции
Конец, если
COUNTConditionColorCells CF2
Конечная функция

Для получения дополнительной помощи посетите мой веб-сайт http://www.easyexcelanswers.com или напишите мне по адресу [email protected].

Свяжитесь со мной по поводу настройки этого шаблона для ваших нужд.

Доступно индивидуальное онлайн-обучение Excel. Напишите мне, чтобы договориться.

Я могу предоставить онлайн-помощь на вашем компьютере по разумной цене.

Посетите мой следующий часовой вебинар по Excel
https://www.crowdcast.io/easyexcelanswers

Для записи видео я использую синий конденсаторный микрофон, вот ссылка
https://amzn.to/37gyyGa

Используйте Crowdcast для создания вебинаров
https://app.linkmink.com/a/crowdcast/83

Если вам нужно купить Office 2019, следуйте
https://amzn.to/2VX5dv8

Я использую Tube Buddy для продвижения своих видео.
Проверь их
https://www.Tubebuddy.com/easyexcelanswers

Следуйте за мной на Facebook
https://www.facebook.com/easyexcel.answers

Подпишись на меня в Твиттере
EasyExcelОтветы

ИГ @barbhendersonconsulting

Вы можете помочь и создать перевод на ваш родной язык.
http://www.youtube.com/timedtext_cs_panel?cUCFH2kZykqt-VX5W9waJzYvQ&tab2

*это описание может содержать партнёрские ссылки. Когда вы нажмете на них, я могу получить небольшую комиссию без каких-либо дополнительных затрат с вашей стороны. Я рекомендую только те продукты и услуги, которыми сам пользовался или с которыми имел опыт.