条件格式化单元格中的参考文本颜色

Question

我们要完成的是在符合特定指标的条件格式化单元格中引用文本颜色。我们有一个for循环，用于检查每行单元格的文本颜色。

通过条件格式化完成的彩色单元格无法通过font.color引用为手动/ VBA彩色单元格（据我所知），因此我们正在寻找一种方法来引用条件格式化的颜色/外观格式化功能并抓住颜色。

Dim rstarpos As Long
Dim cstartpos1 As Long

rstartpos = 9
cstartpos1 = 3

For i = rstartpos To 10
Sheets("Scorecard").Select
Cells(i, cstartpos1).Select
MsgBox Cells(i, cstartpos1).Font.Color

Font.color理想地报告循环中单元格的字体颜色。但是，由于条件格式，它不是。有没有办法调用条件格式的单元格的颜色？

感谢您的帮助。

Answer 1

如果您正在使用Excel 2010，则可以使用范围的DisplayFormat属性来获取其显示的格式，包括条件格式（和表格样式）的效果。在您的示例中，最后一行将更改为：

MsgBox Cells(i, cstartpos1).DisplayFormat.Font.Color

希望这有帮助。