Come cambiare il colore della forma in base al valore della cella in Excel?

Cambiare il colore della forma in base a un determinato valore della cella può essere un compito interessante in Excel. Ad esempio, se il valore della cella in A1 è minore di 100, il colore della forma sarà rosso; se A1 è maggiore di 100 e minore di 200, il colore della forma sarà giallo; e quando A1 è maggiore di 200, il colore della forma sarà verde, come mostrato nello screenshot seguente. Per cambiare il colore della forma in base al valore di una cella, questo articolo ti presenterà un metodo.

Cambia il colore della forma in base al valore della cella con il codice VBA

Cambia il colore della forma in base al valore della cella con il codice VBA

Il seguente codice VBA può aiutarti a cambiare il colore della forma in base al valore di una cella, procedi come segue:

1. Fai clic con il tasto destro sul tab del foglio in cui desideri cambiare il colore della forma, quindi seleziona Visualizza Codice dal menu contestuale. Nella finestra Microsoft Visual Basic for Applications che si apre, copia e incolla il codice seguente nella finestra Modulo vuota.

Codice VBA: Cambia il colore della forma in base al valore della cella:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160704
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If IsNumeric(Target.Value) Then
        If Target.Value < 100 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed
        ElseIf Target.Value >= 100 And Target.Value < 200 Then
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow
        Else
            ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen
        End If
    End If
End Sub

2. E poi, quando inserisci il valore nella cella A1, il colore della forma cambierà in base al valore della cella come hai definito.

Nota: Nel codice sopra, A1 è il valore della cella in base al quale cambierà il colore della forma, e Oval 1 è il nome della forma inserita. Puoi modificarli secondo le tue esigenze.