如何解决Excel-如何根据另一个单元格的颜色更改形状颜色
我正在尝试根据另一个标签上的表格更改多种形状的颜色。该表包含零件,象限,形状名称和值(具有特定颜色的单元格。)我试图通过使用形状名称和颜色单元格的范围将形状与颜色相关联,但是得到了未定义的子功能。表中值的颜色基于条件格式。
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
解决方法
将我的评论移至答案:
-
Set
不应在此处使用。Worksheet("main")
缺少一个-Worksheets
。 - 如果使用条件格式,则需要使用
Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color
。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。