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

网友投稿 437 2023-12-14

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

下面的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

Copy

2。然后，当您在单元格A1中输入值时，形状颜色将随着您定义的单元格值而改变。

备注：在上面的代码中， A1 是您要更改其形状颜色的单元格值，并且 椭圆形1 是您插入的形状的形状名称，您可以根据需要进行更改。

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。