標(biāo)準(zhǔn)版(100%符合財(cái)務(wù)規(guī)范)
=SUBSTITUTE("人民幣:"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[<0.5][dbnum2]元整;[<9][dbnum2]元00分;[dbnum2]元0角0分"),"零分",""),"零元零",""),"零元",""),"人民幣:整","人民幣:零元整")
簡(jiǎn)短版(99%符合財(cái)務(wù)規(guī)范)
="人民幣:"&TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[<0.5][dbnum2]元整;[<9][dbnum2]元00分;[dbnum2]元0角0分")
使用方法
將上公式粘貼至需要填寫(xiě)大寫(xiě)金額的單元格,并將公式中的"A1"部分替換成小寫(xiě)金額所在的單元格地址。填充操作可以自動(dòng)更改。
實(shí)際效果如下圖:
其他類(lèi)似大寫(xiě)公式
網(wǎng)上有許多類(lèi)似的大寫(xiě)公式,但是絕大部分都沒(méi)有完全滿(mǎn)足財(cái)務(wù)規(guī)范要求,普通公式太長(zhǎng)不簡(jiǎn)潔,使用時(shí)需要替換3-4處以上的地方。
=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,"負(fù)")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
使用時(shí)需要替換5處,對(duì)沒(méi)有分位的數(shù)字會(huì)加"整"字,不規(guī)范,如:23,550.10得出:貳萬(wàn)叁仟伍佰伍拾元壹角整。
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A2)),"[dbnum2]G/通用格式元;負(fù)[dbnum2]G/通用格式元;"&IF(A2>-0.5%,,"負(fù)"))&TEXT(RIGHT(FIXED(A2),2),"[dbnum2]0角0分;;"&IF(ABS(A2)>1%,"整",)),"零角",IF(ABS(A2)<1,,"零")),"零分","整")
=IF(ABS(A1)<0.5%,"",SUBSTITUTE(SUBSTITUTE(IF(A1<0,"負(fù)",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"))
=TEXT(INT(A3),"[dbnum2]")&"元"&IF(INT(A3*10)-INT(A3)*10=0,"",TEXT(INT(A3*10)-INT(A3)*10,"[dbnum2]")&"角")&IF(INT(A3*100)-INT(A3*10)*10=0,"整",TEXT(INT(A3*100)-INT(A3*10)*10,"[dbnum2]")&"分")