300 Exemples

Somme par couleur

Sum Color

Ci-dessous, nous examinerons un programme en Excel VBA cette somme les nombres par couleur .





Situation:

comment utiliser if else dans Excel

Vous avez prêté de l'argent à deux douze personnes. Certaines personnes vous l'ont rendu (en noir) et d'autres vous doivent encore de l'argent (en rouge). Vous voulez savoir combien d'argent vous recevez encore.





Somme par couleur dans Excel VBA

1. Tout d'abord, nous déclarons deux variables de type Integer. Un nommé toReceive et un nommé i. On initialise la variable toReceive avec la valeur 0.



RienrecevoirComme Entier, jeComme Entier
recevoir = 0

2. Deuxièmement, nous commençons une boucle For Next.

Pourje = 1À12

3. Nous vérifions maintenant chaque numéro et seulement si la couleur du numéro est rouge, nous ajoutons le numéro à Recevoir.

SiCells(i, 1).Font.Color = vbRedPuis
toReceive = toReceive + Cells(i, 1).Valeur
Finir Si

4. N'oubliez pas de boucler la boucle.

Prochainje

5. Enfin, nous affichons l'argent qu'il reste à recevoir. Nous utilisons l'opérateur & pour concaténer (joindre) deux chaînes. Bien que toReceive ne soit pas une chaîne, cela fonctionne ici.

MsgBox 'Encore à recevoir ' & àRecevoir & ' dollars'

6. Placez votre macro dans un bouton de commande et testez-la.

Résultat:

comment trier les données dans Excel en utilisant une formule

Somme par couleur Résultat

8/9 Terminé ! En savoir plus sur les instructions if then >
Aller au chapitre suivant : Boucle



^