如何在Excel中根据单元格值更改形状颜色？

基于特定单元格值更改形状颜色在Excel中可能是一项有趣的任务，例如，如果A1中的单元格值小于100，则形状颜色为红色，如果A1大于100且小于200，则形状颜色为黄色，并且当A1大于200时，形状颜色为绿色，如下图所示。 要根据单元格值更改形状的颜色，本文将为您介绍方法。

使用VBA代码根据单元格值更改形状颜色

使用VBA代码根据单元格值更改形状颜色

下面的VBA代码可以帮助您根据单元格值更改形状颜色，请执行以下操作：

1。 右键单击要更改形状颜色的图纸选项卡，然后选择 查看代码 从上下文菜单中，弹出 Microsoft Visual Basic应用程序 窗口，请复制以下代码并将其粘贴到空白处 模块 窗口。

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 是您要更改其形状颜色的单元格值，并且 椭圆形1 是您插入的形状的形状名称，您可以根据需要进行更改。