资源描述：
《在EXCL中怎样把小写数字转换成中文大写》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、在EXCL中怎样把小写数字转换成中文大写？=IF(A1<0,"负","")&IF(ABS(A1)>1,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]")&"分
2、","整")="人民币"&IF(ABS(A1)<0.005,"",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,IF(ABS(A1)<0.1,,"零")))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100
3、-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))Excel数字转换为中文大写2009-12-2309:47 在Excel应用过程中，常常有人尤其是会计需要实现货币由小写转大写，经本人归纳应用最多的有二种情况（可能不全哟，见怪），一是在单元格A中输入货币小字，在单元格B中实现小写到大写的自动转换，二是在单元格A中输入货币小写就在单元格A中实现小写到大写自动转换。 下面就这二种情况的解决方法分别进行详解。 一、在单元格A中输入货币小写，在单元格B中实现小写到大写的自动转换 实例及解决方法： 1、例：下表需要自动将C5单元
4、格中的货币小写自动转换成C6单元格中的大写。6 2、可在C6单元格输入如下内容：=IF(C5<0,"(金额为负无效)",IF((C5-INT(C5))=0,"(人民币)"&TEXT(C5,"[DBNUM2]")&"元整",IF(INT(C5*10)-C5*10=0,"(人民币)"&TEXT(INT(C5),"[DBNUM2]")&"元"&TEXT((INT(C5*10)-INT(C5)*10),"[DBNUM2]")&"角整",TEXT(INT(C5),"[DBNUM2]")&"元"&IF(INT(C5*10)-INT(C5)*10=0,"零",TEXT(IN
5、T(C5*10)-INT(C5)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(C5,1),"[DBNUM2]")&"分"))) 回车后，即可实现，效果如下图 根据个人情况不同，可将公式中的C5设置成其它单元格（货币小写所在的单元格）即可实现货币的小写转大写。 二、在单元格A中输入货币小写就在单元格A中实现小写到大写自动转换 (转） FunctionDXRMB(jeAsCurrency)AsString '湖南省巴陵石化热电厂陈放雄编制yhcfx@sohu.com '很容易将其改为其它编程语言的人民币转换函数 '********
6、****************************************** DimsDW,sDX,sS,sCS,sWDX,sWDWAsString 'sDW表示金额大写的单位 'sDX表示数字的大写 'sS表示转换的中间字符串 'sCS表示金额转换为货币化的数字字符串 6'sWDX表示某一个位的位数字大写 'sWDW表示某一个位的单位 DimcJEAsCurrency 'cJE表示金额扩大100位并取整后的金额 DimiL,iW,iLENAsInteger 'iL表示金额串的长度循环变量(包含角分位但不含小数点) 'iW表示某一个位的数字数值 'iLEN表
7、示金额串的总长度(包含角分位但不含小数点) DimbCUR0,bPRE0AsBoolean 'bCUR0表示当前位数字是否为零 'bPRE0表示前一位数字是否为零 '*************************************************** IfAbs(je)<0.01Then DXRMB="零元整" ExitFunction EndIf sWDX
