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 SubOpombe: 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 SubOpombe: 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 orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
