¿Cómo cambiar el valor según el color de la celda en Excel?

Este artículo trata sobre cómo cambiar automáticamente el valor de una celda según su color de fondo en Excel. Por ejemplo, si las celdas seleccionadas tienen un color de fondo rojo, entonces se llenarán con el número 1, y para las celdas con color de fondo azul, se llenarán con el número 0.

Cambiar el valor según el color de la celda con código VBA

Cambiar el valor según el color de la celda con código VBA

Puede ejecutar el siguiente código VBA para cambiar el valor según el color de la celda en Excel. Por favor, siga los siguientes pasos.

1. Seleccione el rango en el que necesita cambiar los valores según el color de fondo, luego presione simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. En la ventana de Microsoft Visual Basic for Applications, haga clic en Insertar > Módulo, luego copie y pegue el siguiente código VBA en la ventana del Módulo.

Código VBA: Cambiar el valor según el color de la celda en Excel

Sub ChangeValueBasedOnCellColor()
    Dim rg As Range
    Dim xRg As Range
    Set xRg = Selection.Cells
    Application.DisplayAlerts = False
    For Each rg In xRg
        With rg
            Select Case .Interior.Color
                Case Is = 255 'Red
                    .Value = 1
                Case Is = 15773696 'Blue
                    .Value = 0
            End Select
        End With
    Next
    Application.DisplayAlerts = False
End Sub

3. Presione la tecla F5 para ejecutar el código, luego podrá ver que todas las celdas rojas en el rango seleccionado se llenan con el número 1, y las celdas azules se llenan con el número 0, como se muestra en la siguiente captura de pantalla.