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

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

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

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

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

  公式一:

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

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

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

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

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

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

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