文章分类 | 推荐文章 | 最新文章 | 热点文章 | 最新软件 | 精品软件 | 下载排行 | 推荐下载 | 免费看大片 | WPS | 杀毒软件
清风网络
首 页 软件下载 网络学院 数码学院
QQ 电脑入门 游戏 操作系统 图形处理 办公软件 媒体动画 精文荟萃 工具软件 网络编程 程序开发 网络技术 认证考试 网站建设 文章专栏
当前位置:清风网络学院办公软件Excel创建自己的Excel函数
精品推荐
特别推荐
·八招设置Excel2007 用得更顺手
·用Excel实现定时提醒
·可以在Excel中使用的Office语音识别命令
·在同一Excel图表工作表中显示多个图表
·Excel 2007中创建或删除自定义数字格式
·Excel 2007表格行和列的移动或复制
·Excel旧表翻新技巧
·Excel中快速定位的技巧实例
·Excel密码保护的解除方法与解除原理
·用Excel函数快速统计学生期中考试成绩
·八种常见Excel错误提示及问题解决方法
·在Excel中将文本转换为数字的七种方法
·更改多个Excel工作表的数据合并计算
·解决Excel数值进位问题
·巧用Excel发送电子邮件
·跟我学做Excel XP斜线表头
·Excel 2007单元格内容的编辑与控制
·快速查找具有条件格式的Excel单元格
·Excel 2003数据隐藏小技巧
·办公软件 Excel真正的实现四舍五入
热点TOP10
·Excel密码保护的解除方法与解除原理
·为什么EXCEL身份证号码都科学计数法?
·跟我学做Excel XP斜线表头
·在Excel中将文本转换为数字的七种方法
·比较常用的25条Excel技巧整理放送
·改改小细节 Excel表格立刻变得更漂亮
·巧用Excel函数来实现工作表间的数据关联
·在Excel中将人民币金额小写转成大写
·在同一Excel图表工作表中显示多个图表
·将Excel中存储为文本的日期转换为日期格式
·如何在AutoCAD中导入excel表格
·Excel中分类设置录入数据的下拉列表
·让多页Excel表格自动打印统一表头
·Exce表格分栏打印输出的两种巧妙方法
·Excel XP“单元格”合并与拆分的技巧
·在Excel中将连续多列相同数据项合并
·EXCEL2000使用技巧十招
·将Excel的文本数字转换成数字
·用Excel函数快速统计学生期中考试成绩
·用Excel实现定时提醒

创建自己的Excel函数

日期:2007年4月3日 作者: 查看:[大字体 中字体 小字体]


  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中函数都有一个说明,帮助使用,我们也要给这个函数添加一个说明。在工具栏中选择“对象浏览器”(如图1),选择我们所做Tax模块,在其[右键]→[属性]中添加关于对这个函数的描述,这个描述将出现在Excel中关于函数的说明中,如果你要对软件保密的话,在“模块”上按右键,[VBAproject属性]→[保护中设置密码],嘿嘿!别人就看不到你的源程序了。

  创建自己的Excel函数


  图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),很有点专业味道。

  创建自己的Excel函数
  图2 使用自制函数

  假如你把调用这个宏的Excel文件拷贝到别的机子上运行,会出现“当前所要打开的文档含有其他文档的链接,是否要使用其他工作簿中的改动更新当前工作簿”的提示,可以显示原先计算的数据,这是因为在Excel中的[工具]→[选项]→[重新计算]中,一般选中“保存外部链接数据”,但你不能重新计算,因为不能链接这个宏,别人机子上根本就没有这个函数。

  创建自己的Excel函数
  图3 我的函数好像不够专业

  只不过在“加载宏”时,我自己创建的函数,是一个英文标题,而且下面也没有说明(如图3),你是不是觉得有点不够专业。跟我来,再教你一招,如果你使用的是Excel 2000时,找到tax.xla,点击[右键]→[属性]→[摘要] (如图4),在描述里添加所需内容来对函数进行相关描述,其中“标题”部分将出现在“加载宏”的方框中,“备注”部分将出现在下面的函数说明部分。这时再看看,够不够专业。在Excel 97中也可以在其右键属性中作相应更改。

  创建自己的Excel函数
  图4 添加中文描述
Photoshop入门教程 Photoshop实例教程 Photoshop cs教程 滤镜 鼠绘
Photoshop照片处理 Photoshop视频教程 Photoshop作品展示 特效 抠图

(出处:清风网络学院






上一篇:用Excel巧转工资条

下一篇:用Excel设计电子计分册

创建自己的Excel函数 相关文章:
·Excel密码保护的解除方法与解除原理
·制作自己的多媒体毕业纪念册
·打造自己的“品牌机”——修改BIOS全屏开机画面
·C语言图形函数
·如何建立自己的博客
·为什么EXCEL身份证号码都科学计数法?
·C语言的常用库函数使用方法分析及用途
·跟我学做Excel XP斜线表头
·C#源码读取excel数据到程序中-SQL SERVER-到dataset中
·手把手教你建立自己的网站
创建自己的Excel函数 相关软件:
·中文版Excel 2003实例与技巧
·C语言库函数速查
·C函数浏览
·Excel 2003 全能培训教程
·Excel 2000
·Excel应用宝典
·勤哲Excel服务器 2007 V7.1.4 完整企业版
·Excel2003函数应用完全手册
·架设自己的QQ服务器
·架自己的电台

特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员,我们尽快予以更正。
[打印本页] [关闭窗口] 转载请注明来源:http://www.vipcn.net
| 帮助(?) | 版权声明 | 友情连接 | 关于我们 | 信息发布
Copyright 2007 www.vipcn.net All Rights Reserved. 鄂ICP备05000083号Powered by:viphot