Dans cet article, nous allons créer une fonction personnalisée pour compter le nombre de cellules de la plage ayant des couleurs définies.

Pour cet exemple, les exemples de données se composent d’une plage dont les valeurs sont comprises entre 100 et 1 000. Les valeurs des cellules sont mises en surbrillance de différentes couleurs. Nous voulons trouver le nombre de chaque couleur.

ArrowMain

Pour calculer le nombre d’une couleur spécifique, nous avons créé une fonction personnalisée «CountByColor». Cette fonction prend deux paramètres de plage en entrée. Le premier paramètre de plage définit la couleur intérieure de la cellule et le second paramètre de plage définit la plage d’échantillons.

ArrowOutput

Explication du code

Application.Volatile est utilisé car il recalculera chaque fois qu’une valeur de cellule est modifiée dans le classeur.

DefinedColorRange.Interior.ColorIndex Le code ci-dessus est utilisé pour obtenir la couleur intérieure de la plage définie.

Veuillez suivre ci-dessous pour le code

Function CountByColor(DefinedColorRange As Range, CountRange As Range)

Application.Volatile

'Declaring variables

Dim ICol As Integer

Dim GCell As Range

'Getting the interior color of the cell

ICol = DefinedColorRange.Interior.ColorIndex

'Looping through the defined range

For Each GCell In CountRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the count of matching colored cell

CountByColor = CountByColor + 1

End If

Next GCell

End Function

Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.

Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]