Как изменить цвет фигуры на основе значения ячейки в Excel?

Изменение цвета фигуры на основе определенного значения ячейки может быть интересной задачей в Excel. Например, если значение ячейки A1 меньше 100, цвет фигуры становится красным; если A1 больше 100 и меньше 200, цвет фигуры становится желтым; а когда A1 больше 200, цвет фигуры становится зеленым (как показано на скриншоте ниже). Чтобы изменить цвет фигуры на основе значения ячейки, в этой статье мы представим вам метод.

Изменение цвета фигуры на основе значения ячейки с помощью кода VBA

Изменение цвета фигуры на основе значения ячейки с помощью кода VBA

Следующий код VBA поможет вам изменить цвет фигуры на основе значения ячейки. Пожалуйста, выполните следующие действия:

1. Щелкните правой кнопкой мыши по вкладке листа, где вы хотите изменить цвет фигуры, затем выберите «Вид Код» из контекстного меню. В открывшемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в пустое окно Модуль.

Код VBA: Изменение цвета фигуры на основе значения ячейки:

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. После этого, когда вы введете значение в ячейку A1, цвет фигуры будет изменяться в зависимости от значения ячейки, как вы определили.

Примечание: В приведенном выше коде A1 — это значение ячейки, на основе которого будет изменяться цвет фигуры, а Oval 1 — это имя вашей вставленной фигуры. Вы можете изменить их по своему усмотрению.