巧用Excel 輕松轉(zhuǎn)換人民幣大小寫
發(fā)布日期：[2016/11/9 10:34:00] 共閱次數(shù)：
要將人民幣小寫金額轉(zhuǎn)換成大寫格式，用Excel提供的格式，將自定義格式類型中的“[dbnum2]G/通用格式”改為“[dbnum2] G/通用格式“元””來實(shí)現(xiàn)。
要將人民幣小寫金額轉(zhuǎn)換成大寫格式，用Excel提供的格式，將自定義格式類型中的“[dbnum2]G/通用格式”改為“[dbnum2] G/通用格式“元””來實(shí)現(xiàn)。但在轉(zhuǎn)換小數(shù)時(shí)卻出現(xiàn)了問題，比如￥6，050.09只能轉(zhuǎn)換為“陸仟零伍拾.零玖圓”。那么用Excel能不能解決這一先天不足呢?其方法有以下兩種(以下均對B1轉(zhuǎn)換，假設(shè)B1是通過函數(shù)ROUND( )四舍五入取得二位小數(shù)的小寫金額數(shù)，其值為￥6，050.09)。
一、在三個(gè)連續(xù)的同行單元格中轉(zhuǎn)換
1. B2中輸入公式 “=IF(B1<0，"金額為負(fù)無效"，INT(B1))”，計(jì)算結(jié)果為￥6，050.00，然后點(diǎn)擊“格式→單元格→數(shù)字→特殊→中文大寫數(shù)字→確定”，B2顯示“陸仟零伍拾”，再點(diǎn)擊“格式→單元格→數(shù)字→自定義”，將“類型”編輯框中的“[dbnum2]G/通用格式”修改為：[dbnum2](“人民幣”)G/通用格式“元”，此時(shí)B2顯示：“(人民幣)陸仟零伍拾元”。
2. C2中輸入“=IF(B1<0，""，INT(B1??10)-INT(B1)??10)”，同樣C2改為：[DBNum2]G/通用格式“角”，C2顯示：“零角”。
3. D2中輸入“=IF(B1<0，""，INT(B1??100)-INT(B1??10)??10)”，同樣D2改為：[DBNum2]G/通用格式“分”， D2顯示：“玖分”。
這樣在連續(xù)的三個(gè)同行單元格中實(shí)現(xiàn)了大寫金額格式的轉(zhuǎn)換。為了使轉(zhuǎn)換符合財(cái)務(wù)格式，B2應(yīng)右對齊，C2列寬無間隔，且不設(shè)左右邊框線，D2要左對齊。
二、用Excel提供的函數(shù)轉(zhuǎn)換
個(gè)位為0，則不顯示;不為0，顯示“XXX元”;不為0、且角位和分位均為0，顯示“XXX元整”;元角分位均為0，則顯示“零元整”。
小數(shù)點(diǎn)后面第一位為0、且元位或分位有一為0，則不顯示;為0、且元位和分位均不為0，則顯示“零”;不為0，顯示“X角”。
小數(shù)點(diǎn)后面第二位為0，則顯示“整”;不為0，顯示“X分”。
根據(jù)以上思路在B2中輸入公式：
“IF(B1<0，"金額為負(fù)無效"，IF(OR(B1=0，B1="")，"(人民幣)零元整"));
IF(B1<1，"(人民幣)"，TEXT(INT(B1)，"[dbnum2](人民幣)G/通用格式")&&"元")&&IF(INT(B1??10)-INT(B1)??10=0);
IF(INT(B1)??(INT(B1??100)-INT(B1??10)??10)=0，""，"零")，TEXT(INT(B1??10)-INT(B1)??10，"[dbnum2]")&&"角")&&IF((INT(B1??100)-INT(B1??10)??10)=0，"整"，TEXT((INT(B1??100)-INT(B1*10)*10)，"[dbnum2]")&&"分")))”。
確認(rèn)后B2顯示：“(人民幣)陸仟零伍拾元零玖分”。以后使用時(shí)將公式復(fù)制到有關(guān)單元格中，若轉(zhuǎn)換的對象B1發(fā)生了變化，可點(diǎn)擊“編輯→替換”將B1替換掉。
|