Somme par couleur à l’aide VBA dans Microsoft Excel
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.
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.
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]