A continuación vamos a ver un programa en Excel VBA que resume los números por el color.

Situación:

Has prestaba dinero a dos doce personas. Algunas personas han dado la espalda (en negro) y algunos todavía le debe dinero (RED). ¿Quieres saber cuánto dinero sigue recibiendo.

Sum by Color in Excel VBA

  1. En primer lugar, declaramos dos variables de tipo entero. Si desea recibir una llamada y uno nombrado i. Inicializamos la variable Si desea recibir con el valor 0.

Dim toReceive As Integer, i As

Integer

toReceive = 0

  1. En segundo lugar, se inicia un bucle For Next.

For i = 1 To 12

  1. Ahora se comprueba cada número y sólo si el color del número es rojo que añadir el número a Si desea recibir.

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

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

End If

  1. No se olvide de cerrar el bucle.

Next i

  1. Por último, mostramos que el dinero sigue a recibir. Utilizamos el operador & para concatenar (unir) dos cadenas. Si desea recibir Aunque no es una cadena que trabaja aquí.

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

  1. Coloque la macro en un botón de comando y probarlo.

Resultado:

Sum by Color Result