Bonbon ede nou delivre sèvis nou yo. Lè l sèvi avèk sèvis nou yo, ou dakò pou nou sèvi ak bonbon.
Ide: Lòt lang yo se Google-tradui. Ou ka vizite a English vèsyon nan lyen sa a.
Ouvri yon sesyon
x
or
x
x
enskri
x

or

Kouman konte ak selil sòm ki baze sou koulè background nan Excel?

Sipoze ou gen yon seri de selil ki gen koulè diferan background, tankou wouj, vèt, ble ak sou sa, men kounye a ou bezwen konte konbyen selil nan ki ranje gen yon koulè background sèten ak sòm selil yo ki gen koulè ak menm koulè a ​​sèten . Nan Excel, pa gen okenn fòmil dirèk pou kalkile sòm ak konte nan selil koulè, isit la mwen pral entwodui ou kèk fason yo rezoud pwoblèm sa a.

Konte ak selil Sum ki baze sou koulè espesifik ranpli pa filtre ak SUBTOTAL

Konte ak selil Sòm ki baze sou koulè espesifik ranpli pa Fonksyon GET.CELL

Konte ak selil sòm ki baze sou koulè espesifik ranpli ak fonksyon itilizatè defini

Konte ak selil Sòm ki baze sou koulè espesifik ranpli (oswa koulè fòma kondisyonèl) ak Kutools pou Excel

Yon klike sou konte, sòm, ak mwayèn selil ki gen koulè nan Excel

Avèk ekselan la Konte pa Koulè karakteristik nan Kutools pou Excel, ou ka byen konte, sòm, ak mwayèn selil pa koulè espesifik ranpli oswa font koulè ak sèlman yon sèl klike sou nan Excel. Anplis, karakteristik sa a ap jwenn tou valè maksimòm ak min nan selil yo pa koulè ranpli oswa koulè font. Karakteristik plen gratis jijman 60-jou!
anons konte pa koulè 2


Konte ak selil sifas ki gen koulè pa filtè ak SUBTOTAL

Sipoze nou gen yon fwi lavant tab kòm anba a D 'yo montre, epi nou pral konte oswa sòm selil yo ki gen koulè nan kolòn nan Kantite. Nan sitiyasyon sa a, nou ka filtre Kolòn nan Kantite pa koulè, ak Lè sa a, konte oswa sòm filtre selil ki gen koulè pal nan fonksyon an SUBTOTAL fasil nan Excel.

1. Chwazi selil vid pou antre nan fonksyon SUBTOTAL.

  1. Pou konte tout selil ki gen koulè menm jan nou koumanse, tanpri antre nan fòmil la = SUBTOTAL (102, E2: E20);
  2. Sòm total tout selil ki gen menm koulè background, tanpri antre nan fòmil la = SUBTOTAL (109, E2: E20);


nòt: Nan tou de fòmil, E2: E20 se kolòn nan Kantite ki gen selil yo koulè, epi ou ka chanje yo jan ou bezwen.

2. Chwazi header nan tablo a, epi klike sou Done > filtè. Al gade nan Ekran:

3. Klike sou icon nan filtre nan selil la header nan kolòn nan Kantite, epi klike sou Filtre pa Koulè ak koulè a ​​espesifye ou pral konte pa siksè. Al gade nan Ekran:

Apre filtraj, tou de fòmil SUBTOTAL konte ak adisyone tout selil koulè filtre nan kolòn nan Kantite otomatikman. Al gade nan Ekran:

nòt: Metòd sa a mande pou selil ki gen koulè pal ou pral konte oswa sòm yo nan menm kolòn.


Konte oswa selil sifas ki gen koulè pa GET.CELL fonksyon

Nan metòd sa a, nou pral kreye yon ranje yo rele ak fonksyon an GET.CELL, jwenn kòd la koulè nan selil, ak Lè sa a, konte oswa sòm pa kòd la koulè fasil nan Excel. Tanpri fè jan sa a:

