文档介绍:el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
①
el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
现在我们要根据收入来计算个人收入调节税,按照规定每月收入减去800元基础后,除去养老保险金、失业保险金、医疗保险金、住房公积金、工会费,对剩下的余额征收个税。余额在500元内的征收余额的5%,余额为500~2000元的征收余额的10%,余额为2000~5000元的征收余额的15%……征收个税的最高税率为45%(余额在10万元以上的)。如果用Excel的函数,则要进行多层if嵌套,稍有不注意,可能造成计算上差错,我们建立自己的函数来解决这个问题。
转Excel函数之旅
玩
自定义公式的作成
首先进入Excel,在[工具]→[宏]→[Visul Basic编辑器](也可按组合键[Alt+F11]),在“Visul Basic编辑器”中选择[插入]→[添加模块],在代码窗口输入下列函数:
Function tax(e As Single) As Single
Select Case e
Case 0 To 800
〈Continue〉
el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
tax = 0
Case To 1300
tax = (e - 800) *
Case To 2800
tax = (e - 1300) * + 25
Case To 5800
tax = (e - 2800) * + 175
Case To 20800
〈Continue〉
el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
tax = (e - 5800) * + 625
Case To 40800
tax = (e - 20800) * + 3625
Case To 60800
tax = (e - 40800) * + 8625
Case To 80800
tax = (e - 60800) * + 14625
Case To 100800
〈Continue〉
el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
tax = (e - 80800) * + 21625
Case Is >= 100800
tax = (e - 100800) * + 29625
Case Is < 0
MsgBox “你的工资”& e & “输入有误”
End Select
End Function
〈Continue〉
el函数作成:知秋导购返利网
转Excel函数之旅
玩
自定义公式的作成
〈Continue〉
Excel中函数都有一个说明,帮助使用,我们也要给这个函数添加一个说明。在工具栏中选择“对象浏览器”(如图1),选择我们所做Tax模块,在其[右键]→[属性]中添加关于对这个函数的描述,这个描述将出现在Excel中关于函数的说明中,如果你要对软件保密的话,在“模块”上按右键,[VBAproject属性]→[保护中设置密码],这样别人就看不到你的源程序了。
图1 添加自制函数说明
el函数作成:知秋导购返利网
WME EUC教育资料 Excel函数作成:裘进,郁林
转Excel函数之旅
玩
自定义公式的作成
〈End〉
这时,退出,回到Excel界面,将这个文件另存为:类型为“Microsoft Excel 加载宏”,在Excel 2000中,它会自动更改保存位置为c:\windows\application data\microsoft\addins(系统装在c:\windows),当然,,直接复制到office\library(office的安装路径下),而在Excel 97中只能放在后一个位置。使用函数很简单,点击[工具]→[加载宏],在你创建的Tax前打个勾,在单元格直接输入“=tax()”,是不是像Microsoft office提供的函数一样(如图2),
图2 使用自制函数
转Excel函数之旅
玩
查阅或引用函数的使用
②
el函数作成:知秋导购返利网
转Excel函数之旅
玩
函数LOOKUP 的使用
函数 LOOKUP 有两种语法形式:向量和数组。
向量:
向量为只包含一行或一列的区域