根據單元格值修改形狀顏色

Question

我希望根據鏈接的單元格值修改形狀顏色...

形狀為“測試”，單元格值為“ X11”。 我收到對象不支持此屬性或方法的錯誤...

Sub CChange()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

   With ws.Shapes.Range(Array("test"))
        If .Range("X11") = 1 Then
            .Fill.ForeColor.RGB = RGB(18, 38, 43)
        ElseIf .Range("X11") = 2 Then
            .Fill.ForeColor.RGB = 0
        End If
    End With
End Sub

Answer 1

將您的代碼更改為此，您的with語句錯誤。 您不使用工作表，因此無法使用.Range訪問范圍。

Sub CChange()
Dim ws As Worksheet
Set ws = ThisWorkbook.ActiveSheet

   With ws.Shapes.Range(Array("test"))
        If ws.Range("X11") = 1 Then
            .Fill.ForeColor.RGB = RGB(18, 38, 43)
        ElseIf ws.Range("X11") = 2 Then
            .Fill.ForeColor.RGB = 0
        End If
    End With
End Sub