数字金额小写转大写函数

Office系统语言会影响以下公式的使用，

中文语言格式下：

=IF(A1<=0,,TEXT(INT(A1),\"[dbnum2]人民币G/通用格式\")&\"元\"&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0,\"\\"),TEXT(INT(A1*10)-INT(A1)*10,\"[dbnum2]\")&\"

角

零

\")&IF((INT(A1*100)-

INT(A1*10)*10)=0,\"整\分\"))

打开EXCEL表格，A1输入小写金额，在C1列输入：

负

=SUBSTITUTE(SUBSTITUTE(IF(A1>-0.5%,,\"\")&TEXT(INT(FIXED(ABS(A1))),\"[dbnum2]G/

通

用

格

式

元;;\")&TEXT(RIGHT(FIXED(A1),2),\"[dbnum2]0角0分;;\"&IF(ABS(A1)>1%,\"整\零角\零\")),\"零分\整\")

=IF(H4<=0,,TEXT(INT(H4),\"[dbnum2]人民币G/通用格式\")&\"元

\"&IF(INT(H4*10)-INT(H4)*10=0,IF(INT(H4)*(INT(H4*100)-INT(H4*10)*10)=0,\"\零\"),TEXT(INT(H4*10)-INT(H4)*10,\"[dbnum2]\")&\"

角

\")&IF((INT(H4*100)-

INT(H4*10)*10)=0,\"整\分\"))

=IF(MOD(A2,1)=0,TEXT(INT(A2),\"[DBNUM2]\")&\"元\"&\"整

\元\"&TEXT(MID(A2,LEN(INT(A2))+2,1),\"[DBNUM2]D角\")&TEXT(MID(A2,LEN(INT(A2))+3,1),\"[DBNUM2]D分\"))

英语格式

=SUBSTITUTE(SUBSTITUTE(TEXT(INT(G3),\"[DBNum2][$-804]G/通用格式元\"&IF(INT(G3)=G3,\"整\804]G/通用格式角\")&TEXT(MID(G3,FIND(\".\通用格式分\"),\"零角\零\"),\"零分\