VBA自定义函数选合集(代码注释).docxVIP

— PAGE \* Arabic 1 — VBA自定义函数选合集(代码注释) 自定义函数选  附代码解释  By 蓝桥玄霜  前言  我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，博大精深。在Excel内置函数和扩展函数中有十多个应用领域的函数，如数学与三角函数、统计函数、文本和数据函数、查找和引用函数、数据库函数、财务函数、日期和时间函数、信息函数、工程函数和宏表函数等等。  但是我们每个人还可能有各种各样的问题而不能直接应用这些函数得到解决，于是Excel也提供了VBA可以让我们自己编一个自定义函数来解决自己特定的需求。以下挑选一些自定义函数，由简到繁，附以代码解释，供大家参考。  第1例折扣函数  一、题目：  要求编写一个当销售数量大于等于100时，售价打九折的计算折扣的自定义函数。二、代码：  Function Zekou(sul, jiag) As Double  If sul=100 Then  Zekou =sul*jiag*0.1  Else  Zekou =0  EndIf  Zekou =Application.Round(Zekou,2)  End Function  三、代码详解  1、Function Zekou(sul, jiag) As Double ：自定义函数的开始语句。  自定义函数总是以Function开头，以End Function语句结束。自定义函数的代码一定要放在标准模块里面。  Zekou是函数名，名字可取一个较短的描述信名称，这样容易记忆。如sul数量和jiag 价格，这里用的是拼音字母。函数后括号里的两个变量叫做函数的参数。两个参数都没有显式声明数据类型，都是可变型数据类型variant。AS Double 表示函数返回值的数据类型是双精度浮点型数据。  2、If sul=100 Then 如果sul（数量）大于等于100，那么  这是标准的If…Then…Else判断语句，意思是如果第一个条件成立，或者说满足了第一个条件，那么执行Then以后的语句；否则执行Else以后的语句。  3、Zekou =sul*jiag*0.1 折扣＝数量×价格×0.1  4、Else 否则执行下面的语句，  5、Zekou = 0 折扣＝0，即数量小于100时，不打折扣。  6、Zekou =Application.Round(Zekou,2) 这里用了工作表的Round函数，返回一个数值，该数值是按照指定的小数位数进行四舍五入运算的结果。这里是按照2位小数进行四舍五入运算的折扣数值。  四、自定义函数用法  B2=450，C2＝100.00，D2＝Zekou(B2,C2) …返回4500.00  如图-1所示。   图-1 折扣函数用法  第2例两点之间距离的自定义函数  一、题目：  要求编写已知同一平面上两点的坐标值，求两点之间距离的自定义函数。  二、代码：  Function dist(x1, y1, x2, y2)  dist = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)  End Function  三、代码详解  1、Function dist(x1, y1, x2, y2) ：自定义函数的开始语句。  自定义函数名称为dist，参数是两点的坐标值x1、y1、x2、y2。  2、dist = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2) ：  这是一个求两点间距离的公式，x坐标值差的平方与y坐标值差的平方之和的平方根就是两点之间的距离。其中Sqr是VBA函数，返回一个Double（双精度数据），指定参数的平方根。  四、自定义函数用法  B2、B3单元格是点1的坐标值，D2、D3单元格是点2的坐标值，两点之间的距离为C5＝dist(B2,B3,D2,D3) …返回156792  如图-2所示。   图-2 dist函数的用法  第3例十进制角度转化为度分秒的自定义函数  一、题目：  要求编写把一个十进制的角度，转化为角的度分秒形式的自定义函数。  二、代码：  Function dfm(angle3) 度转化为度分秒  If