编辑“EXCEL/自定义函数”

{{EXCEL导航}}

虽然Excel中已有大量的内置函数，但有时可能还会碰到一些计算无函数可用的情况。假如某公司采用一个特殊的数学公式计算产品购买者的折扣，如果有一个函数来计算岂不更方便？下面就说一下如何创建这样的自定义函数。
 
'''自定义函数'''，也叫用户定义函数，是Excel最富有创意和吸引力的功能之一，下面我们在Visual Basic模块中创建一个函数。 在下面的例子中，我们要给每个人的金额乘一个系数，如果是上班时的工作餐，就打六折；如果是加班时的工作餐，就打五折；如果是休息日来就餐，就打九折。首先打开“工具”菜单，单击“宏”命令中的“Visual Basic编辑器”，进入Visual Basic编辑环境，在“工程－VBAobject”栏中的当前表上单击鼠标右键，选择“插入”-“模块”，在右边栏创建下面的函数rrr，代码如下： Function rrr(tatol, rr) If rr = "上班" Then rrr = 0.6 * tatol ElseIf rr = "加班" Then rrr = 0.5 * tatol ElseIf rr = "休息日" Then rrr = 0.9 * tatol End If End Function （如下图）。

[[文件:Excel_config8.JPG‎|center|模块]]

这时关闭编辑器，只要我们在相应的列中输入rrr(F２，B２)，那么打完折后的金额就算出来了（如下图）。

[[文件:Excel_config9.JPG‎|center|计算结果]]

==参考来源==
*http://wenku.baidu.com/view/f22ea36fb84ae45c3b358c3c.html 


[[category:EXCEL|Z]]
{{EXCEL使用手册导航}}