当前位置: 电脑软硬件应用网 > 设计学院 > 网页设计 > 正文 |
|
|||
创建自己的Excel函数 体验强大功能 | |||
2005-12-30 19:14:05 文/45IT收集 出处:电脑软硬件应用网 | |||
首先进入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中函数都有一个说明,帮助使用,我们也要给这个函数添加一个说明。在工具栏中选择“对象浏览器”(如图1),选择我们所做Tax模块,在其[右键]→[属性]中添加关于对这个函数的描述,这个描述将出现在Excel中关于函数的说明中,如果你要对软件保密的话,在“模块”上按右键,[VBAproject属性]→[保护中设置密码],嘿嘿!别人就看不到你的源程序了。 这时,退出,回到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),很有点专业味道。 假如你把调用这个宏的Excel文件拷贝到别的机子上运行,会出现“当前所要打开的文档含有其他文档的链接,是否要使用其他工作簿中的改动更新当前工作簿”的提示,可以显示原先计算的数据,这是因为在Excel中的[工具]→[选项]→[重新计算]中,一般选中“保存外部链接数据”,但你不能重新计算,因为不能链接这个宏,别人机子上根本就没有这个函数。 只不过在“加载宏”时,我自己创建的函数,是一个英文标题,而且下面也没有说明(如图3),你是不是觉得有点不够专业。跟我来,再教你一招,如果你使用的是Excel 2000时,找到tax.xla,点击[右键]→[属性]→[摘要] (如图4),在描述里添加所需内容来对函数进行相关描述,其中“标题”部分将出现在“加载宏”的方框中,“备注”部分将出现在下面的函数说明部分。这时再看看,够不够专业。在Excel 97中也可以在其右键属性中作相应更改。 |
|||
最新热点 | 最新推荐 | 相关文章 | ||
页面自动跳转的几种实现方法 网站内容的四种分类形式 或多或少的… 如何指定规范网页?rel="canonical" 浅谈网站评论体系设计的不足之处 网页中“上一篇”“下一篇”设计思考 网页设计进度指示器帮助用户预测步骤 网页用户体验:网页注册表单设计分析 网页设计常出现8大问题 网页设计的形象思维归纳 彻底去掉动易内容页顶部的“改变图片… |
关于45IT | About 45IT | 联系方式 | 版权声明 | 网站导航 | |
Copyright © 2003-2011 45IT. All Rights Reserved 浙ICP备09049068号 |