|
Excel的强大函数功能,为我们带来了极大方便,虽然它有200多个函数,但有时我们为实现一项规定的功能,可能用到几个函数或者采用嵌套函数,这样应用起来,也不太方便。其实对于我们经常用到的功能,我们可以创建自定义函数UDF(User—defined function),它的运行与Excel中自带的函数完全相同。建立自定义函数有以下几个优点:建立自己特殊的功能和名称的函数;能将复杂的、嵌套的、多个原有的函数组合在一起,发挥更大的威力。
比如现在我们要根据收入来计算个人收入调节税,按照规定每月收入减去800元基础后,除去养老保险金、失业保险金、医疗保险金、住房公积金、工会费,对剩下的余额征收个税。余额在500元内的征收余额的5%,余额为500~2000元的征收余额的10%,余额为2000~5000元的征收余额的15%……征收个税的最高税率为45%(余额在10万元以上的)。如果用Excel的函数,则要进行多层if嵌套,稍有不注意,可能造成计算上差错,我们建立自己的函数来解决这个问题。
首先进入Excel,在[工具]→[宏]→[Visul Basic编辑器](也可按组合键[Alt+F11]),在“Visul Basic编辑器”中选择[插入]→[添加模块],在代码窗口输入下列函数:
Function tax(income As Single) As Single
Select Case income
Case 0 To 800
tax = 0
Case 800.01 To 1300
tax = (income - 800) * 0.05
Case 1300.01 To 2800
tax = (income - 1300) * 0.1 + 25
Case 2800.01 To 5800
tax = (income - 2800) * 0.15 + 175
Case 5800.01 To 20800
tax = (income - 5800) * 0.2 + 625
Case 20800.01 To 40800
tax = (income - 20800) * 0.25 + 3625
Case 40800.01 To 60800
tax = (income - 40800) * 0.3 + 8625
Case 60800.01 To 80800
tax = (income - 60800) * 0.35 + 14625
Case 80800.01 To 100800
tax = (income - 80800) * 0.4 + 21625
Case Is >= 100800
tax = (income - 100800) * 0.45 + 29625
Case Is < 0
MsgBox "你的工资 " && income && " 输入有误"
End Select
End Function
[下一页]
相关文章:
中文Excel 2000速成教程 3.5 自动筛选数据
中文Excel 2000速成教程 3.6 高级筛选数据
中文Excel2000速成教程 目录
ShotGraph函数介绍FindInBinary
Excel2000中的数据地图
修复受伤的Excel文件
Authorware实战开发专题(1)
工资表巧转工资条
在ActiveX控件中如何动态调用DLL函数
用Excel设计电子计分册
|