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

Questo articolo parla della modifica automatica del valore della cella in base al colore di sfondo in Excel. Ad esempio, se le celle si riempiono con il colore di sfondo rosso nella selezione, popola queste celle con il numero 1 e, per le celle con colore di sfondo blu, inserisci il numero 0.

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

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

È possibile eseguire il codice VBA sottostante per modificare il valore in base al colore della cella in Excel. Si prega di fare quanto segue.

1. Selezionare l'intervallo di cui si desidera modificare i valori in base al colore di sfondo, quindi premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli, quindi copia e incolla il codice VBA sottostante nella finestra del modulo.

Codice VBA: modifica 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. premi il F5 chiave per eseguire il codice, quindi puoi vedere tutti i globuli rossi nell'intervallo selezionato sono riempiti con il numero 1 e le celle blu sono riempite con il numero 0 come mostrato nell'immagine sottostante.