Как подсчитать ячейки с определенным текстом и цветом заливки / шрифта в Excel?
Вам может быть легко подсчитать количество ячеек, содержащих только одно условие, например подсчитать все ячейки с определенным текстом или цветом шрифта / заливки. Однако знаете ли вы, как считать ячейки с несколькими условиями? Например, подсчитайте количество ячеек, содержащих как определенный текст, так и цвет шрифта / заливки. Эта статья покажет вам решение.
Подсчет ячеек с определенным текстом и цветом заливки с кодом VBA
Подсчет ячеек с определенным текстом и цветом шрифта с кодом VBA
Подсчет ячеек с определенным текстом и цветом заливки с кодом VBA
Предположим, у вас есть таблица, как показано на скриншоте ниже, для подсчета ячеек в столбце B на основе текста и цвета заливки ячейки E2 примените следующий код VBA.
1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте ниже код VBA в окно модуля.
Код VBA: подсчет ячеек с определенным текстом и цветом заливки
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubВнимание: В коде B2: B9 - это диапазон, внутри которого вы будете подсчитывать ячейки, E2 содержит текст и цвет заливки, на основе которого вы будете подсчитывать ячейки. Вы можете изменить их по своему усмотрению.
3. нажмите F5 ключ для запуска кода, затем Kutools for Excel появится диалоговое окно, выберите ячейку для размещения результата и нажмите кнопку OK кнопка. Смотрите скриншот:
Затем результат подсчета немедленно отображается в выбранной ячейке.
Подсчет ячеек с определенным текстом и цветом шрифта с кодом VBA
Для подсчета ячеек в диапазоне B2: B9 на основе цвета текста и шрифта ячейки E2 выполните следующие действия.
1. Откройте Microsoft Visual Basic для приложений окно, нажав кнопку другой + F11 ключи.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули, затем скопируйте ниже код VBA в окно модуля.
Код VBA: подсчет ячеек с определенным цветом текста и шрифта
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubВнимание: В коде B2: B9 - это диапазон, внутри которого вы будете подсчитывать ячейки, E2 - это критерий, на основе которого вы будете подсчитывать ячейки. Вы можете менять их по своему усмотрению.
3. нажмите F5 ключ для запуска кода, затем Kutools for Excel появится диалоговое окно, выберите ячейку для размещения результата и нажмите кнопку OK кнопка. Смотрите скриншот:
Вы получите результат, как показано на скриншоте ниже:
Статьи по теме:
- Как подсчитать количество ячеек между двумя значениями или датами в Excel?
- Как подсчитать ячейки с определенным текстом в выделении в Excel?
- Как посчитать, содержит ли ячейка текст или часть текста в Excel?
- Как подсчитать количество определенных / конкретных слов в ячейке или диапазоне ячеек в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
