Hogyan lehet megváltoztatni az alak színét az Excel cellaértéke alapján?

Az alak színének megváltoztatása egy adott cellaérték alapján érdekes feladat lehet az Excelben, például, ha az A1 cellájának értéke 100-nál kisebb, akkor az alak színe piros, ha A1 nagyobb, mint 100 és kevesebb, mint 200, akkor a az alak színe sárga, és ha az A1 nagyobb, mint 200, akkor az alak színe zöld, az alábbi képernyőkép szerint. Az alak színének megváltoztatásához egy cellaérték alapján ez a cikk bemutatja a módszert az Ön számára.

Változtassa meg az alak színét a cella értéke alapján, VBA kóddal

Változtassa meg az alak színét a cella értéke alapján, VBA kóddal

Az alábbi VBA-kód segíthet az alak színének megváltoztatásában egy cellaérték alapján, kérjük, tegye a következőket:

1. Kattintson a jobb gombbal a lapfülre, amelyen módosítani szeretné az alak színét, majd válassza ki Kód megtekintése a helyi menüből, a kiugrottban Microsoft Visual Basic for Applications ablakba, kérjük, másolja és illessze be a következő kódot az üresbe Modulok ablak.

VBA kód: Az alak színének módosítása a cella értéke alapján:

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. Ezután, amikor beírja az értéket az A1 cellába, az alak színe megváltozik az Ön által megadott cellaértékkel.

Megjegyzések: A fenti kódban A1 az a cellaérték, amely alapján az alak színe megváltozna, és a 1. ovális a beillesztett alak alakjának neve, megváltoztathatja őket az Ön igényeinek megfelelően.