Kako v Excelu šteti celice z določenim besedilom in barvo polnila / pisave?
Morda vam bo enostavno prešteti število celic, ki vsebujejo samo en pogoj, na primer štetje vseh celic z določenim besedilom ali barvo pisave / polnila. Pa veste, kako šteti celice z več stanji? Na primer, preštejte število celic, ki vsebujejo določeno besedilo in barvo pisave / polnila. Ta članek vam bo pokazal rešitev.
Štejte celice z določenim besedilom in barvo zapolnite s kodo VBA
Štejte celice z določenim besedilom in barvo pisave s kodo VBA
Štejte celice z določenim besedilom in barvo zapolnite s kodo VBA
Če imate tabelo, kot je prikazano na spodnji sliki zaslona, za štetje celic v stolpcu B na podlagi besedila in barve polnila celice E2, uporabite naslednjo kodo VBA.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo VBA v okno modula.
Koda VBA: preštejte celice z določenim besedilom in barvo polnila
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
Opombe: V kodi je B2: B9 obseg, v katerem boste šteli celice, E2 vsebuje besedilo in barvo polnila, na podlagi katerih boste šteli celice. Lahko jih spremenite po svojih potrebah.
3. Pritisnite F5 tipko za zagon kode, nato a Kutools za Excel Pojavi se pogovorno okno, izberite celico, v katero želite postaviti rezultat, in nato kliknite OK . Oglejte si posnetek zaslona:
Nato se rezultat štetja takoj prikaže v izbrani celici.
Štejte celice z določenim besedilom in barvo pisave s kodo VBA
Za štetje celic v območju B2: B9 na podlagi besedila in barve pisave celice E2, storite naslednje.
1. Odprite Microsoft Visual Basic za aplikacije s pritiskom na druga + F11 ključi.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, nato kopirajte spodnjo kodo VBA v okno modula.
Koda VBA: preštejte celice z določeno barvo besedila in pisave
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
Opombe: V kodi je B2: B9 obseg, v katerem boste šteli celice, E2 pa merila, na podlagi katerih boste šteli celice. Lahko jih spremenite po potrebi.
3. Pritisnite F5 tipko za zagon kode, nato a Kutools za Excel Pojavi se pogovorno okno, izberite celico, v katero želite postaviti rezultat, in nato kliknite OK . Oglejte si posnetek zaslona:
Rezultat boste dobili, kot je prikazano na spodnji sliki zaslona:
Sorodni članki:
- Kako prešteti število celic med dvema vrednostma ali datumoma v Excelu?
- Kako šteti celice z določenim besedilom v izboru v Excelu?
- Kako prešteti, ali celica vsebuje besedilo ali del besedila v Excelu?
- Kako v Excelu prešteti število določenih / določenih besed v celici ali obsegu celic?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!