Dans cet article, nous allons créer une fonction personnalisée pour calculer la somme des nombres dans les cellules de la plage ayant une couleur définie.

Pour cet exemple, les exemples de données se composent des données de l’équipe commerciale. Les données de l’équipe de vente contiennent des détails relatifs au nombre d’articles vendus. Il contient des informations sur le produit qui est disponible en trois couleurs gris, rouge et vert. Nous voulons trouver la somme des articles vendus par couleur de produit.

ArrowRaw

Pour calculer la somme par couleur, nous avons créé la fonction personnalisée «SumByColor». Cette fonction prend deux paramètres de plage comme 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

Option Explicit

Function SumByColor(DefinedColorRange As Range, SumRange 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 SumRange



If ICol = GCell.Interior.ColorIndex Then

'Getting the sum of matching colored cell

SumByColor = SumByColor + GCell.Value

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 l’améliorer pour vous. Écrivez-nous à [email protected]