[挑战]功能最全、最短（7行）的人民币大写函数

office2008

1000338600.525    壹拾亿零叁拾叁万捌仟陆佰元伍角贰分    标准应该是  壹拾亿零叁拾叁万捌仟陆佰元伍角叁分

office2008

yxxxx  你好，你的公式有点错误    1000338600.525     答案是               壹拾亿零叁拾叁万捌仟陆佰元伍角贰分  

   标准应该是  壹拾亿零叁拾叁万捌仟陆佰元伍角叁分

4020YH

非常感谢LDY888，你真的太棒了，谢谢！！！！！

wpcpa

以前用过[DBNUM2]，没任何的反应，也就罢了。

f19740044

各位都是高手啊                    

学习中

xs591222

我正需要……　谢谢

xiaoxiaoyu

为什么我在2003、2007下都没法用呢

jflin1000

学习了。。。感谢楼主的教材。。。。。。

lishengjun

也来凑凑热闹吧

EXCEL中数字小写换大写方法一：
在单元格A2中输入小写数字123.12
B2处输入以下公式
=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")

EXCEL中数字小写换大写方法二：

在单元格A2中输入小写数字123.12
B2处输入以下公式

=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"))

EXCEL中数字小写换大写方法三：

=IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分")

EXCEL中数字小写换大写方法四：

=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分"))

ycykx

不错！有空用用