Come cambiare il colore della forma in base al valore della cella in Excel?
Modificare il colore della forma in base a un valore di cella specifico può essere un'attività interessante in Excel, ad esempio, se il valore della cella in A1 è inferiore a 100, il colore della forma è rosso, se A1 è maggiore di 100 e minore di 200, il il colore della forma è giallo e quando A1 è maggiore di 200, il colore della forma è verde come mostrato nella seguente schermata. Per cambiare il colore della forma in base al valore di una cella, questo articolo introdurrà il metodo per te.
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 codice VBA sottostante può aiutarti a cambiare il colore della forma in base al valore di una cella, per favore fai come segue:
1. Fare clic con il pulsante destro del mouse sulla scheda del foglio di cui si desidera modificare il colore della forma, quindi selezionare Visualizza codice dal menu contestuale, nel saltato fuori Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nello spazio vuoto Moduli finestra.
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 verrà modificato con il valore della cella come hai definito.
Note:: Nel codice sopra, A1 è il valore della cella su cui cambierebbe il colore della forma e il Oval 1 è il nome della forma inserita, puoi cambiarli secondo le tue necessità.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!