Jak počítat buňky se specifickým textem a barvou výplně / písma v aplikaci Excel?
Může být pro vás snadné spočítat počet buněk, které obsahují pouze jednu podmínku, například spočítat všechny buňky se specifickým textem nebo barvou písma / výplně. Víte však, jak počítat buňky s více podmínkami? Například spočítejte počet buněk, které obsahují konkrétní text i barvu písma / výplně. Tento článek vám ukáže řešení.
Počítejte buňky se specifickým textem a vyplňte barvu kódem VBA
Počítejte buňky se specifickou barvou textu a písma pomocí kódu VBA
Počítejte buňky se specifickým textem a vyplňte barvu kódem VBA
Předpokládejme, že máte tabulku uvedenou níže, pro počítání buněk ve sloupci B na základě textu a barvy výplně buňky E2 použijte následující kód VBA.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA: Počítání buněk se specifickým textem a barvou výplně
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
Poznámka: V kódu je B2: B9 rozsah, ve kterém budete počítat buňky uvnitř, E2 obsahuje text a barvu výplně, podle kterých budete počítat buňky. Můžete je podle potřeby změnit.
3. zmáčkni F5 klíč ke spuštění kódu, pak a Kutools pro Excel Zobrazí se dialogové okno, vyberte buňku, do které chcete umístit výsledek, a klikněte na ikonu OK knoflík. Viz screenshot:
Výsledek počítání se poté okamžitě zobrazí ve vybrané buňce.
Počítejte buňky se specifickou barvou textu a písma pomocí kódu VBA
Pro počítání buněk v rozsahu B2: B9 na základě barvy textu a písma buňky E2 postupujte takto.
1. Otevři Microsoft Visual Basic pro aplikace okno stisknutím tlačítka Další + F11 klíče.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul, potom zkopírujte níže uvedený kód VBA do okna modulu.
Kód VBA: Počítání buněk se specifickou barvou textu a písma
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
Poznámka: V kódu je B2: B9 rozsah, ve kterém budete počítat buňky uvnitř, E2 je kritérium, na základě kterého budete počítat buňky. Můžete je změnit podle potřeby.
3. zmáčkni F5 klíč ke spuštění kódu, pak a Kutools pro Excel Zobrazí se dialogové okno, vyberte buňku, do které chcete umístit výsledek, a klikněte na ikonu OK knoflík. Viz screenshot:
Výsledek získáte, jak je uvedeno níže:
Související články:
- Jak počítat počet buněk mezi dvěma hodnotami nebo daty v aplikaci Excel?
- Jak počítat buňky se specifickým textem při výběru v aplikaci Excel?
- Jak počítat, pokud buňka obsahuje text nebo část textu v aplikaci Excel?
- Jak spočítat počet určitých / konkrétních slov v buňce nebo v řadě buněk v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!