Excel - 如何根據另一個單元格的顏色更改形狀顏色

Question

我正在嘗試根據另一個選項卡上的表格更改多個形狀的顏色。 該表包含部分、象限、形狀名稱和值（具有特定顏色的單元格。）我試圖通過使用形狀名稱和顏色單元格所在的范圍將形狀與顏色聯系起來，但我得到一個未定義的子/函數. 表中值的 colors 基於條件格式。

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

Answer 1

將我的評論移至答案：

• Set不應該在這里使用。 Worksheet("main")缺少一個 s - Worksheets 。
• 如果是條件格式，則需要使用Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color 。