Come modificare il valore in base al colore della cella in Excel?

Questo articolo parla di come cambiare automaticamente il valore della cella in base al suo colore di sfondo in Excel. Ad esempio, se le celle selezionate hanno uno sfondo rosso, popolare queste celle con il numero 1, mentre per le celle con sfondo blu, inserire il numero 0.

Modificare il valore in base al colore della cella con il codice VBA

Modificare il valore in base al colore della cella con il codice VBA

È possibile eseguire il seguente codice VBA per modificare il valore in base al colore della cella in Excel. Si prega di procedere come segue.

1. Selezionare l'intervallo in cui è necessario modificare i valori in base al colore di sfondo, quindi premere contemporaneamente i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fare clic su Inserisci > Modulo, quindi copiare e incollare il seguente codice VBA nella finestra del Modulo.

Codice VBA: Modificare il valore in base al colore della cella in 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. Premere il tasto F5 per eseguire il codice, quindi si potrà vedere che tutte le celle rosse nell'intervallo selezionato sono riempite con il numero 1, mentre le celle blu sono riempite con il numero 0, come mostrato nello screenshot sottostante.