资源描述：
《在excel中根据小写的金额自动生成大写金额》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、在Excel中根据小写的金额自动生成大写金额2008年05月24日星期六10:44在Excel中，我想根据小写的金额自动生成大写金额例一：问：如附件所示，我希望根据已有的小写金额让Excel自动生成规范的大写金额。谢谢！附件：例表.人民币大小写之间的转换.xls答案一：=IF(ISNUMBER(A3),IF(INT(A3),TEXT(INT(A3),"[dbnum2]")&"元",)&IF(INT(A3*10)-INT(A3)*10,TEXT(INT(A3*10)-INT(A3)*10,"[dbnum2]")&"角",IF(INT
2、(A3)=A3,,IF(A3<0.1,,"零")))&IF(ROUND((A3)*100-INT(A3*10)*10,),TEXT(ROUND(A3*100-INT(A3*10)*10,),"[dbnum2]")&"分","整"),"")附件：例表.人民币大小写之间的转换2.xls答案二：给你一个,放在工具里：Functionconvert_digital_chinese(ByValMyinput)DimTemp,TempA,MyinputA,MyinputB,MyinputCDimPlaceAsStringDimJAsInteg
3、erPlace="分角元拾佰仟万拾佰仟亿拾佰仟万"shuzi1="壹贰叁肆伍陆柒捌玖"shuzi2="整零元零零零万零零零亿零零零万"qianzhui=""IfMyinput<0Thenqianzhui="负"Myinput=Int(Abs(Myinput)*100+0.5)IfMyinput>999999999999999#Thenmychange="数字太大了吧？？？"ExitFunctionEndIfIfMyinput=0Thenmychange="零元零分"ExitFunctionEndIfMyinputA=Trim(St
4、r(Myinput))shuzilong=Len(MyinputA)ForJ=1ToshuzilongMyinputB=Mid(MyinputA,J,1)&MyinputBNextForJ=1ToshuzilongTemp=Val(Mid(MyinputB,J,1))IfTemp=0ThenMyinputC=Mid(shuzi2,J,1)&MyinputCElseMyinputC=Mid(shuzi1,Temp,1)&Mid(Place,J,1)&MyinputCEndIfNextshuzilong=Len(MyinputC)Fo
5、rJ=1Toshuzilong-1IfMid(MyinputC,J,1)="零"ThenSelectCaseMid(MyinputC,J+1,1)Case"零","元","万","亿","整":MyinputC=Left(MyinputC,J-1)&Mid(MyinputC,J+1,30)J=J-1EndSelectEndIfNextshuzilong=Len(MyinputC)ForJ=1Toshuzilong-1IfMid(MyinputC,J,1)="亿"AndMid(MyinputC,J+1,1)="万"ThenMyinp
6、utC=Left(MyinputC,J)&Mid(MyinputC,J+2,30)ExitForEndIfNextmychange=qianzhui&Trim(MyinputC)EndFunction来源：http://iask.sina.com.cn/b/7702446.html?from=related例二：如何设公式将￥654654.36自动生成"人民币陆拾伍万肆仟陆佰伍拾肆元叁角陆分"答案一：=TEXT(INT(A1),"[DBNum2]")&"元"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEX
7、T(RIGHT(TEXT(A1,"0.00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分",""),"零角","零")答案二：="人民币"&TEXT(INT(A1),"[DBNum2]")&"元"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(TEXT(A1,"0.00"),2),"[DBNum2]0角0分"),"零角零分","整"),"零分","整"),"零角","零")1、楼主需要在前面加上人民币2、如果没有分的话，角后面应该也加个“整”字这个我用过试了，不
8、错，好用，呵呵来源：http://www.excelpx.com/dispbbs.asp?BoardID=38&ID=38088三、复制下列公式，然后“选择性粘贴”（以“文本”方式）到除“A1”单元格外的任意一个单元格中，比如“B1”单元格，然后在
