Compter les cellules avec la couleur d'arrière-plan par macro

Anonim

Comment créer des sommes de couleurs

Souhaitez-vous ajouter le contenu des cellules, mais tenez compte de la couleur des cellules ? Vous pouvez le faire avec une macro. La figure suivante montre un tableau de données dans lequel certaines cellules ont un fond jaune (couleur de remplissage jaune) :

Pour ajouter uniquement les cellules de la sélection actuelle qui ont une couleur d'arrière-plan jaune, utilisez la macro suivante :

Sous-cellules AddColor ()
Dim Sum aussi long
Dim Cell As Range
Pour chaque cellule de la sélection
Si Cell.Interior.ColorIndex = 6 Alors
Somme = Somme + Cell.Valeur
Fin si
Cellule suivante
MsgBox "La somme des couleurs est :" & somme
Fin du sous-marin

Après avoir démarré la macro, Excel vous montre la somme des cellules d'une fenêtre, qui sont mises en évidence avec une couleur de fond jaune. La figure suivante montre à quoi ressemble le résultat si vous sélectionnez la plage de cellules présentée ci-dessus :

Pour utiliser d'autres couleurs au lieu des cellules avec un arrière-plan jaune, ajustez la valeur de comparaison dans la requête Si. Remplacez le jaune par d'autres valeurs au lieu de 6. Pour savoir quelle valeur pour ColorIndex utiliser pour une couleur de votre choix, vous pouvez utiliser une petite macro. Cliquez sur une cellule de votre choix et lancez la macro suivante pour savoir avec quelle couleur d'arrière-plan la cellule active est formatée :

Sous Couleur Active ()
MsgBox "Couleur d'arrière-plan active :" & _
(Sélection (1, 1) .Interior.ColorIndex)
Fin du sous-marin

Astuce : Si vous souhaitez savoir comment saisir et démarrer des macros dans Excel, vous trouverez une brève description ici : http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros-in-excel-ein.html