当前位置:首页 > EXCEL函数(最全面、最适用的电子表格知识)
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 \你的工资 \输入有误\
End Select
End Function
我们知道,Excel中函数都有一个说明,帮助使用,我们也要给这个函数添加一个说明。在工具栏中选择“对象浏览器”(如图1),选择我们所做Tax模块,在其[右键]→[属性]中添加关于对这个函数的描述,这个描述将出现在Excel中关于函数的说明中,如果你要对软件保密的话,在“模块”上按右键,[VBAproject属性]→[保
护中设置密码],嘿嘿!别人就看不到你的源程序了。
图1 添加自制函数说明
这时,退出,回到Excel界面,将这个文件另存为:类型为“Microsoft Excel 加载宏”,在Excel 2000中,它会自动更改保存位置为c:\\windows\\application data\\microsoft\\addins(系统装在c:\\windows),当然,你也可以把这个文件tax.xla,直接复制到office\\library(office的安装路径下),而在Excel 97中只能放在后一个位置。使用函数很简单,点击[工具]→[加载宏],在你创建的Tax前打个勾,在单元格直接输入“=tax()”,是不是像Microsoft office提供的函数一样(如图2),很有点专业味道。
图2 使用自制函数
假如你把调用这个宏的Excel文件拷贝到别的机子上运行,会出现“当前所要打开的文档含有其他文档的链接,是否要使用其他工作簿中的改动更新当前工作簿”的提示,可以显示原先计算的数据,这是因为在Excel中的[工具]→[选项]→[重新计算]中,一般选中“保存外部链接数据”,但你不能重新计算,因为不能链接这个宏,别人机子上根本就没有这个函数。
图3 我的函数好像不够专业
只不过在“加载宏”时,我自己创建的函数,是一个英文标题,而且下面也没有说明(如图3),你是不是觉得有点不够专业。跟我来,再教你一招,如果你使用的是Excel 2000时,找到tax.xla,点击[右键]→[属性]→[摘要] (如图4),在描述里添加所需内容来对函数进行相关描述,其中“标题”部分将出现在“加载宏”的方
共分享92篇相关文档