Excel金額小寫(xiě)轉(zhuǎn)大寫(xiě)公式

2012-06-22 00:00:00 來(lái)源:互聯(lián)網(wǎng)作者:sou6 人氣: 次閱讀 290 條評(píng)論

近來(lái)轉(zhuǎn)了轉(zhuǎn)幾個(gè)Excel相關(guān)論壇,發(fā)現(xiàn)有部分網(wǎng)友在尋求數(shù)字金額轉(zhuǎn)換為人民幣大寫(xiě)的方法。出于好奇,我在網(wǎng)上搜索了一番,什么VBA、加載宏,公式函數(shù)各式方法爭(zhēng)相亮相,應(yīng)有盡有。但我的習(xí)慣是,只要能用公式解決的問(wèn)題,堅(jiān)決不使...

  近來(lái)轉(zhuǎn)了轉(zhuǎn)幾個(gè)excel相關(guān)論壇,發(fā)現(xiàn)有部分網(wǎng)友在尋求數(shù)字金額轉(zhuǎn)換為人民幣大寫(xiě)的方法。出于好奇,我在網(wǎng)上搜索了一番,什么VBA、加載宏,公式函數(shù)各式方法爭(zhēng)相亮相,應(yīng)有盡有。但我的習(xí)慣是,只要能用公式解決的問(wèn)題,堅(jiān)決不使用VBA。所以我就特別地關(guān)注使用公式來(lái)生成的方法,結(jié)果是用公式的方法可謂是更加地燦爛繽紛,使人眼花繚亂。

  通過(guò)分析我收集到的二十幾個(gè)公式,發(fā)現(xiàn)比較牛,適合我口味的公式有三個(gè),在此我將其列出。

  公式一:

  SUBSTITUTE(SUBSTITUTE(IF(A1《0, “負(fù)”,“”)&TEXT(TRUNC(ABS(ROUND(A1,2))),“[DBNum2]”)& “元”&IF(ISERR(FIND(“。”,ROUND(A1,2))),“”,TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),“[DBNum2]”))&IF(ISERR(FIND(“.0”,TEXT(A1,“0.00”))), “角”,“”)&IF(LEFT(RIGHT(ROUND(A1,2),3))= “。”,TEXT(RIGHT(ROUND(A1,2)),“[DBNum2]”)&“分”,IF(ROUND(A1,2)=0,“”, “整”)),“零元零”,“”),“零元”,“”)

  公式二:

  CONCATENATE(IF(A1《0, “負(fù)”,“”),TEXT(IF(TRUNC(A1)=0,“”,TRUNC(ABS(A1))),“[DBNum2]”),IF(INT(TRUNC(A1))=0,“”, “元”),TEXT(IF(OR(ABS(A1) 《0.1,TRUNC(A1)=A1),“”,RIGHT(TRUNC(A1*10),1)),“[DBNum2]”),IF(RIGHT(TRUNC(A1*10),1)=“0”,“”, “角”),TEXT(IF(RIGHT(TRUNC(A1*100),1)=“0”,“”,RIGHT(TRUNC(A1*100),1)),“[DBNum2]”),IF(RIGHT(TRUNC(A1*100),1)=“0”,“”, “分”))

  公式三:

  IF(ROUND(A1,2)=0,“”,IF(ROUND(ABS(A1),2)》=1,TEXT(INT(ROUND(ABS(A1),2)),“[DBNum2]”)& amp;“元”,“”)&IF(RIGHT(TEXT(A1,“.00”),2)*1=0, “整”,IF(RIGHT(TEXT(A1,“.00”),4)*1》=1,IF(RIGHT(TEXT(A1,“.00”),2)*1》9,“”, “零”),IF(ROUND(ABS(A1),2)》=1,“零”,“”))&IF(RIGHT(TEXT(A1,“.00”),2)*1》 9,TEXT(LEFT(RIGHT(TEXT(A1,“.00”),2)),“[DBNum2]”)& “角”,“”)&IF(RIGHT(TEXT(A1,“.00”))*1》 0,TEXT(RIGHT(TEXT(A1,“.00”)),“[DBNum2]”)&“分”,“整”)))

  我用不同的數(shù)值對(duì)這三個(gè)公式進(jìn)行了一番測(cè)試,都達(dá)到了我的要求,至少到目前為止還沒(méi)有發(fā)現(xiàn)上述公式存在著什么錯(cuò)誤。上述公式對(duì)負(fù)數(shù)的處理采取了不同的方法。公式一和公式二對(duì)負(fù)數(shù)是在其前部加上一個(gè)“負(fù)”字,而公式三則是按正數(shù)進(jìn)行處理。我比較推崇公式三的方式,不是還有條件格式可以設(shè)置嗎?若是負(fù)數(shù)就用條件格式來(lái)變?yōu)榧t色。

  我不準(zhǔn)備在此對(duì)上述公式進(jìn)行分析解說(shuō)。撰寫(xiě)本文的目的是我也想自己來(lái)“組裝”一個(gè)所謂的通用公式。我只所以說(shuō)是“組裝”而不是叫什么“開(kāi)發(fā)”或者是“拼湊”,是因?yàn)镋XCEL的函數(shù)現(xiàn)成地?cái)[在了那里,使用時(shí)就是為了達(dá)到某種目的,按照其固有的規(guī)則,將其進(jìn)行有機(jī)的組合,可謂“組裝”。但是在這個(gè)過(guò)程中,也是要開(kāi)動(dòng)腦筋的,并非是隨隨便便“拼湊”就能成功的。本文的目的就是想將我在“組裝”公式時(shí)的思路展現(xiàn)出來(lái)。

  若用程序設(shè)計(jì)語(yǔ)言(比如用C語(yǔ)言)來(lái)寫(xiě)一個(gè)人民幣數(shù)字金額轉(zhuǎn)大寫(xiě)金額會(huì)怎樣考慮呢?我想每一位數(shù)字都要考慮到。但在EXCEL中,單元格格式中有一個(gè)“特殊”格式,里面就有將小寫(xiě)數(shù)字轉(zhuǎn)換為大寫(xiě)數(shù)字的格式。但要注意的是,這里轉(zhuǎn)換的是數(shù)字而不是金額。所以轉(zhuǎn)換出來(lái)后并不存在“元”、“角”、 “分”、“整”等在大寫(xiě)金額中出現(xiàn)的字。但是,“元”只出現(xiàn)在整數(shù)部分的后面,而小數(shù)部分只有角分兩位。這樣只要利用EXCEL的“特殊”格式將數(shù)據(jù)分為整數(shù)部分、角位和分位三個(gè)部分來(lái)處理就行了。處理的順序是先整數(shù),再角位、再分位。

  由于要分三個(gè)部分分別處理,然后根據(jù)情況分別與“元”,“角”,“分”及“整”相連接。連接的方式可以使用CONCATENATE()函數(shù),如公式二,也可以使用連接符&。而用&來(lái)連接,公式結(jié)構(gòu)似乎會(huì)相對(duì)簡(jiǎn)單清晰一些,所以我選擇了用&來(lái)連接。

  雖然對(duì)問(wèn)題進(jìn)行了分解,但需要考慮的細(xì)節(jié)相當(dāng)多。

  若單元格為0或者空,輸出空,避免出現(xiàn)“零”、“零元”等字樣。對(duì)非數(shù)字字符不進(jìn)行處理,使用EXCEL自身的錯(cuò)誤提示。

  對(duì)負(fù)數(shù)按正數(shù)處理,再用條件格式將其轉(zhuǎn)換為紅色,不擬采用“負(fù)XXXXXX”的形式。

您可能感興趣的文章

相關(guān)文章