Counting Lege Gekleurde Cellen

Cindy heeft een volledig opgemaakte werkblad die kleur gebruikt in vele cellen. Sommige cellen waarden daarin; velen niet. Ze heeft een manier om elke gekleurde cellen die leeg zijn en vraagt ​​zich af te tellen als er een snelle manier om dit te doen.

Er zijn een paar manieren waarop u de informatie die u nodig hebt. Een manier is om te gaan door middel van de volgende stappen:

  1. Erachter te komen welke kleur het is dat je wilt gebruiken in je tellen.
  2. Druk op F5. Excel toont het dialoogvenster Ga naar doos.
  3. Klik op de speciale knop. Excel toont de Go To Special dialoogvenster. (Zie figuur 1.)

    Counting Lege Gekleurde Cellen

    Figuur 1. De Go To Special dialoogvenster.

  4. Selecteer de Blanks keuzerondje.
  5. Klik op OK. Nu alle lege cellen in het werkblad worden gekozen.
  6. Druk op Ctrl + F. Excel toont het tabblad Zoeken van de Zoeken en vervangen dialoogvenster.
  7. Klik op de knop Opties om het dialoogvenster uit te breiden. (Zie figuur 2.)

    Counting Lege Gekleurde Cellen

    Figuur 2. Het tabblad Zoeken van de Zoeken en vervangen dialoogvenster.

  8. Klik op de knop Opmaak. Excel toont het dialoogvenster-formaat doos.
  9. Zorg ervoor dat het tabblad Fill wordt weergegeven. (Zie afbeelding 3.)

    Counting Lege Gekleurde Cellen

    Figuur 3. Het tabblad Vullen van het dialoogvenster-formaat doos.

  10. Klik op de kleur die u wilt zoeken. (Dit is de kleur die u in stap 1)
  11. Klik op OK om het dialoogvenster Opmaak zoeken sluiten.
  12. Klik op Alles zoeken.

Wanneer u deze stappen, Excel shows, uit te voeren op de bodem van de Zoeken en vervangen dialoogvenster, hoeveel cellen gevonden die voldoet aan uw kleur. Aangezien de zoekactie begonnen met alleen lege cellen geselecteerd, de resulterende telling al die cellen die leeg zijn die zijn gevuld met de kleur.

Natuurlijk, als je nodig hebt om vast te stellen deze te tellen wel een paar keer, dan zijn deze stappen kan heel snel heel vervelend. In dergelijke gevallen is het een beter idee om een ​​macro te gebruiken. De volgende macro stappen door elke lege cel in welke range je hebt geselecteerd en gecontroleerd om te zien of het bevat een patroon of kleur en is leeg. Als aan de voorwaarden is voldaan, dan is een teller voor die kleur wordt verhoogd.

Sub CountBlankColors1 ()
Dim c als Waaier
Dim J As Integer
Dim ColorCount (56) Lange

ActiveSheet.Range ("a1"). CurrentRegion.SpecialCells (xlCellTypeBlanks) .Selecteer

Voor Elke c In Selection
Met c.Interior
Als .Pattern <> xlNone Dan
Als .ColorIndex <> xlNone Dan
Als IsEmpty (c) Dan
ColorCount (.ColorIndex) = _
ColorCount (.ColorIndex) + 1
End If
End If
End If
End With
Volgende c

Stemp = "Dit zijn de kleur telt" & vbCrLf & vbCrLf
Voor J = 0 tot 56
Als ColorCount (J)> 0 Then
Stemp = Stemp & "Kleur" & J & ":" & ColorCount (J) & vbCrLf
End If
Volgende J

MsgBox Stemp
End Sub

Natuurlijk zou je niet willen om verschillende kleuren afzonderlijk te tellen. In plaats daarvan, zou u willen weten gewoon hoeveel lege cellen zijn gevuld met een kleur, in het totaal. In dat geval is de macro veel eenvoudiger.

Sub CountBlankColors2 ()
Dim c als Waaier
Dim x As Long

x = 0
ActiveSheet.Range ("a1"). CurrentRegion.SpecialCells (xlCellTypeBlanks) .Selecteer

Voor Elke c In Selection
Als c.Interior.Pattern <> xlNone Dan
Als c.Interior.ColorIndex <> xlNone Dan
Als IsEmpty (c) Dan x = x + 1
End If
End If
Volgende c
MsgBox "Aantal gekleurde lege cellen:" & x
End Sub

Opgemerkt zij dat deze benaderingen geen rekening gehouden als de cel wordt gekleurd door het gebruik van een voorwaardelijke opmaak of niet. (In feite zijn ze niet voorwaardelijke opmaak rekening houden helemaal niet.)

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (12581) is van toepassing op Microsoft Excel 2007, 2010 en 2013.