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

《自定义函数选合集(代码注释).doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、自定义函数选附代码注释By蓝桥玄霜前言我们平时在工作表单元格的公式中常常使用函数，Excel自带的常用的函数多达300多个，功能强大，丰富多彩，博大精深。在Excel内置函数和扩展函数中有十多个应用领域的函数，如数学与三角函数、统计函数、文本和数据函数、查找和引用函数、数据库函数、财务函数、日期和时间函数、信息函数、工程函数和宏表函数等等。但是我们每个人还可能有各种各样的问题而不能直接应用这些函数得到解决，于是Excel也提供了VBA可以让我们自己编一个自定义函数来解决自己特定的需求。以下挑选一些自定义函数，由简到繁，附以代码注释，供大家参考。第1例折

2、扣函数一、题目：要求编写一个当销售数量大于等于100时，售价打九折的计算折扣的自定义函数。二、代码：FunctionZekou(sul,jiag)AsDoubleIfsul>=100ThenZekou=sul*jiag*0.1ElseZekou=0EndIfZekou=Application.Round(Zekou,2)EndFunction三、代码详解1、FunctionZekou(sul,jiag)AsDouble：自定义函数的开始语句。自定义函数总是以Function开头，以EndFunction语句结束。自定义函数的代码一定要放在标准模块里面。

3、Zekou是函数名，名字可取一个较短的描述信名称，这样容易记忆。如sul数量和jiag价格，这里用的是拼音字母。函数后括号里的两个变量叫做函数的参数。两个参数都没有显式声明数据类型，都是可变型数据类型variant。ASDouble表示函数返回值的数据类型是双精度浮点型数据。2、Ifsul>=100Then如果sul（数量）大于等于100，那么这是标准的If…Then…Else判断语句，意思是如果第一个条件成立，或者说满足了第一个条件，那么执行Then以后的语句；否则执行Else以后的语句。3、Zekou=sul*jiag*0.1折扣＝数量×价格×0.

4、14、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例两点之间距离的自定义函数一、题目：要求编写已知同一平面上两点的坐标值，求两点之间距离的自定义函数。二、代码：Func

5、tiondist(x1,y1,x2,y2)dist=Sqr((x2-x1)^2+(y2-y1)^2)EndFunction三、代码详解1、Functiondist(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的

6、坐标值，D2、D3单元格是点2的坐标值，两点之间的距离为C5＝dist(B2,B3,D2,D3)‘返回156792如图-2所示。图-2dist函数的用法第3例十进制角度转化为度分秒的自定义函数一、题目：要求编写把一个十进制的角度，转化为角的度分秒形式的自定义函数。二、代码：Functiondfm(angle3)'度转化为度分秒Ifangle3<0Thendeg1=-Int(Abs(angle3))Elsedeg1=Int(angle3)EndIfmin1=(Abs(angle3)-Abs(deg1))*60min2=Int(min1)sec1=Int(

7、(min1-min2)*60)dfm=deg1&"°"&min2&"'"&sec1&""""EndFunction三、代码详解1、Functiondfm(angle3)：自定义函数的开始语句。自定义函数名称为dfm，度分秒的拼音首字母，参数是angle3。2、Ifangle3<0Then：如果角度小于0，那么执行下面的语句，否则执行else后面的语句。3、deg1=-Int(Abs(angle3))：这句用了两个VBA函数，先是绝对值函数Abs，对负的角度取其绝对值，然后是取整函数Int，取角度的整数，加上-（负）以后赋值给变量deg1（整数度）。这里

8、为什么要先用绝对值函数Abs呢？因为如果直接对负数取整，就会产生错误，如-36，直接对负数取整