数字自动转换成中文大写

huali_yan · 发表于 2006-2-19 13:36

我想写一个函数自动将数字转换成中文大写，如将12345678.09自动转换成壹仟贰佰叁拾肆万伍仟陆佰柒拾捌元零角玖分.以前好象在哪里见过,但忘记了!!请各们大虾百忙中帮忙回复为盼!!谢谢!!

601476 · 发表于 2006-2-20 04:20

http://club.excelhome.net/dispbbs.asp?BoardID=3&ID=89722&replyID=&skin=0

yhlhb2001 · 发表于 2006-2-20 23:08

<P>谢谢各位大虾，我综合各位的批评指点，给出如下函数，请各位试用，如在使用过程中问题，欢迎交流。</P>
<P>=IF(A2<0,"负","")&IF(A2=0,"零分",IF(ABS(A2)<0.995,"",TEXT(INT(ROUND(ABS(A2),2)),"[DBNum2]")&"元")&IF(RIGHT(TEXT(A2,".00"),2)*1=0,IF(ABS(A2)<0.005,"","整"),""&TEXT(IF(LEFT(RIGHT(TEXT(A2,".00"),2))="0","",LEFT(RIGHT(TEXT(A2,".00"),2))),"[dbnum2]")&IF(LEFT(RIGHT(TEXT(A2,".00"),2))*1=0,"","角")&IF(RIGHT(TEXT(A2,".00"))*1=0,"整",TEXT(RIGHT(TEXT(A2,".00")),"[dbnum2]")&"分")))。</P>

		自动登录	找回密码
密码			免费注册

[求助] 数字自动转换成中文大写