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. Nous initialisons la variable toReceive avec la valeur 0.



AucunrecevoirComme Entier, jeComme Entier
toReceive = 0

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

Pouri = 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 à toReceive.

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

4. N'oubliez pas de fermer la boucle.



Suivantje

5. Enfin, nous affichons l'argent à 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' et àRecevoir et '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

Résultat de la somme par couleur

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



^