设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

ExcelHome 扩展函数库2.1

1970-1-1 08:00| 发布者: 未知| 查看: 3928| 评论: 5

本软件为Excel加载宏程序,其中收集了由Excel Home为大家开发的各种实用函数,用以扩展Excel的计算功能。为了以示区别,本函数库中的函数名称全部由Excel Home的简称EH开头。因为本程序在VBA10下开发,故部分函数将无法在Excel97及其更低版本下使用。推荐使用 Excel 2000 或者 Excel XP。

安装方法:
    先将本压缩包中的EHFL.xla解压至Office的安装目录下的"Office\Library\"中(例如:您的Office安装在"C:\Program Files\"中,那么您就把EHFL.xla解压至"C:\Program Files\Microsoft Office\Office\Library\"里。)然后启动Excel,点击“工具”——“加载宏”,在“Excel Home扩展函数库”这个加载宏前面的框中打勾,最后按“确定”。这时将出现一个欢迎使用的对话框,到此就安装完成了。

使用方法:
    本软件的功能在于扩展Excel的函数库,以使之更方便大家的工作。在按上述方法正确安装以后,使用方法与使用Excel内置函数完全相同。

详细说明:
    本软件现仅包含以下函数:
一、EHElapsed(StartDate As Date, EndDate As Date, ReturnType As Integer)
这个函数的功能在于精确计算两日期的差值,精确到天,特别适用于工龄等处的计算。具体使用(甚至于源代码)已在Excel Home上进行无保留公布,在此即不复述。

二、EHDXRMB(Arab_number,Type)
    这个函数的功能在于将指定的阿拉伯数字转换成相应的中文大写金额。
    参数Type可选,如果其值为1或省略,则函数直接截取掉Arab_number两位以后的小数部分;如果其值为2,则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
    例如:EHDXRMB(1348.1)="壹仟叁佰肆拾捌元壹角整"
    EHDXRMB(20005.08)="贰万零伍元零捌分"
    如果单元格A1=400,则EHDXRMB(A1)="肆佰元整"

三、EHPItax(Income, Option, Tax_deduction)
    这个函数的功能在于根据工资、薪金值计算应纳个人所得税额及相应税率、速算扣除数。
    参数Income必填,其为要计算的个人工资、薪金值。
    参数Option可选,选择计算目标。如果不填,则默认值为1。当选择1时,函数将计算个人所得税额;当选择2时,函数将计算个人所得税率;当选择3时,函数将计算速处扣除数。
    参数Tax_deduction可选,其为计算应纳税所得额的工资扣除数,如果不填,则默认值为800。
    例如:EHPItax(1355)=30.5
    EHPItax(1355,1,1000)=17.75
    EHPItax(2533,2)=10%
    EHPItax(2533,3)=25
    如果单元格A1=3350,则EHPItax(A1)=257.5

四、EHPItaxC(Income, Option, Tax_deduction)
    这个函数的功能与用法与EHPItax相同,只不过计算基础是不含税工资。也就是在单位或个人为纳税义务人负担税款时,计算应纳税额及相关数据。

五、EHDXE(Arab_number,Type)
    这个函数的功能在于将指定的阿拉伯数字转换成相应的美元金额。被转换数字的有效数字最高为12位。
    参数Arab_number为要转换的阿拉伯数字,可以为数字,数学表达式及单元格引用。
参数Type可选,如果其值为1或省略,则函数直接截取掉Arab_number两位以后的小数部分;如果其值为2,则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
    例如:ehdxe(1053.2)="one thousand fifty-three and cents twenty only"
    ehdxe(10000)="ten thousand only"
    ehdxe(10048303.09)="ten million forty-eight thousand three hundred three and cents nine only"

六、EHDXEC(Arab_number,Type)
    这个函数的功能在于将指定的阿拉伯数字转换成相应的英文数字。被转换数字的有效数字最高为12位。本函数与EHDXE()的区别在于对于小数部分的转换方式不同,前者适用于金额结算时使用,而本函数则按标准读法进行转换。
    参数Arab_number为要转换的阿拉伯数字,可以为数字,数学表达式及单元格引用。
参数Type可选,如果其值为1或省略,则函数直接截取掉Arab_number两位以后的小数部分;如果其值为2,则函数对Arab_number两位以后的小数进行四舍五入。依此类推。
例如:ehdxe(1053.2)="one thousand and fifty-three point twenty"
    ehdxe(10000)="ten thousand"
    ehdxec(10048303.09)="ten million forty-eight thousand three hundred and three point nine"

七、EHevo(number,power)
    这个函数的功能在于对指定的数字进行开整数次方的计算。
    参数number为要开方的数字,即底数,可以为数字,数学表达式及单元格引用。
    参数power为开方的幂数,可选,缺省值为2。幂数必须为整数,非整数参数将被自动舍去小数部分。
例如:ehevo(8,3)=2
      ehevo(4)=2

