Cambiar colores de celda con VBA en Excel

Cambiar colores de celda con VBA en Excel cuando se cumple una condición es algo muy sencillo, y es que nos es posible acceder a cualquier aspecto dentro de un libro. No olvidemos que que todo esta en memoria y Excel permite el acceso a celdas, rangos compuestos, hojas, etc.

Para modificar el color de una celda voy a usar 2 métodos distintos, en el primero usaremos un objeto accesible desde Cell.Interior, este objeto es conocido como “Color”. El otro modo es usando la propiedad ColorIndex al que podemos asignarle un número entero que representaría un color único.

Es posible que esta explicación a priori pueda resultar algo confusa, pero realmente el realizar este cambio de color es realmente fácil y lo demostrare el el código que añado a continuación:

El código


 Sub CambiarColorCeldaCondicion()
Dim miRango as Range
Set miRango =Range("A1:A10")
For Each celdaActual in miRango
If celdaActual.Value="Valor1" Then celdaActual.Interior.Color = RGB(255,0,0) End If
If celdaActual.Value="Valor2" Then celdaActual.Interior.Color = RGB(0,255,0) End If
Next
End Sub

También quiero dejaros otra versión del código pero en vez de usar Interior.Color usaremos Interior.ColorIndex, la unica diferencia es que Interior.Color requiere un objeto Color y ColorIndex solo requiere un número entero como escribí anteriormente:


 Sub CambiarColorCeldaCondicion()
Dim miRango as Range
Set miRango =Range("A1:A10")
For Each celdaActual in miRango
If celdaActual.Value="Valor1" Then celdaActual.Interior.ColorIndex = 3 End If
If celdaActual.Value="Valor2" Then celdaActual.Interior.ColorIndex = 4 End If
Next
End Sub

Me imagino que si has llegado hasta aquí en la lectura te podrías estar preguntando, ¿Donde esta la tabla de referencia con los codigos numéricos de color? Aquí tienes la tabla de colores

El vídeo tutorial

¿Que hemos aprendido?

Con esta receta de Excel hemos aprendido algunas cosas interesantes, tales como:

  • Como acceder al color de fondo de una celda
  • Crear condiciones con sentencias IF sencillas
  • Referenciar rangos fácilmente

Leave a reply:

Tu dirección de correo electrónico no será publicada.

Site Footer

X

Suscribete al canal en YouTube

Con más de 90.000 suscriptores, encontrarás mas de 300 video tutoriales gratuitos sobre Excel, Informática, programación e Internet.

Suscribete