如何根据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 是插入形状的名称，您可以根据需要进行更改。