本軟件為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上進行無保留公布,在此即不復(fù)述。
二、EHDXRMB(Arab_number,Type) 這個函數(shù)的功能在于將指定的阿拉伯?dāng)?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。當(dāng)選擇1時,函數(shù)將計算個人所得稅額;當(dāng)選擇2時,函數(shù)將計算個人所得稅率;當(dāng)選擇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ù)人負擔(dān)稅款時,計算應(yīng)納稅額及相關(guān)數(shù)據(jù)。
五、EHDXE(Arab_number,Type) 這個函數(shù)的功能在于將指定的阿拉伯?dāng)?shù)字轉(zhuǎn)換成相應(yīng)的美元金額。被轉(zhuǎn)換數(shù)字的有效數(shù)字最高為12位。 參數(shù)Arab_number為要轉(zhuǎn)換的阿拉伯?dāng)?shù)字,可以為數(shù)字,數(shù)學(xué)表達式及單元格引用。 參數(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ù)的功能在于將指定的阿拉伯?dāng)?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)換的阿拉伯?dāng)?shù)字,可以為數(shù)字,數(shù)學(xué)表達式及單元格引用。 參數(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ù)學(xué)表達式及單元格引用。 參數(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ù)行?刹惶睿J是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)窗體。如果您習(xí)慣通過文件關(guān)聯(lián)方式打開Excel文件,則您第一次打開文件的操作只能啟動Excel,無法同時打開文件。這是一個小小的麻煩,但并非本人的蓄意所為,應(yīng)該算是 VBA for Excel 的一個小BUG。 如果您對這個軟件滿意,請向本人進行注冊,注冊費用為人民幣66元。您可以選擇由銀行轉(zhuǎn)帳或匯款進行付款。本人將在收到您的注冊費用后把您注冊的版本用Email發(fā)送給您! 請在給本人的來信中寫明您要注冊的軟件名稱、版本形式、付款方式以及您的聯(lián)系信息。所有注冊收入本人都將用于Excel Home的發(fā)展與維護。
下載地址:http://m.mzhfr.cn/off/uploads/soft/200504/20050420112021662.zip |