关于条件格式下的vba获取单元格的字体颜色

Question

请高手帮忙写个VBA函数或修改以下自定义函数获取条件格式生成的字体颜色

以下链接的函数的功能是：条件格式下的vba获取单元格的背景色，请参考！
http://www.360doc.com/content/10/0403/23/406571_21492121.shtml

Answer 1

提取A1单元格的颜色？？？

ALT+F11——F7——粘贴如下代码，注意换行——F5运行

Sub 提取颜色()
Dim i As Long  '定义循环变量
For i = 1 To [a65536].End(xlUp).Row    '从第1行循环至最后一行
    Range("b" & i) = Range("a" & i).Font.ColorIndex '获取A列数据字体颜色
Next i
End Sub

效果图如下：

Answer 2

你给的那个函数本身就有这功能啊
公式写成 =conditionalcolor(a1,"f") 得到的就是字体颜色本回答被提问者采纳

Answer 3

什么叫条件格式下？追问

格式 - 条件格式

Answer 4

这是一个大神分享的。
某个淘宝用户付费几百块找到的方案；
Range("a1").DisplayFormat.Font.color获取字体颜色；
Range("a1").DisplayFormat.Interior.Color获取填充颜色；
希望有天大神看到了不要来打我，哈哈

Answer 5

不用这么麻烦，VBA中使用“Selection.DisplayFormat.Font.ColorIndex”就可以获取到条件格式下的单元格字体颜色。