人民币大写 精简公式

好东西，留着可以直接用了

再来一个长长的金额大写公式：


SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(LEFT(MFCNUM(ROUND($MF(金额)$,2)))="拾","壹","")&MFCNUM(INT($MF(金额)$))&"元"&MFCNUM(INT(EVEN(INT((ROUND($MF(金额)$,2)-INT(ROUND($MF(额)$,2)))*1000))/100))&"角"&MFCNUM(ROUND(INT(EVEN(INT((ROUND($MF(金额)$,2)-INT(ROUND($MF(金额)$,2)))*1000))-(INT(EVEN(INT((ROUND($MF(金额)$,2)-INT($MF(金额)$))*1000))/100)*100))/10,0))&"分","零角零分","整"),"零分","整"),"零角","零")

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($MF(金额)$))="拾","壹","")&SUBSTITUTE(SUBSTITUTE(MFCNUM(INT(TEXT($MF(金额)$,"0.00")))&"元"&
MFCNUM(INT(RIGHT(TEXT($MF(金额)$,"0.00"),2)/10))&"角"&MFCNUM(INT(RIGHT(TEXT($MF(金额)$,"0.00"))))&"分","零角零分","整"),"零分","整")

大家做得不错啊！！！好帖真多！

10亿元以上的数字转换不了

10亿元以上转换：IF(left(MFCNUM($MF(金额)$),1)="拾","壹"&if(mfisnull(find(".",mfcnum($MF(金额)$))),MFCNUM($MF(金额)$)&"元正",if(and(find(".",mfcnum($MF(金额)$))<>0,len(mid(mfcnum($MF(金额)$),find(".",mfcnum($MF(金额)$))+1,2))=2,left(right(mfcnum($MF(金额)$),2),1)="零"),mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&right(mfcnum($MF(金额)$),2)&"分",if(and(find(".",$MF(金额)$)<>0,len(mid(mfcnum($MF(金额)$),find(".",mfcnum($MF(金额)$))+1,2))=2,left(right(mfcnum($MF(金额)$),2),1)<>"零"),mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&left(right(mfcnum($MF(金额)$),2),1)&"角"&right(mfcnum($MF(金额)$),1)&"分",mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&right(mfcnum($MF(金额)$),1)&"角正"))),if(mfisnull(find(".",mfcnum($MF(金额)$))),MFCNUM($MF(金额)$)&"元正",if(and(find(".",mfcnum($MF(金额)$))<>0,len(mid(mfcnum($MF(金额)$),find(".",mfcnum($MF(金额)$))+1,2))=2,left(right(mfcnum($MF(金额)$),2),1)="零"),mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&right(mfcnum($MF(金额)$),2)&"分",if(and(find(".",$MF(金额)$)<>0,len(mid(mfcnum($MF(金额)$),find(".",mfcnum($MF(金额)$))+1,2))=2,left(right(mfcnum($MF(金额)$),2),1)<>"零"),mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&left(right(mfcnum($MF(金额)$),2),1)&"角"&right(mfcnum($MF(金额)$),1)&"分",mid(mfcnum($MF(金额)$),1,find(".",mfcnum($MF(金额)$))-1)&"元"&right(mfcnum($MF(金额)$),1)&"角正"))))

人民币大写 精简公式 666

感谢楼主分享的大写公式，我在使用时发现输入10000.30出现错误为壹万元叁角-壹分，不知是怎么回事。我使用的版本是7.0

SUBSTITUTE(SUBSTITUTE(IF(G12>-0.5%,,"负")&TEXT(INT(FIXED(ABS(G12))),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(G12),2),"[dbnum2]0角0分;;"&IF(ABS(G12)>1%,"整",)),"零角",IF(ABS(G12)<1,,"零")),"零分","整")