在A1单元格中有数字“12.34”,怎样实现在A2单元格中自动显示“壹拾贰元叁角肆分”?
A2公式如下:=IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A1),"[DBNum2]G/通用格式")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]G/通用格式")&"分"))
提问者对答案的评价:
呵呵
=SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元","")
关键的转换,在"单元格格式" 里设置A2 单元格公式: =A1在A2 的单元格设置如图中所示screen.width*0.35) this.width=screen.width*0.40\">
这里有N种方法附件:金额大写.rar
答案在附件:附件:excel使用问题.xls |