Посмотрите это видео, чтобы понять, как подсчитывать ячейки по цветам с помощью условного форматирования в Excel.
Код VBA:
Кнопка:
Частная подписка Refresh_Click()
'Команда 1
Количество вызововColorCellsAQ3
Конец субтитра
Частный подсчет ColorCellsAQ3()
'Объявление переменной
Уменьшить диапазон как диапазон
Уменьшить lColorCounter до тех пор, пока
Уменьшить rngCell как диапазон
'Установить диапазон ячеек для подсчета
Установить rng Sheet2.Range(/"U3:AL3/")
'пройти по каждой ячейке диапазона
Для каждой ячейки rngCell в rng
'Проверка красного цвета
Если Cells(rngCell.Row, rngCell.Column).DisplayFormat.Interior.Color RGB(255, 153, 153) Тогда
lColorCounter lColorCounter 1
Конец, если
Следующий
'Показать общее количество красных клеток в ячейке, указанной ниже
Sheet2.Range(/"AQ3/") lColorCounter
Конец субтитра
———————————
Если вы хотите подписаться и узнать, что еще, по моему мнению, может быть полезно, посетите мой канал — https://www.youtube.com/channel/UCy-2i_EORiBW6aTA3kXaVcA?view_assubscriber.
Пожалуйста, воспользуйтесь возможностью подключиться и поделиться этим видео со своими друзьями и семьей, если вы считаете его полезным.
No Comments