Jak liczyć komórki z określonym tekstem i kolorem wypełnienia / czcionki w programie Excel?
Możesz łatwo policzyć liczbę komórek zawierających tylko jeden warunek, na przykład policzyć wszystkie komórki z określonym tekstem lub czcionką / kolorem wypełnienia. Jednak czy wiesz, jak liczyć komórki z wieloma warunkami? Na przykład policz liczbę komórek, które zawierają zarówno określony tekst, jak i kolor czcionki / wypełnienia. Ten artykuł pokaże Ci rozwiązanie.
Policz komórki z określonym tekstem i wypełnij kolorem kodem VBA
Policz komórki z określonym tekstem i kolorem czcionki za pomocą kodu VBA
Policz komórki z określonym tekstem i wypełnij kolorem kodem VBA
Przypuśćmy, że masz tabelę pokazaną na poniższym zrzucie ekranu, aby zliczać komórki w kolumnie B na podstawie tekstu i koloru wypełnienia komórki E2, zastosuj następujący kod VBA.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: Policz komórki z określonym tekstem i kolorem wypełnienia
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
Note: W kodzie B2: B9 to zakres, w którym policzysz komórki w środku, E2 zawiera tekst i kolor wypełnienia, na podstawie którego policzysz komórki. Możesz je zmienić według swoich potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz komórkę, w której chcesz umieścić wynik, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wynik zliczania jest natychmiast wyświetlany w wybranej komórce.
Policz komórki z określonym tekstem i kolorem czcionki za pomocą kodu VBA
Aby zliczać komórki w zakresie B2: B9 na podstawie tekstu i koloru czcionki komórki E2, wykonaj następujące czynności.
1. Otworzyć Microsoft Visual Basic for Applications okna naciskając inny + F11 klawiatura.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł, a następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: Policz komórki z określonym tekstem i kolorem czcionki
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
Note: W kodzie B2: B9 to zakres, w którym zliczasz komórki, E2 to kryteria, na podstawie których będziesz liczyć komórki. Możesz je zmieniać według potrzeb.
3. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutools dla programu Excel pojawi się okno dialogowe, wybierz komórkę, w której chcesz umieścić wynik, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Otrzymasz wynik, jak pokazano na poniższym zrzucie ekranu:
Podobne artykuły:
- Jak policzyć liczbę komórek między dwiema wartościami lub datami w programie Excel?
- Jak liczyć komórki z określonym tekstem w programie Excel?
- Jak policzyć, czy komórka zawiera tekst lub część tekstu w programie Excel?
- Jak policzyć liczbę określonych / określonych słów w komórce lub zakresie komórek w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!