1. Klike sou Fòmil > Defini non. Al gade nan Ekran:

2. Nan dyalòg la New Non, tanpri fè tankou anba a Ekran yo montre:
(1) Tape yon non nan bwat non an;
(2) Antre nan fòmil la = GET.CELL (38, Sheet4! $ E2) nan Refere yo nan bwat (note: nan fòmil la, 38 vle di retounen kòd selil la, ak Sheet4! $ E2 se selil la an premye nan kolòn nan Kantite eksepte header nan kolòn ki ou bezwen chanje ki baze sou done tab ou.)
(3) Klike sou la OK bouton.

3. Koulye a, ajoute yon nouvo Koulè kolòn dwa nan tablo orijinal la. Kalite pwochen fòmil la = NumColor , ak trennen nan manch lan AutoFill pou aplike fòmil la nan lòt selil nan kolòn nan Koulè. Al gade nan Ekran:
nòt: Nan fòmil la, NumColor se ranje a te nonmen nou espesifye nan premye etap yo 2. Ou bezwen chanje li nan non an espesifye ou mete.

Koulye a, kòd la koulè nan chak selil nan kolòn yo Kantite lajan an retounen nan Kolòn nan Koulè. Al gade nan Ekran:

4. Kopi epi ekri koulè ranpli a nan yon ranje vid nan fichye aktif la, ak fòmil ki anba a ak anba anba a anba a:
A. Pou konte selil pa koulè, tanpri antre fòmil la = COUNTIF ($ F $ 2: $ F $ 20, NumColor);
B. Pou selil sòm pa koulè, tanpri antre fòmil la = SUMIF ($ F $ 2: $ F $ 20, NumColor, $ E $ 2: $ E $ 20).

nòt: Nan tou de fòmil, $ F $ 2: $ F $ 20 se kolòn nan Koulè, NumColor se ranje a espesifye yo te rele, $ E $ 2: $ E $ 20 se Kolòn nan Kantite, epi ou ka chanje yo jan ou bezwen.

Koulye a, ou pral wè selil yo nan kolòn nan Kantite yo konte ak sòm pa koulè plen yo.


Konte ak selil sòm ki baze sou koulè espesifik ranpli ak fonksyon itilizatè defini


Sipoze selil yo ki gen koulè pal gaye nan yon ranje kòm anba a Ekran yo montre, tou de metòd pi wo a pa ka konte oswa sòm selil yo koulè. Isit la, metòd sa a pral prezante yon VBA pou rezoud pwoblèm nan.

1. Kenbe desann la ALT + F11 kle, epi li ouvè a Microsoft Visual Basic pou aplikasyon pou fenèt.

2. Klike sou Antre > Modil, epi kole kòd sa a nan fenèt modil la.

VBA: Selil konte ak sòm ki baze sou koulè background:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult
End Function

3. Lè sa a, sove kòd la, epi aplike fòmil sa a:
A. Konte selil yo koulè: = colorfunction (A, B: C, FALSE)
B. Sòm selil yo koulè: = colorfunction (A, B: C, vre)

Remak: Nan pi wo fòmil, A se selil la ak koulè a ​​background patikilye ou vle kalkile konte a ak sòm, ak B: C se ranje a selil kote ou vle kalkile konte a ak sòm.

4. Pran D esplik la pou egzanp, antre nan fòmil la= colorfunction (A1, A1: D11, FALSE) konte selil yo jòn. Epi sèvi ak fòmil la = colorfunction (A1, A1: D11, TRUE) sòm selil yo jòn. Al gade nan Ekran:

5. Si ou vle konte ak sòm lòt selil ki gen koulè pal, tanpri repete etap 4 la. Lè sa a, ou pral jwenn rezilta sa yo:


Konte ak selil Sum ki baze sou koulè espesifik ranpli ak Kutools pou Excel

