Подсчет количества ячеек с определенным цветом ячеек с помощью VBA
На вкладке «Формулы Microsoft Excel» мы знаем, что в категории «Дополнительные статистические функции» есть функция с именем СЧЁТЕСЛИ, которая подсчитывает количество ячеек в диапазоне, > соответствующих заданному условию. Условия для этой функции ограничены текстом или числами. Однако с помощью VBA можно создать функцию для подсчета количества ячеек с другими критериями, такими как цвет ячеек.
Дополнительные сведения
С помощью VBA можно создать определяемую пользователем функцию (UDF) и сохранить ее в файле надстройки, чтобы ее можно было использовать в других книгах и передавать на другие компьютеры.
Создание определяемой пользователем функции
Ниже приведены шаги по созданию определяемой пользователем функции для подсчета цвета ячейки.
- Откройте Microsoft Excel, а затем нажмите клавиши ALT+F11, чтобы отобразить окно редактора Visual Basic (VBE).
- В меню «Вставка » выберите «Модуль «, чтобы создать модуль. Затем введите следующий скрипт:
Function CountCcolor(range_data As range, criteria As range) As Long Dim datax As range Dim xcolor As Long xcolor = criteria.Interior.ColorIndex For Each datax In range_data If datax.Interior.ColorIndex = xcolor Then CountCcolor = CountCcolor + 1 End If Next datax End Function =CountCcolor(range_data,criteria) - В аргументе «range_data» выберите ячейку C2 –C51.
- В аргументе criteria выберите ячейку F1.
Примечание. Вы можете сохранить Add-In в любом месте. Но чтобы он был указан в качестве Add-In в программе Excel, сохраните его в расположении по умолчанию. В Windows 7 расположение по умолчанию для любой версии Microsoft Excel: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns
Определяемая пользователем функция цвета ячейки Count установлена и готова к использованию. Вы сможете получить доступ к этой функции в любое время, поместив курсор в любую ячейку на листе и введя:
=CountCcolor(range_data,criteria) Отказ от ответственности за содержимое общедоступных решений
КОРПОРАЦИЯ МАЙКРОСОФТ И (ИЛИ) СООТВЕТСТВУЮЩИЕ ПОСТАВЩИКИ НЕ ДЕЛАЮТ ПРЕДСТАВЛЕНИЙ О ПРИГОДНОСТИ, НАДЕЖНОСТИ ИЛИ ТОЧНОСТИ СВЕДЕНИЙ И СВЯЗАННЫХ ГРАФИЧЕСКИХ ЭЛЕМЕНТОВ, СОДЕРЖАЩИХСЯ В ЭТОМ РАЗДЕЛЕ. ВСЯ ТАКАЯ ИНФОРМАЦИЯ И СВЯЗАННАЯ ГРАФИКА ПРЕДОСТАВЛЯЮТСЯ «КАК ЕСТЬ» БЕЗ КАКИХ-ЛИБО ГАРАНТИЙ. КОРПОРАЦИЯ МАЙКРОСОФТ И (ИЛИ) СООТВЕТСТВУЮЩИЕ ПОСТАВЩИКИ ТЕМ САМЫМ ОБЯЗЫВАТЬ ВСЕ ГАРАНТИИ И УСЛОВИЯ, СВЯЗАННЫЕ С ЭТОЙ ИНФОРМАЦИЕЙ И СВЯЗАННОЙ ГРАФИКОЙ, ВКЛЮЧАЯ ВСЕ ПОДРАЗУМЕВАЕМЫЕ ГАРАНТИИ И УСЛОВИЯ ТОВАРНОЙ ПРИГОДНОСТИ, ПРИГОДНОСТИ ДЛЯ ОПРЕДЕЛЕННОЙ ЦЕЛИ, ТРУДОЗАТРАТ, ДОЛЖНОСТЬ И ОТСУТСТВИЕ НАРУШЕНИЯ ПРАВ. ВЫ СОГЛАШАЕТЕСЬ С ТЕМ, ЧТО НИ В КОЕМ СЛУЧАЕ КОРПОРАЦИЯ МАЙКРОСОФТ И (ИЛИ) ЕЕ ПОСТАВЩИКИ НЕ НЕСУТ ОТВЕТСТВЕННОСТИ ЗА ЛЮБЫЕ ПРЯМЫЕ, КОСВЕННЫЕ, НЕПРЯМЫЕ, СЛУЧАЙНЫЕ, ОСОБЫЕ, КОСВЕННЫЕ И КОСВЕННЫЕ УБЫТКИ ИЛИ ЛЮБЫЕ УБЫТКИ, ВКЛЮЧАЯ БЕЗ ОГРАНИЧЕНИЙ УБЫТКИ ЗА ПОТЕРЮ ИСПОЛЬЗОВАНИЯ, ДАННЫХ ИЛИ ПРИБЫЛИ, ВОЗНИКАЮЩИЕ ИЗ-ЗА ИСПОЛЬЗОВАНИЯ СВЕДЕНИЙ И СВЯЗАННЫХ ГРАФИЧЕСКИХ ЭЛЕМЕНТОВ, СОДЕРЖАЩИХСЯ В ЭТОМ ДОКУМЕНТЕ, ИЛИ ИХ НЕВОЗМОЖНОСТИ ИСПОЛЬЗОВАТЬ ИХ. НА ОСНОВЕ КОНТРАКТА, TORT, НЕОСТОРОЖНОСТИ, СТРОГОЙ ОТВЕТСТВЕННОСТИ ИЛИ ИНЫМ ОБРАЗОМ, ДАЖЕ ЕСЛИ КОРПОРАЦИЯ МАЙКРОСОФТ ИЛИ ЛЮБОЙ ИЗ ЕЕ ПОСТАВЩИКОВ БЫЛИ ОПОВЕТИВЫ О ВОЗМОЖНОСТИ УБЫТКОВ.
Применение цвета к чередующимся строкам или столбцам
Применив цвет к чередующимся строкам или столбцам (это часто называют цветными полосами), можно облегчить восприятие данных на листе. Чтобы отформатировать чередующиеся строки или столбцы, можно быстро применить один из встроенных форматов таблицы. Если воспользоваться этим методом, то при добавлении новых строк или столбцов к ним автоматически будет применяться соответствующая заливка.
Вот как это сделать:
- Выделите диапазон ячеек, которые нужно отформатировать.
- Перейдите в раздел Главная >Форматировать как таблицу.
- Выберите стиль таблицы, в котором применяется заливка с чередованием строк.
- Чтобы изменить заливку со строк на столбцы, выберите таблицу в разделе Конструктор таблиц, а затем снимите флажок Чередующиеся строки и проверка поле Столбцы с полосами.
Совет: Если вы хотите сохранить стиль с чередованием, но убрать функциональность таблицы, выберите команду Преобразовать в диапазон. В этом случае при добавлении строк и столбцов к ним не будет автоматически применяться форматирование с цветными полосами, но его можно применять вручную с помощью команды Формат по образцу.
Применение полос к строкам или столбцам с помощью условного форматирования
Применить особый формат к определенным строкам или столбцам можно также с помощью правила условного форматирования.
Вот как это сделать:
- На листе выполните одно из указанных ниже действий.
- Чтобы применить затенение к определенному диапазону ячеек, выберите ячейки, которые необходимо отформатировать.
- Чтобы применить заливку ко всему листу, нажмите кнопку Выбрать все .
Советы:
- Чтобы изменить правило условного форматирования, щелкните одну из ячеек, к которым применено правило, перейдите в раздел Главная >Условное форматирование >Управление правилами >Изменить правило, а затем внесите изменения.
- Чтобы удалить условное форматирование из ячеек, выделите их, перейдите в раздел Главная >Очистить и выберите Очистить форматы.
Чтобы скопировать условное форматирование в другие ячейки, щелкните одну из ячеек, в которой применено правило, перейдите в раздел Главная >Формат по образцу
Как закрасить определенное количество ячеек в excel
Argument ‘Topic id’ is null or empty
Сейчас на форуме
© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru
Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.
| ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949 |
ИП Павлов Николай Владимирович ИНН 633015842586 ОГРНИП 310633031600071 |
Поделиться: закрасить строку и ячейки в шаблоне Excel по условию
Создаем шаблон в Excel с выделением строк и ячеек цветом.
ОПИСАНИЕ ПРОЕКТА
На определенную дату вносится результат аттестации сотрудника в соответствии с пройденным уровнем:
1 уровень — 3 теста,
2 уровень — 5 тестов,
3 уровень – 7 тестов.
За каждый тест начисляются баллы (итоговая сумма рассчитывается автоматически). Тесты, в которых набрано максимальное количество баллов, выделяются цветом и рисунком (галка).
ОПИСАНИЕ ШАБЛОНА
1. Выделить цветом всю строку в соответствии с уровнем аттестации.
2. Выделить цветом ячейки, в которых нет результата теста /тест не проводится/.
ШАБЛОН В EXCEL
1. Выделить цветом всю строку в соответствии с уровнем аттестации.
1 уровень — стандартный цвет (белый).
2 уровень выделяем цветом.
В шаблоне выделяем весь диапазон данных (всю таблицу, кроме шапки). 
Открываем на главной вкладке функцию Условное форматирование – Правила выделения ячеек – Другие правила… 
В Другие правила… выбираем последний пункт Использовать формулу для определения форматируемых ячеек и записываем выражение =$B4=»2 уровень»
Справка: $B4 – первая ячейка в столбце, содержащем уровень аттестации. Таким образом проверяется весь столбец В на условие «2 уровень». 
Далее открываем Формат… — Заливка и выбираем нужный цвет.
Сохраняем правило.
3 уровень.
Выделяем цветом всю строку аналогично второму уровню, только в выражении записываем условие для третьего уровня =$B4=»3 уровень»
2. Выделить цветом ячейки, в которых нет результата теста /тест не проводится/ (слово «нет»).
В шаблоне выделяем весь диапазон данных (кроме шапки).
Открываем на главной вкладке функцию Условное форматирование – Правила выделения ячеек – Текст содержит… 
Вписываем слово «нет» и выбираем цвет заливки. 
Сохраняем правило.