Ci-dessous, nous examinerons un programme dans Excel VBA qui résume des chiffres en couleur.

Situation:

Vous avez prêté de l’argent à deux douze personnes. Certaines personnes ont redonné (en noir) et quelques-uns que vous devez encore de l’argent (rouge). Vous voulez savoir combien d’argent vous recevez encore.

Sum by Color in Excel VBA

  1. Tout d’abord, nous déclarons deux variables de type entier. Un nom et un nommé pourrecevoir i. Nous initialisons la variable avec la valeur 0. Pour recevoir

Dim toReceive As Integer, i As

Integer

toReceive = 0
  1. En second lieu, nous commençons une boucle For Next.

For i = 1 To 12
  1. Nous vérifions maintenant chaque numéro et seulement si la couleur du numéro est rouge nous ajouter le numéro à recevoir.

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

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

End If
  1. Ne pas oublier de fermer la boucle.

Next i
  1. Enfin, nous affichons l’argent encore à recevoir. Nous utilisons l’opérateur & pour concaténer (joindre) deux chaînes. Bien que n’est pas une pourrecevoir chaîne cela fonctionne ici.

MsgBox "Still to receive " & toReceive & " dollars"
  1. Placez votre macro dans un bouton de commande et de le tester.

Résultat:

Sum by Color Result