Cum se schimbă culoarea formei pe baza valorii celulei din Excel?

Schimbarea culorii formei pe baza unei valori specifice a celulei poate fi o sarcină interesantă în Excel, de exemplu, dacă valoarea celulei din A1 este mai mică de 100, culoarea formei este roșie, dacă A1 este mai mare de 100 și mai mică de 200, culoarea formei este galbenă, iar când A1 este mai mare de 200, culoarea formei este verde, după cum se arată în următoarea captură de ecran. Pentru a schimba culoarea formei pe baza valorii unei celule, acest articol vă va introduce metoda.

Schimbați culoarea formei pe baza valorii celulei cu codul VBA

Schimbați culoarea formei pe baza valorii celulei cu codul VBA

Codul VBA de mai jos vă poate ajuta să schimbați culoarea formei pe baza unei valori a celulei, procedați după cum urmează:

1. Faceți clic dreapta pe fila de foaie pe care doriți să schimbați culoarea formei, apoi selectați Afișați codul din meniul contextual, în fereastra pop-out Microsoft Visual Basic pentru aplicații fereastra, copiați și lipiți următorul cod în spațiul gol Module fereastră.

Cod VBA: Modificați culoarea formei pe baza valorii celulei:

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. Și atunci când introduceți valoarea în celula A1, culoarea formei va fi modificată cu valoarea celulei așa cum ați definit.

notițe: În codul de mai sus, A1 este valoarea celulei pe care s-ar schimba culoarea formei în funcție de, iar valoarea Oval 1 este numele formei formei inserate, le puteți schimba în funcție de nevoile dvs.