1.打开Excel程序，点击“文件”—“Excel选项”项以打开，切换到“自定义功能区”选项卡，勾选“开发者工具”项，点击“确定”按钮。
2.切换到“开发者工具”功能区，点击左侧的“VisualBasic”按钮，即可进入VBA开发环境。
3.从打开的“VBA编辑器”环境界面，右击当前工作表，从其右键菜单中选择“插入”-“模块”项。
在“模块”界面中，按以下格式创建自定义函数：
实例函数如图所示：
Function Award(post,city,money)
If (post="开发") And (city="一线") And (money > 3) And (money <= 5) Then
Award = "500"
ElseIf (post="开发") And (city="一线") And (money > 5) And (money <= 10) Then
Award = "800"
ElseIf (post="开发") And (city="一线") And (money > 10) And (money <= 20) Then
Award = "1200"
ElseIf (post="开发") And (city="一线") And (money > 20) Then
Award = "1500"
ElseIf (post="开发") And (city="二线") And (money > 3) And (money <= 5) Then
Award = "300"
ElseIf (post="开发") And (city="二线") And (money > 5) And (money <= 10) Then
Award = "500"
ElseIf (post="开发") And (city="二线") And (money > 10) And (money <= 20) Then
Award = "900"
ElseIf (post="开发") And (city="二线") And (money > 20) Then
Award = "1300"
ElseIf (post="主管") And (city="一线") And (money > 20) And (money <= 30) Then
Award = "500"
ElseIf (post="主管") And (city="一线") And (money > 30) And (money <= 40) Then
Award = "1000"
ElseIf (post="主管") And (city="一线") And (money > 40) And (money <= 50) Then
Award = "1400"
ElseIf (post="主管") And (city="一线") And (money > 50) Then
Award = "1800"
ElseIf (post="主管") And (city="二线") And (money > 20) And (money <= 30) Then
Award = "500"
ElseIf (post="主管") And (city="二线") And (money > 30) And (money <= 40) Then
Award = "800"
ElseIf (post="主管") And (city="二线") And (money > 40) And (money <= 50) Then
Award = "1200"
ElseIf (post="主管") And (city="二线") And (money > 50) Then
Award = "1500"
ElseIf (post="经理") And (city="一线") And (money > 40) And (money <= 60) Then
Award = "500"
ElseIf (post="经理") And (city="一线") And (money > 60) And (money <= 80) Then
Award = "1000"
ElseIf (post="经理") And (city="一线") And (money > 80) And (money <= 120) Then
Award = "1500"
ElseIf (post="经理") And (city="一线") And (money > 120) Then
Award = "2000"
ElseIf (post="经理") And (city="二线") And (money > 40) And (money <= 60) Then
Award = "500"
ElseIf (post="经理") And (city="二线") And (money > 60) And (money <= 80) Then
Award = "800"
ElseIf (post="经理") And (city="二线") And (money > 80) And (money <= 120) Then
Award = "1300"
ElseIf (post="经理") And (city="二线") And (money > 120) Then
Award = "1500"
End If
End Function
自定义函数测试：
分别在“A1”和“B1”,"C1"单元格输入数值，在D1单元格输入公式“=（A1,B1,C1)”，按回车即可查看到条件结果。
WPS定义函数类似。建议下载最新的WPS.然后下载VB库
/article/455a995086f7c2a167277875.html
