A continuación, veremos un programa en Excel VBA que suma números por color .

Situación:

Ha prestado dinero a dos doce personas. Algunas personas lo han devuelto (en negro) y algunos todavía le deben dinero (en rojo). Quiere saber cuánto dinero sigue recibiendo.

1. Primero, declaramos dos variables de tipo Integer. Uno llamado toReceive y otro llamado i. Inicializamos la variable toReceive con valor 0.

Dim toReceive As Integer, i As Integer
toReceive = 0

2. En segundo lugar, iniciamos un ciclo For Next.

For i = 1 To 12

3. Ahora verificamos cada número y solo si el color del número es rojo, agregamos el número a Recibir.

If Cells(i, 1).Font.Color = vbRed Then
    toReceive = toReceive + Cells(i, 1).Value
End If

4. No olvide cerrar el ciclo.

Next i

5. Finalmente, mostramos el dinero que queda por recibir. Usamos el operador & para concatenar (unir) dos cadenas. Aunque toReceive no es una cadena, funciona aquí.

MsgBox "Still to receive " & toReceive & " dollars"

6. Coloque su macro en un botón de comando y pruébelo.

Resultado:

8/9 Completado! Obtenga más información sobre las declaraciones if then>
Siguiente capítulo: bucle