A continuación veremos un programa en Excel VBA que suma los números por color .
Situación:
Has prestado dinero a dos doce personas. Algunas personas lo han devuelto (en negro) y otras todavía te deben dinero (en rojo). Quieres saber cuánto dinero recibes todavía.
1. Primero, declaramos dos variables de tipo Entero. Una llamada toReceive y otra llamada i. Inicializamos la variable toReceive con el valor 0.
Dim para recibir como entero, i como Integro Recibir = 0
2. Segundo, empezamos un bucle de «For Next».
Para i = 1 a 12
3. Ahora comprobamos cada número y sólo si el color del número es rojo añadimos el número a recibir.
Si Cells(i, 1).Font.Color = vbRed Entonces Recibir = Recibir + Células(i, 1).Valor Finalizar si
4. No te olvides de cerrar el bucle.
Siguiente…
5. Finalmente, mostramos el dinero que aún queda por recibir. Usamos el & operador para concatenar (unir) dos cuerdas. Aunque recibir no es una cadena, funciona aquí.
MsgBox «Aún por recibir» & para recibir & » dólares»
6. Ponga su macro en un botón de comando y pruébela.
Resultado:
