excel 函数的使用基础.ppt

文档介绍：Excel 函数作成:知秋导购返利网转 Excel 函数之旅玩玩自定义公式的作成① Excel 函数作成:知秋导购返利网转 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 〉 Excel 函数作成:知秋导购返利网转 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 〉 Excel 函数作成:知秋导购返利网转 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 〉 Excel 函数作成:知秋导购返利网转 Excel 函数之旅玩玩自定义公式的作成 tax = (e - 80800) * + 21625 Case Is >= 100800 tax = (e - 100800) * + 29625 Case Is < 0 MsgBox “你的工资”& e & “输入有误” End Select End Function 〈 Continue 〉 Excel 函数作成:知秋导购返利网转 Excel 函数之旅玩玩自定义公式的作成〈 Continue 〉 Excel 中函数都有一个说明,帮助使用,我们也要给这个函数添加一个说明。在工具栏中选择“对象浏览器”(如图 1),选择我们所做 Tax 模块, 在其[ 右键]→[ 属性] 中添加关于对这个函数的描述,这个描述将出现在 Excel 中关于函数的说明中,如果你要对软件保密的话,在“模块”上按右键, [VBAproject 属性]→[ 保护中设置密码] ,这样别人就看不到你的源程序了。图1 添加自制函数说明 Excel 函数作成:知秋导购返利网 WME EUC 教育资料 Excel 函数作成:裘进,郁林转 Excel 函数之旅玩玩自定义公式的作成〈 End 〉这时,退出,