没有的，要自己实现，建议创建个人工作簿，把所有代码放在该文件中，这样每次打开任何工作簿自定义函数都可用。
限于篇幅，给你个简单的单元背景色判断公式，给定RGB值，如果匹配则返回真，否则为假。
函数代码如下：
Public Function MatchRGB(lookValue As Variant, Optional R As Long = 0, Optional G As Long = 0, Optional B As Long = 0) As Boolean
Dim rng As Range
Set rng = lookValue
MatchRGB = rng.Interior.Color = RGB(R, G, B)
End Function
示例：
温馨提示：答案为网友推荐，仅供参考
第1个回答 2019-06-17
方法：
1，点插入，名称，定义，弹出的窗口第一行名称名内写入一个自定义的名称名字，可以是中文也可以是英文，比如xx，最下边一行的引用位置一行内填入：
=get.cell(63.a1)
确定。
2，在b1中输入=xx，光标指向b1单元格右下角的小黑点，光标变成小黑实心十字时，双击左键。完成填充。
这样操作以后，在b列中会出现各个单元格中底色的代码。
3,用countif()函数对你要统计的单元进行统计，如：
=countif($b$1:$b$100,"5")
这个统计公式意思是统计b1至b100中颜色代码是5的单元格有多少个。
1，点插入，名称，定义，弹出的窗口第一行名称名内写入一个自定义的名称名字，可以是中文也可以是英文，比如xx，最下边一行的引用位置一行内填入：
=get.cell(63.a1)
确定。
2，在b1中输入=xx，光标指向b1单元格右下角的小黑点，光标变成小黑实心十字时，双击左键。完成填充。
这样操作以后，在b列中会出现各个单元格中底色的代码。
3,用countif()函数对你要统计的单元进行统计，如：
=countif($b$1:$b$100,"5")
这个统计公式意思是统计b1至b100中颜色代码是5的单元格有多少个。
相似回答