A continuación, veremos un programa en Excel VBA ese 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 para recibir como entero, i como entero
toReceive = 0
2. En segundo lugar, iniciamos un ciclo For Next.
Para i = 1 a 12
3. Ahora verificamos cada número y solo si el color del número es rojo, agregamos el número a Recibir.
Si Cells (i, 1) .Font.Color = vbRed Entonces
toReceive = toReceive + Cells (i, 1) .Valor
Terminara si
4. No olvide cerrar el ciclo.
Siguiente yo
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 "Aún por recibir" y por recibir & "dólares"
6. Coloque su macro en un botón de comando y pruébelo.
Resultado: