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.
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in