Kako šteti / seštevati celice po barvah s pogojnim oblikovanjem v Excelu?
V Excelu lahko nekatere celice obarvate s pogojnim oblikovanjem. Zdaj vam bo ta vadnica povedala nekaj priročnih in enostavnih metod za hitro štetje ali seštevanje celic po barvah s pogojnim oblikovanjem v Excelu.
Štejte celice glede na barvo pisave in ozadje po VBA
Štetje / vsota celic glede na barvo pisave s pogojnim oblikovanjem v Kutools za Excel
Štetje / vsota celic glede na barvo ozadja s pogojnim oblikovanjem v Kutools za Excel
Štejte celice po pisavi in barvi ozadja po VBA
V Excelu lahko samo koda VBA hitro prešteje celice na podlagi določene pisave in barve ozadja.
1. Pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli ter kopirajte in prilepite spodnjo kodo VBA v pojavno okno Moduli okno.
VBA: Štetje celic glede na pisavo in barvo ozadja.
Sub DisplayFormatCount()
'Updateby20150305
Dim Rng As Range
Dim CountRange As Range
Dim ColorRange As Range
Dim xBackColor As Long
Dim xFontColor As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set CountRange = Application.Selection
Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
Set ColorRange = ColorRange.Range("A1")
xReturn = 0
For Each Rng In CountRange
qqq = Rng.Value
xxx = Rng.DisplayFormat.Interior.Color
If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
xBackColor = xBackColor + 1
End If
If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
xFontColor = xFontColor + 1
End If
Next
MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub
3. klik Run ali pritisnite F5 tipko za zagon kode, nato v pogovornem oknu izberite obseg, ki ga potrebujete. Oglejte si posnetek zaslona:
4. klik OK, nato izberite celico, katere pisava in barva ozadja želite prešteti celice. Oglejte si posnetek zaslona:
5. klik OK. Nato se odpre pogovorno okno, ki vam pove, koliko celic ima enako barvo ozadja in barvo pisave z izbrano celico v obsegu.
Štetje / vsota celic glede na barvo pisave s pogojnim oblikovanjem v Kutools za Excel
V Excelu ne morete šteti ali seštevati celic po barvi pisave samo s pogojnim oblikovanjem. Vendar pa obstaja priročen dodatek, ki se imenuje Kutools za Excel ki vam lahko pomaga hitro rešiti to težavo s svojim Štej po barvah lastnost.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. | ||
po brezplačna namestitev Kutools za Excel, naredite spodaj:
1. Izberite obseg, ki ga želite šteti ali seštevati celice glede na barvo pisave s pogojnim oblikovanjem, nato kliknite Kutools Plus> Štej po barvah. Oglejte si posnetek zaslona:
2. Nato v Štej po barvah dialog, izberite Pogojno oblikovanje pod Barvna metoda seznam in Pisava pod Vrsta barve seznam. Nato si lahko v pogovornem oknu ogledate rezultat štetja in seštevanja. Oglejte si posnetek zaslona:
Opombe: Če želite rezultat izračuna izračunati kot poročilo, lahko kliknete Ustvari poročilo in Štej po barvah pogovorno okno, nato bo poročilo vdelano v nov delovni zvezek. Oglejte si posnetek zaslona:
Štetje / vsota celic glede na barvo ozadja s pogojnim oblikovanjem v Kutools za Excel
Če želite celice šteti ali seštevati po barvi ozadja s pogojnim oblikovanjem, se lahko tudi prijavite Štej po barvah uporabnost Kutools za Excel.
1. Izberite obseg, ki ga želite šteti ali seštevati celice glede na barvo ozadja s pogojnim oblikovanjem, nato kliknite Kutools Plus > Štej po barvah.
po brezplačna namestitev Kutools za Excel, naredite spodaj:
2. Nato v Štej po barvah dialog, izberite Pogojno oblikovanje pod Barvna metoda seznam in Ozadje pod Vrsta barve seznam. Nato si lahko v pogovornem oknu ogledate rezultat štetja in seštevanja. Oglejte si posnetek zaslona:
Kliknite tukaj za več o štetju po barvah.
Izračunajte celice glede na barvo pisave ali barvo ozadja
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!