300 Ejemplos

Suma por color

Sum Color

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

Situación:



cómo eliminar el último carácter en Excel

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 recibe todavía.



Suma por color en Excel VBA

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



Ningunopara recibirComo Entero, IComo Entero
toReceive = 0

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

Parai = 1A12

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

SiCeldas (i, 1) .Font.Color = vbRedEntonces
toReceive = toReceive + Cells (i, 1) .Valor
Fin Si

4. No olvide cerrar el ciclo.



PróximoI

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:

cómo transponer la matriz en Excel

Resultado de suma por color

8/9 Completado! Obtenga más información sobre las declaraciones if then>
Ir al capítulo siguiente: Lazo



^