June 5, 2010

Excel货币大小写转换

| |
不指定 | Category : 电脑网络 | Posted by newchao at 11:26


=IF(A1<0,"无效数值",IF(A1=0,"",IF(A1<1,"",TEXT(INT(A1),"[dbnum2]")&"元")&IF(INT(A1*10)-INT(A1)*10=0,IF(INT(A1)*(INT(A1*100)-INT(A1*10)*10)=0,"","零"),IF(AND((INT(A1)-INT(A1/10)*10)=0,INT(A1)>0),"零"&TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角",TEXT(INT(A1*10)-INT(A1)*10,"[dbnum2]")&"角"))&IF((INT(A1*100)-INT(A1*10)*10)=0,"整",TEXT(INT(A1*100)-INT(A1*10)*10,"[dbnum2]")&"分")))

="合计人民币(大写)"&SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"
收藏到:
From: 本站原创
Tags:
169 View(s) | 0 Comment(s)
发表评论
昵称
密码 [ 游客无需密码 ]
电邮
网址
打开HTML 打开UBB 打开表情 隐藏 记住我