excel - 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")
缺少一个 s -Worksheets
。- 如果是条件格式,那么您需要使用
Worksheets("Sheet1").Range("D2").DisplayFormat.Interior.Color
.
推荐阅读
- portable-executable - 如何使用 C++ 检索可移植的可执行属性,例如版本或描述?
- html - 如何在列中居中多个弹性框
- python - 位置 4 第 1 行的格式错误的属性: tr a[href^=/wiki] ^ SelectorSyntaxError:
- python-3.x - python3中单行和多行排序的区别请看下面的代码
- html - 将容器中的列与容器中的另一列对齐
- elixir - Ecto 条件更新 - Ecto.StaleEntryError
- python - “ModuleNotFoundError:没有名为‘pycodestyle’的模块”
- c++ - QT .qss,出现与 style.qss 文件相关的编译错误
- mongodb - MongoDB Aggregate:在项目中过滤
- d3.js - d3.js - 将背景矩形添加到元素组