VBA – Cambiar (o Borrar) el color de fondo de una celda

Este tutorial demostrará cómo cambiar el color de fondo de una celda utilizando VBA

Cambiar el color de fondo de una celda con Interior.colorindex

Para cambiar el color de fondo de una celda utilizando VBA puedes utilizar la propiedad Interior.ColorIndex. Aquí hay un par de maneras de cambiar el color de fondo de la celda A1. Un ejemplo utilizando el método Range():

Range("A1").Interior.ColorIndex = 5

Un ejemplo usando el método Cells():

Cells(1, 1).Interior.ColorIndex = 15

¿Necesita una manera fácil de determinar qué número equivale a qué color? Revise la Referencia de Color para ColorIndex

Borrar Color de Celda

El código VBA puede cambiar el formato de las celdas, incluyendo el color de fondo. Puede eliminar cualquier formato, incluido el color de fondo que se haya establecido previamente en una celda.

Seleccione las celdas en las que desea eliminar el color de fondo.

Ejecute la siguiente macro:

Sub RemoverColorDeCelda()
   Selection.Interior.Color = xlNone
End Sub

Esto equivale a seleccionar Sin relleno en el desplegable Color de fondo de la cinta de opciones.

Si tuviera que grabar una macro para eliminar el color de fondo, podría obtener el siguiente código que se crea:

Sub RemoverColor()
  With Selection.Interior
    .Pattern = xlNone
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End Sub

Esta macro realizaría exactamente la misma función que la anterior, ¡pero la anterior es más eficiente en el sentido de que es sólo una línea de código!

Si desea eliminar el color de fondo en un rango específico de celdas, podemos utilizar este código de abajo:

Sub RemoverColorCelda()
  Range("B2:F2").Interior.Color = xlNone
End Sub

o, si desea utilizar una variable, ¡este código hará lo mismo!

Sub RemoverColorCelda()
  Dim rng As Range
  Set rng = Range("B2:F2")
  rng.Interior.Color = xlNone
End Sub

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!