自定义函数，也叫用户定义函数，是Excel最富有创意和吸引力的功能之一，下面我们在VisualBasic模块中创建一个函数。在下面的例子中，我们要给每个人的金额乘一个系数，如果是上班时的工作餐，就打六折；如果是加班时的工作餐，就打五折；如果是休息日来就餐，就打九折。首先打开“工具”菜单，单击“宏”命令中的“VisualBasic编辑器”，进入VisualBasic编辑环境，在“工程－VBAobject”栏中的当前表上单击鼠标右键，选择“插入”-“模块”，在右边栏创建下面的函数rrr，代码如下：Functionrrr(tatol,rr)Ifrr="上班"Thenrrr=0.6*tatolElseIfrr