Avèk fonksyon ki pi wo a Itilizatè defini, ou bezwen antre nan fòmil la youn pa youn, si gen anpil koulè diferan, metòd sa a pral fatigan ak tan konsome. Men, si ou genyen Kutools pou Excel'S Konte pa Koulè sèvis piblik, ou ka byen vit jenere yon rapò sou selil ki gen koulè pal. Ou pa sèlman ka konte ak sòm selil ki gen koulè pal, men tou, ka jwenn mwayèn, max ak min valè nan ranje a koulè.

1. Chwazi ranje a ke ou vle itilize, epi klike sou Kutools Plis > Konte pa Koulè, gade D:

2. Ak nan la Konte pa Koulè bwat dyalòg, tanpri fè tankou anba a Ekran yo montre:
(1) Chwazi Fòma estanda ki soti nan Koulè metòd lage desann lis;
(2) Chwazi Istorik ki soti nan Kalite konte lage desann lis.
(3) Klike sou bouton an Jenere rapò.

Kutools pou Excel - Gen ladan plis pase 300 sou la meni Excel zouti. Full karakteristik gratis jijman 60-jou, pa gen okenn kat kredi mande! Jwenn li kounye a!

nòt: Pou konte ak sòm selil ki gen koulè pal pa espesifik fòma koulè fòma, tanpri chwazi Kondisyonèl fòma ki soti nan Koulè metòd gout desann lis nan dyalòg pi wo a, oswa chwazi Estanda ak kondisyonèl fòma soti nan lis la gout desann nan konte tout selil ki te ranpli pa koulè a ​​espesifye.

Koulye a, ou pral jwenn yon nouvo travay ak estatistik yo. Al gade nan Ekran:


Atik ki gen rapò:

Kouman konte / selil sòm ki baze sou koulè yo font nan Excel?


Demo: Selil konte ak sòm ki baze sou background, koulè fòma kondisyonèl:

Nan videyo sa a, a Kutools tab ak la Kutools Plis tab yo te ajoute pa Kutools pou Excel. Si bezwen li, tanpri klike sou isit la yo gen yon jijman 60-jou gratis san limitasyon!



Rekòmande Zouti Productivity

Biwo Tab

lò star1 Pote onglè sou lamen pou Excel ak lòt biwo lojisyèl, jis tankou Chrome, Firefox ak nouvo Internet Explorer.

Kutools pou Excel

lò star1 Etonan! Ogmante pwodiktivite ou nan minit 5. Pa bezwen okenn ladrès espesyal, sove de zè de tan chak jou!

lò star1 300 karakteristik nouvo pou Excel, fè Excel anpil fasil ak pwisan:

  • Rantre selilè / ranje / Kolòn san yo pa pèdi done.
  • Konbine ak Konsolide Pliye Plizyè ak Manyèl.
  • Konpare Range, Kopi plizyè chif, Konvèti tèks nan dat, inite ak konvèsyon lajan.
  • Konte pa Koulè, Paging subtotals, Avanse Triye ak Super Filter,
  • Plis Chwazi / Insert / Efase / Tèks / Fòma / Link / Kòmantè / Workbooks / Worksheets Zouti ...

Piki ekran nan Kutools pou Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sylvia · 2 years ago
    Your code works really well. Thanks. Can you now please help to alter the function of colorfunction so horizontally merged cell is counted as one? I am using the following function:
    Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function

    Thanks!
  • To post as a guest, your comment is unpublished.
    GV · 2 years ago
    Works Great !!!
    Thanks for posting!!
  • To post as a guest, your comment is unpublished.
    Kailas · 2 years ago
    Thanks! very useful function :)
  • To post as a guest, your comment is unpublished.
    Ranj · 2 years ago
    I have enabled macros to count cell colors. How do add another criteria for text? Lets say I have checked a range and recieved the count for cells that are green. How do I also check how many of those had "D" as text?

    thanks!
  • To post as a guest, your comment is unpublished.
    GK · 2 years ago
    Worked like a charm when other codes would not! THANK YOU!