Excel-如何根据另一个单元格的颜色更改形状颜色

编程问答 2022-08-15

问题描述

我正在尝试根据另一个标签上的表格更改多种形状的颜色。该表包含零件，象限，形状名称和值（具有特定颜色的单元格。）我试图通过使用形状名称和颜色单元格的范围将形状与颜色相关联，但是得到了未定义的子功能。表中值的颜色基于条件格式。

Sub Update()

Dim CellColor As Long
Dim ShapeColor As Variant

    CellColor = Worksheets("Sheet1").Range("D2").displayFormat.Interior.Color
    ShapeColor = Worksheets("Sheet1").Range("C2").Value
    Worksheets("main").Shapes(ShapeColor).Fill.ForeColor.RGB = CellColor

    Worksheets("main").Select
End Sub

enter image description here

enter image description here

解决方法

将我的评论移至答案：

  • Set不应在此处使用。 Worksheet("main")缺少一个-Worksheets。
  • 如果使用条件格式，则需要使用Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color。
colorscolorsexcelexcelexcel-2016shapesvba