Comment additionner les nombres par couleur programme Excel VBA

Ci-dessous, nous examinerons un programme dans Excel VBA qui additionne les nombres par couleur. Situation:

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

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

Dim Recevoir As Integer, i As Integer

Recevoir = 0

 

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

For i = 1 To 7

 

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

If Cells(i, 1).Font.Color = vbRed Then

    Recevoir = Recevoir + Cells(i, 1).Value

End If

 

4. N’oubliez pas de fermer la boucle.

 Next i

 

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

MsgBox "Reste à recevoir" & à recevoir & "dollars"

 

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

Résultat:

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x