八、EHDcom(Source,Database)
    此函数用于搜索目标字符串与数据列表中相匹配的值。
    参数Source为目标字符串。
    参数Database为数据列表区域。接受来自任意工作簿任意工作表的任意一列数据。
    例如:A1、A2、A3值为“我爱北京天安门”“南京路上好八连”“桂林山水甲天下”;B1、B2、B3、B4值为“北京”“桂林”“南京”“杭州”,则
      EHDcom(A1,B1:B4) = “北京”
      EHDcom(A2,B1:B4) = “南京”
      EHDcom(A3,B1:B4) = “桂林”

九、EHInStrCount(UserStr, StrStart, StrQuantity)
    此函数用于统计出一个字符串内某字符或字符串出现的次数。
    参数UserStr为目标字符串。
    参数StrStart为用于比较的字符或字符串在UserStr中出现的起始位置。参数StrQuantity为用于比较的字符或字符串的长度,可选,默认值为1。如UserStr为“ABCD”,StrStart为1,StrQuantity为1的话,则用于比较的字符是“A”;如UserStr为“ABCD”,StrStart为2,StrQuantity为1的话,则用于比较的字符是“B”;如UserStr为“ABCD”,StrStart为2,StrQuantity为2的话,则用于比较的字符是“BC”。
    例如:A1为“ABCDABC”,则EHInStrCount(A1,1)=2
EHInStrCount(A1,4)=1
EHInStrCount(A1,1,2)=2
EHInStrCount(A1,1,4)=1

十、EHInStrCountS(UserStr, ComPareStr)
    此函数用于统计出一个字符串内某字符或字符串出现的次数。
    参数UserStr为目标字符串。
    参数ComPareStr为用于比较的字符或字符串。
    例如:A1为“ABCDABC”,则
EHInStrCount(A1,"D")=1
EHInStrCount(A1,"AB")=2
EHInStrCount(A1,"ABCD")=1


十一、EHSuperSumR(FirstCell, LastCell, Odd_Even)
    此函数用于计算某列数据中位于奇数或偶数行的数据。行号为奇数则视该行为奇数行,反之为偶数行。
    参数FirstCell为计算列中的数据起始单元格。
    参数LastCell为计算列中的数据结束单元格。
    参数Odd_Even为定义计算的奇偶属性。1表示计算奇数行,2表示计算偶数行。可不填,默认是1,即计算奇数行的数据。
    例如:A1:A10的值分别为1-10,则
    EHSuperSumR(A1,A10,1)=25
    EHSuperSumR(A1,A10,2)=30
    EHSuperSumR(A1,A10)=25

十二、EHSuperSumC(FirstCell, LastCell, Odd_Even)
    此函数用于计算某行数据中位于奇数或偶数列的数据。列标为奇数则视该列为奇数列,反之为偶数列。
    参数FirstCell为计算行中的数据起始单元格。
    参数LastCell为计算行中的数据结束单元格。
    参数Odd_Even为定义计算的奇偶属性。1表示计算奇数列,2表示计算偶数列。可不填,默认是1,即计算奇数列的数据。
    例如:A1:H1的值分别为1-8,则
    EHSuperSumC(A1,H1,1)=16
    EHSuperSumC(A1,H1,2)=20
    EHSuperSumC(A1,H1)=16


    本软件将不定期升级,加入更多更实用的函数,以方便大家的工作。如果您在实际工作中有这方面的需求,请联系本站,我们将尽量满足您的要求。 
   
    注册说明:未注册的版本将会在每次启动Excel时显示本软件的版权窗体。如果您习惯通过文件关联方式打开Excel文件,则您第一次打开文件的操作只能启动Excel,无法同时打开文件。这是一个小小的麻烦,但并非本人的蓄意所为,应该算是 VBA for Excel 的一个小BUG。
    如果您对这个软件满意,请向本人进行注册,注册费用为人民币66元。您可以选择由银行转帐或汇款进行付款。本人将在收到您的注册费用后把您注册的版本用Email发送给您!
    请在给本人的来信中写明您要注册的软件名称、版本形式、付款方式以及您的联系信息。所有注册收入本人都将用于Excel Home的发展与维护。


下载地址:http://www.office-cn.net/off/uploads/soft/200504/20050420112021662.zip
发表评论

最新评论

引用 luibn6713 2008-5-31 20:13
:'( 可惜了,没法下载啊Q:loveliness:
引用 HEALTHYSHENG 2008-4-8 14:58
太好了! 上帝会保佑你的
引用 HEALTHYSHENG 2008-4-8 14:54
太棒了,一直在找将数字转为英语大写的方法.感谢!
引用 kangmeihua 2008-1-9 14:02
:L 无法下载啊
引用 袁志刚 2007-9-5 15:33
kankan

查看全部评论(5)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-29 02:16 , Processed in 0.071802 second(s), 16 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部