Cellen tellen op interieurkleur met behulp van VBA - Excel-tips

Inhoudsopgave

Emily vraagt:

Kunt u alstublieft de formulaire oplossing adviseren voor het tellen van het aantal cellen dat een bepaalde backgorund-kleur heeft (dwz deze cellen bevatten enkele gegevens, maar de kleur is het belangrijkste om ze te tellen).

Logischerwijs vind ik dat het een standaardformule moet volgen, dwz

CountIF(A01:A55,"backgroundcolour=red")

Ik vind dat de kleur rood moet worden geïdentificeerd door het nummer 3 (volgens het helpbestand)

Ik moet weten hoe ik de kleur van de achtergrondcel moet coderen, dwz colorfill ?, backgroundcolour ?, interior.color?… ???

Emily - als het maar zo gemakkelijk was. U moet een door de gebruiker gedefinieerde functie in VBA hebben. Hieronder staat de code voor de functie. U moet dit invoeren in een nieuwe codemodule in het werkboek.

Nadat u de code heeft ingevoerd, kunt u deze formule gebruiken:

=CountColor(A1:A99,D2)

Waar D2 het achtergrondformaat heeft dat u wilt tellen.

Hier is de code:

Function CountColor(Rng As Range, RngColor As Range) As Integer Dim Cll As Range Dim Clr As Long Clr = RngColor.Range("A1").Interior.Color For Each Cll In Rng If Cll.Interior.Color = Clr Then CountColor = CountColor + 1 End If Next Cll End Function

Interessante artikelen...