Как подсчитать ячейки с определенным текстом и цветом заливки / шрифта в 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?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!