分享一个人民币大写转换公式

分享一个人民币大写转换公式给大家：

IF(LEFT(MFCNUM(ROUND($MF(金额)$,2),2,0))="拾","壹","")&MFCNUM(INT(ROUND($MF(金额)$,2)),2,0)&"元"&CHOOSE(LEN(MFCNUM(ROUND($MF(金额)$,2),2,0))-LEN(MFCNUM(INT(ROUND($MF(金额)$,2)),2,0))+1,"整","",RIGHT(MFCNUM(ROUND($MF(金额)$,2),2,0))&"角整",LEFT(RIGHT(MFCNUM(ROUND($MF(金额)$,2),2,0),2))&"角"&RIGHT(MFCNUM(ROUND($MF(金额)$,2),2,0))&"分")

谢谢，正好用上，非常感谢楼主无私奉献

IF(LEFT(MFCNUM(TEXT(INT($MF(金额)$),"#0.00"),2,0))="拾","壹","")&MFCNUM(TEXT(INT($MF(金额)$),"#0.00"),2,0)&"元"&
IF(LEN(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0))-LEN(MFCNUM(TEXT(INT($MF(金额)$),"#0.00"),2,0))=3,
MID(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0),LEN(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0))-1,1)&"角"&RIGHT(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0))&"分",
IF(LEN(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0))-LEN(MFCNUM(TEXT(INT($MF(金额)$),"#0.00"),2,0))=2,RIGHT(MFCNUM(TEXT($MF(金额)$,"#0.00"),2,0))&"角零分",""))

SUBSTITUTE(IF(LEFT(MFCNUM(TEXT($MF(金额)$,"#"),0,0))="拾","壹","")&MFCNUM(TEXT($MF(金额)$,"#"),0,0)&"元"&IF(TEXT($MF(金额)$,"#.##")-INT($MF(金额)$)>0,MID(MFCNUM(TEXT($MF(金额)$,"#.##"),2,0),FIND(".",MFCNUM(TEXT($MF(金额)$,"#.##"),2,0))+1,1)&"角"&MID(MFCNUM(TEXT($MF(金额)$,"#.##"),2,0),FIND(".",MFCNUM(TEXT($MF(金额)$,"#.##"),2,0))+2,1)&"分","整"),"角分","角整")