Note: The other languages of the website are Google-translated. Back to English

Как подсчитать ячейки с определенным текстом и цветом заливки / шрифта в 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 кнопка. Смотрите скриншот:

Вы получите результат, как показано на скриншоте ниже:


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (2)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Hola, он пробадо-ла-функция cuente celdas с текстом específico y color de relleno pero cuando aprieto la tecla F5 соло мне продает функцию "IR A" и не продает ла ventana para seleccionar la celda.
Supongo que no podrá probarse y tengo que comprar
Этот комментарий был сведен к минимуму модератором на сайте
Привет Нандо,
Коды VBA предоставляются бесплатно. Какую версию Excel вы используете? Есть ли сообщение об ошибке?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL