會員登錄 - 用戶注冊 - 網(wǎng)站地圖 Office中國(office-cn.net),專業(yè)Office論壇
當前位置:主頁 > 源碼 > Excel源碼 > 正文

ExcelHome 擴展函數(shù)庫2.1

時間:2005-04-20 11:20 來源:本站原創(chuàng) 作者:未知 閱讀:
軟件類型:國產(chǎn)軟件 授權(quán)方式:共享版 界面語言:簡體中文 軟件大小:71 KB 文件類型:其它 運行環(huán)境:Win9x/NT/2000/XP/ 軟件等級:☆☆☆☆☆ 發(fā)布時間:2005-04-20 插件情況:無插件,請放心使用。 下載次數(shù):
軟件介紹:
本軟件為Excel加載宏程序,其中收集了由Excel Home為大家開發(fā)的各種實用函數(shù),用以擴展Excel的計算功能。為了以示區(qū)別,本函數(shù)庫中的函數(shù)名稱全部由Excel Home的簡稱EH開頭。因為本程序在VBA10下開發(fā),故部分函數(shù)將無法在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擴展函數(shù)庫”這個加載宏前面的框中打勾,最后按“確定”。這時將出現(xiàn)一個歡迎使用的對話框,到此就安裝完成了。

使用方法:
    本軟件的功能在于擴展Excel的函數(shù)庫,以使之更方便大家的工作。在按上述方法正確安裝以后,使用方法與使用Excel內(nèi)置函數(shù)完全相同。

詳細說明:
    本軟件現(xiàn)僅包含以下函數(shù):
一、EHElapsed(StartDate As Date, EndDate As Date, ReturnType As Integer)
這個函數(shù)的功能在于精確計算兩日期的差值,精確到天,特別適用于工齡等處的計算。具體使用(甚至于源代碼)已在Excel Home上進行無保留公布,在此即不復述。

二、EHDXRMB(Arab_number,Type)
    這個函數(shù)的功能在于將指定的阿拉伯數(shù)字轉(zhuǎn)換成相應(yīng)的中文大寫金額。
    參數(shù)Type可選,如果其值為1或省略,則函數(shù)直接截取掉Arab_number兩位以后的小數(shù)部分;如果其值為2,則函數(shù)對Arab_number兩位以后的小數(shù)進行四舍五入。依此類推。
    例如:EHDXRMB(1348.1)="壹仟叁佰肆拾捌元壹角整"
    EHDXRMB(20005.08)="貳萬零伍元零捌分"
    如果單元格A1=400,則EHDXRMB(A1)="肆佰元整"

三、EHPItax(Income, Option, Tax_deduction)
    這個函數(shù)的功能在于根據(jù)工資、薪金值計算應(yīng)納個人所得稅額及相應(yīng)稅率、速算扣除數(shù)。
    參數(shù)Income必填,其為要計算的個人工資、薪金值。
    參數(shù)Option可選,選擇計算目標。如果不填,則默認值為1。當選擇1時,函數(shù)將計算個人所得稅額;當選擇2時,函數(shù)將計算個人所得稅率;當選擇3時,函數(shù)將計算速處扣除數(shù)。
    參數(shù)Tax_deduction可選,其為計算應(yīng)納稅所得額的工資扣除數(shù),如果不填,則默認值為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)
    這個函數(shù)的功能與用法與EHPItax相同,只不過計算基礎(chǔ)是不含稅工資。也就是在單位或個人為納稅義務(wù)人負擔稅款時,計算應(yīng)納稅額及相關(guān)數(shù)據(jù)。

五、EHDXE(Arab_number,Type)
    這個函數(shù)的功能在于將指定的阿拉伯數(shù)字轉(zhuǎn)換成相應(yīng)的美元金額。被轉(zhuǎn)換數(shù)字的有效數(shù)字最高為12位。
    參數(shù)Arab_number為要轉(zhuǎn)換的阿拉伯數(shù)字,可以為數(shù)字,數(shù)學表達式及單元格引用。
參數(shù)Type可選,如果其值為1或省略,則函數(shù)直接截取掉Arab_number兩位以后的小數(shù)部分;如果其值為2,則函數(shù)對Arab_number兩位以后的小數(shù)進行四舍五入。依此類推。
    例如: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)
    這個函數(shù)的功能在于將指定的阿拉伯數(shù)字轉(zhuǎn)換成相應(yīng)的英文數(shù)字。被轉(zhuǎn)換數(shù)字的有效數(shù)字最高為12位。本函數(shù)與EHDXE()的區(qū)別在于對于小數(shù)部分的轉(zhuǎn)換方式不同,前者適用于金額結(jié)算時使用,而本函數(shù)則按標準讀法進行轉(zhuǎn)換。
    參數(shù)Arab_number為要轉(zhuǎn)換的阿拉伯數(shù)字,可以為數(shù)字,數(shù)學表達式及單元格引用。
參數(shù)Type可選,如果其值為1或省略,則函數(shù)直接截取掉Arab_number兩位以后的小數(shù)部分;如果其值為2,則函數(shù)對Arab_number兩位以后的小數(shù)進行四舍五入。依此類推。
例如: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)
    這個函數(shù)的功能在于對指定的數(shù)字進行開整數(shù)次方的計算。
    參數(shù)number為要開方的數(shù)字,即底數(shù),可以為數(shù)字,數(shù)學表達式及單元格引用。
    參數(shù)power為開方的冪數(shù),可選,缺省值為2。冪數(shù)必須為整數(shù),非整數(shù)參數(shù)將被自動舍去小數(shù)部分。
例如:ehevo(8,3)=2
      ehevo(4)=2

八、EHDcom(Source,Database)
    此函數(shù)用于搜索目標字符串與數(shù)據(jù)列表中相匹配的值。
    參數(shù)Source為目標字符串。
    參數(shù)Database為數(shù)據(jù)列表區(qū)域。接受來自任意工作簿任意工作表的任意一列數(shù)據(jù)。
    例如:A1、A2、A3值為“我愛北京天安門”“南京路上好八連”“桂林山水甲天下”;B1、B2、B3、B4值為“北京”“桂林”“南京”“杭州”,則
      EHDcom(A1,B1:B4) = “北京”
      EHDcom(A2,B1:B4) = “南京”
      EHDcom(A3,B1:B4) = “桂林”

九、EHInStrCount(UserStr, StrStart, StrQuantity)
    此函數(shù)用于統(tǒng)計出一個字符串內(nèi)某字符或字符串出現(xiàn)的次數(shù)。
    參數(shù)UserStr為目標字符串。
    參數(shù)StrStart為用于比較的字符或字符串在UserStr中出現(xiàn)的起始位置。參數(shù)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)
    此函數(shù)用于統(tǒng)計出一個字符串內(nèi)某字符或字符串出現(xiàn)的次數(shù)。
    參數(shù)UserStr為目標字符串。
    參數(shù)ComPareStr為用于比較的字符或字符串。
    例如:A1為“ABCDABC”,則
EHInStrCount(A1,"D")=1
EHInStrCount(A1,"AB")=2
EHInStrCount(A1,"ABCD")=1


十一、EHSuperSumR(FirstCell, LastCell, Odd_Even)
    此函數(shù)用于計算某列數(shù)據(jù)中位于奇數(shù)或偶數(shù)行的數(shù)據(jù)。行號為奇數(shù)則視該行為奇數(shù)行,反之為偶數(shù)行。
    參數(shù)FirstCell為計算列中的數(shù)據(jù)起始單元格。
    參數(shù)LastCell為計算列中的數(shù)據(jù)結(jié)束單元格。
    參數(shù)Odd_Even為定義計算的奇偶屬性。1表示計算奇數(shù)行,2表示計算偶數(shù)行。可不填,默認是1,即計算奇數(shù)行的數(shù)據(jù)。
    例如:A1:A10的值分別為1-10,則
    EHSuperSumR(A1,A10,1)=25
    EHSuperSumR(A1,A10,2)=30
    EHSuperSumR(A1,A10)=25

十二、EHSuperSumC(FirstCell, LastCell, Odd_Even)
    此函數(shù)用于計算某行數(shù)據(jù)中位于奇數(shù)或偶數(shù)列的數(shù)據(jù)。列標為奇數(shù)則視該列為奇數(shù)列,反之為偶數(shù)列。
    參數(shù)FirstCell為計算行中的數(shù)據(jù)起始單元格。
    參數(shù)LastCell為計算行中的數(shù)據(jù)結(jié)束單元格。
    參數(shù)Odd_Even為定義計算的奇偶屬性。1表示計算奇數(shù)列,2表示計算偶數(shù)列?刹惶,默認是1,即計算奇數(shù)列的數(shù)據(jù)。
    例如:A1:H1的值分別為1-8,則
    EHSuperSumC(A1,H1,1)=16
    EHSuperSumC(A1,H1,2)=20
    EHSuperSumC(A1,H1)=16


    本軟件將不定期升級,加入更多更實用的函數(shù),以方便大家的工作。如果您在實際工作中有這方面的需求,請聯(lián)系本站,我們將盡量滿足您的要求。 
   
    注冊說明:未注冊的版本將會在每次啟動Excel時顯示本軟件的版權(quán)窗體。如果您習慣通過文件關(guān)聯(lián)方式打開Excel文件,則您第一次打開文件的操作只能啟動Excel,無法同時打開文件。這是一個小小的麻煩,但并非本人的蓄意所為,應(yīng)該算是 VBA for Excel 的一個小BUG。
    如果您對這個軟件滿意,請向本人進行注冊,注冊費用為人民幣66元。您可以選擇由銀行轉(zhuǎn)帳或匯款進行付款。本人將在收到您的注冊費用后把您注冊的版本用Email發(fā)送給您!
    請在給本人的來信中寫明您要注冊的軟件名稱、版本形式、付款方式以及您的聯(lián)系信息。所有注冊收入本人都將用于Excel Home的發(fā)展與維護。

頂一下
(0)
0%
踩一下
(0)
0%
下載地址:
注意事項:

☉推薦使用第三方專業(yè)下載工具下載本站軟件,使用 WinRAR v3.10 以上版本解壓本站軟件。
☉如果這個軟件總是不能下載的請點擊報告錯誤,謝謝合作!!
☉下載本站資源,如果服務(wù)器暫不能下載請過一段時間重試!
☉如果遇到什么問題,請到本站論壇去咨尋,我們將在那里提供更多 、更好的資源!
☉本站提供的一些商業(yè)軟件是供學習研究之用,如用于商業(yè)用途,請購買正版。

發(fā)表評論
請自覺遵守互聯(lián)網(wǎng)相關(guān)的政策法規(guī),嚴禁發(fā)布色情、暴力、反動的言論。
評價: