如何用VBA获取单元格颜色值？

Question

如题所述

Answer 1

没有函数，只有宏。

1、电脑打开要获取单元格颜色的表格。

2、打开表格后，Alt+F11进入宏，点击插入模块。

3、点击插入模块后输入代码

Function SUMColor(rag1 As Range, rag2 As Range)

Application.Volatile

For Each i In rag2

If i.Interior.ColorIndex = rag1.Interior.ColorIndex Then

SUMColor = SUMColor + 1

End If

Next

End Function。

4、输入代码后，返回Excel，在任意单元格中输入=SUMColor(B2,$A$1:$B$6)。

5、回车就可以得到B2单元格颜色数量了。