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

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

Excel并没有提供解决这个问题的工作表函数。这时，可以根据需要自己编写一个。

3.9.1　试写一个函数

Function过程同Sub过程一样，都是保存在模块里，所以，在编写函数前，应先插入一个模块（参阅第2章2.4.1小节）来保存它。

插入模块后，双击模块激活它的【代码窗口】，即可开始编写函数。

如果想让函数生成一个1〜10之间的随机整数，完整的程序为：

3.9.2　使用自定义函数

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

在工作表中使用自定义函数

在工作表中使用自定义函数同使用工作表函数类似，如图3-45所示。

图3-45　在工作表中使用自定义函数

自定义的函数可以在【插入函数】对话框里找到，如图3-46所示。

图3-46　查看自定义函数

自定义的函数可以和其他函数嵌套使用，如图3-47所示。

如：

图3-47　嵌套使用自定义函数

在VBA过程中使用自定义函数

在VBA中使用自定函数与使用VBA的内置函数一样，如图3-48所示。

图3-48　在VBA中使用自定义函数

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

问题一：单元格是什么颜色

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

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

要知道A1:A10里有少个黄色单元格，可以让VBA替我们数一下，是黄色的累计，不是黄色的排除。

在工作表里输入函数，可以看到函数返回的计算结果，如图3-49所示。

图3-49　统计黄色单元格的个数

还可以通过颜色索引号来引用某个颜色，在Excel 2003中，默认情况下，黄色的颜色索引号为6，所以上面的代码还可以写为：

ColorIndex属性引用的是某个索引号上的颜色，而Color返回的是真实颜色。因为颜色的索引号可以更改，所以使用ColorIndex属性引用到的颜色不一定都相同，因此函数不一定能返回正确的结果。

用参数指定计算区域

在工作表中使用函数时，可以通过函数参数指定计算统计的单元格区域。自定义函数也可以使用参数。

如果需要统计的单元格区域不是固定的，可以用变量代替程序里的A1:A10单元格区域，让用户在使用自定义函数时通过函数参数指定区域。

为函数设置参数后，如果要统计A1:C10中黄色底纹单元格的个数，输入公式“=count color(A1:C10)” 即可，如图3-50所示。

图3-50　使用参数的自定义函数

给自定义函数指定第2参数

还可以给函数设置第2参数，通过第2参数指定要统计的颜色。

在工作表中使用自定义的函数，如图3-51所示。

图3-51　用参数指定需要统计的颜色

如果需要，还可以为函数添加第3参数，第4参数……

设置自定义函数为易失性函数

有时，当工作表重新计算之后，自定义函数并不会重新计算。如在工作表中使用第3章3.9.1小节中生成随机的自定义函数后，按F9键重算工作表，函数并不会生成新的随机值。

但如果在函数开始添加一条语句，添加语句后，无论何时重新计算工作表，函数都会重新计算，得到新的结果。

注意：使用Application. Volatile True语句是将自定义函数声明为易失性函数。当工作表发生重算后，易失性函数会重新计算函数的值。但因为更改单元格的背景颜色不会让工作表重算，所以，无论是否使用该语句，更改单元格的颜色后，本节中编写的自定义函数CountColor都不会重新计算。

3.9.4　声明函数过程，规范的语句

声明Function过程的语句和声明Sub过程的语句类似。同Sub过程一样，Function函数也分公共函数和私有函数，如果想声明一个私有函数，请一定要加上Private关键字。