VBA 自定义函数，Function过程（vba自定义函数说明）

Function过程也称为函数过程，编写一个Function过程，就是编写了一个函数。

函数可以完成很多复杂的计算。如想求A列的和，可以用SUM函数；想知道A列有多少个“张三”，可以用COUNTIF函数。

如果想统计这张表中有多少黄色底纹的单元格，能用函数解决吗？

试写一个函数

Function过程同Sub过程一样，都是保存在模块里，所以，在编写函数前，应先插入一个模块来保存它。

Public Function Fun()

代码

End Function

使用自定义函数

自定义的函数可以在工作表中使用，也可以在VBA过程里使用。

在表格中使用自定义函数：

和使用Excel普通公式一样的使用方法。

怎么统计指定颜色的单元格个数

在Excel里，可以通过RGB函数指定不同的颜色，如想将活动工作表中B1单元格的底纹设置为黄色，代码为：

Range("B1").Interior.Color=BGR(255,255,0)

R（红）255

G（绿）255

B（蓝）0

三色混合叠加之后得到的是黄色。

如果要知道A1单元格的底纹是不是黄色，只需判断Range("B1").Interior.Color 是否等于 BGR(255,255,0) 就可以了。

Function CountColor()

If Range("A1").Interior.Color = BGR(255,255,0) Then

黄色处理代码

Else

不是黄色处理代码

End if

End Function

如果要统计A1：A10里有多少黄色单元格，可以用VBA替我们数一下，如下图：