虽然Excel中已有大量的内置函数，但有时可能还会碰到一些计算无函数可用的情况。假如某公司采用一个特殊的数学公式计算产品购买者的折扣，如果有一个函数来计算岂不更方便？下面就说一下如何创建这样的自定义函数。

自定义函数，也叫用户定义函数，是Excel最富有创意和吸引力的功能之一，下面我们在Visual Basic模块中创建一个函数。

在例子中，我们要给每个人的金额乘一个系数，如果是上班时的工作餐，就打六折；如果是加班时的工作餐，就打五折；如果是休息日来就餐，就打九折。

首先打开“工具”菜单，单击“宏”命令中的“Visual Basic编辑器”，进入Visual Basic编辑环境，在“工程－VBAobject”栏中的当前表上单击鼠标右键，选择“插入”-“模块”，在右边栏创建下面的函数rrr，代码如下： （如图1）

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

图1

        这时关闭编辑器，只要我们在相应的列中输入rrr(F２，B２)，那么打完折后的金额就算出来了，是不是很容易也很有趣味？（如图2）

图2