获取单元格背景颜色和字体颜色的自定义函数

little-key

最近经常看到有一些朋友问到相同背景色的单元格求和或者计数问题
其实这个核心问题在于找到单元格的背景色
通过VBA 的方法，就很容易可以获取到这个颜色值
下面提供两组自定义函数的源码：

1、获取单元格背景颜色的自定义函数源码

1. Function bjys(rn As Range) '获取单元格的背景色
   
2. bjys = rn.Interior.ColorIndex
   
3. End Function

复制代码

2、获取单元格字体颜色的自定义函数源码

1. Function ztys(rn As Range) '获取单元格的背景色
   
2.     ztys = rn.Font.ColorIndex
   
3. End Function

复制代码

关于自定义函数的做法和用法，在这里就不再赘述了。

Ivy1283

也可以用GET.CELL函数获取单元格的信息吧，谢谢斑竹的分享tips

little-key

Ivy1283 发表于 2017-5-16 15:53
也可以用GET.CELL函数获取单元格的信息吧，谢谢斑竹的分享tips

这个也是一种方法，将get.cell 放到名称中，再引用

Ivy1283

little-key 发表于 2017-5-16 16:00
这个也是一种方法，将get.cell 放到名称中，再引用

恩恩，谢谢！我知道获取单元格的填充色代码是64，那这个函数获取单元格中字体的颜色的代码又是多少啊？

little-key

Ivy1283 发表于 2017-5-16 16:27
恩恩，谢谢！我知道获取单元格的填充色代码是64，那这个函数获取单元格中字体的颜色的代码又是多少啊？

VBA 有color和colorindex，其实就是用一个统一的方法或者一个值，然后比较这个值是否一样而已

gannaijun

Ivy1283 发表于 2017-5-16 16:27
恩恩，谢谢！我知道获取单元格的填充色代码是64，那这个函数获取单元格中字体的颜色的代码又是多少啊？

这个函数获取单元格中字体的颜色的代码是24