在excel中将数字转换为人民币大写的三种方式

在excel中将数字转换为人民币大写的三种方式

ID:9001138

大小:35.00 KB

页数:3页

时间:2018-04-14

在excel中将数字转换为人民币大写的三种方式_第1页
在excel中将数字转换为人民币大写的三种方式_第2页
在excel中将数字转换为人民币大写的三种方式_第3页
资源描述:

《在excel中将数字转换为人民币大写的三种方式》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、在EXCEL中将数字转换为人民币大写的三种方式鉴于EXCEL本身提供将数字转换为大写表示的功能根本不能正常应用在实际投标或财务应用之中,所以要自己建设,暂时找到了三种实现途径,经过测试均功能正常,还有一种是在书上找到的,懒得KEYIN进来了,反正也差不多了。方法1,通过在EXCEL表格框(例如在“B1”单元)中直接输入以下公式:=IF(A1<0,"金额为负无效",(IF(OR(A1=0,A1=""),"(人民币)零元",IF(A1<1,"(人民币)",TEXT(INT(A1),"[dbnum2](人民币)G/通

2、用格式")&"元"))))&IF((INT(A1*10)-INT(A1)*10)=0,IF(INT(A1*100)-INT(A1*10)*10=0,"","零"),(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]")&"分")然后在“A1”中输入数字,就可看到效果。方法2,通过VBA(宏)输入转换公式:点击菜单“

3、工具”->“宏”->“VisualBasic编辑器”,在编辑器窗口中,点击菜单“插入”->“模块”,在出现的窗口中输入以下内容:Functiondaxie(ByValNum)      '人民币中文大写函数   Application.VolatileTrue   Place="分角元拾佰仟万拾佰仟亿拾佰仟万"   Dn="壹贰叁肆伍陆柒捌玖"   D1="整零元零零零万零零零亿零零零万"   IfNum<0ThenFuHao="(负)"   Num=Format(Abs(Num),"###0.00")*100

4、   IfNum>999999999999999#Then:daxie="数字超出转换范围!!":ExitFunction   IfNum=0Then:daxie="零元零分":ExitFunction   NumA=Trim(Str(Num))   NumLen=Len(NumA)   ForJ=NumLenTo1Step-1    '数字转换过程     temp=Val(Mid(NumA,NumLen-J+1,1))     Iftemp<>0Then            '非零数字转换        

5、NumC=NumC&Mid(Dn,temp,1)&Mid(Place,J,1)     Else                         '数字零的转换        IfRight(NumC,1)<>"零"Then          NumC=NumC&Mid(D1,J,1)        Else          SelectCaseJ           '特殊数位转换               Case1                 NumC=Left(NumC,Len(NumC)-1)

6、&Mid(D1,J,1)               Case3,11                 NumC=Left(NumC,Len(NumC)-1)&Mid(D1,J,1)&"零"               Case7                 IfMid(NumC,Len(NumC)-1,1)<>"亿"Then                    NumC=Left(NumC,Len(NumC)-1)&Mid(D1,J,1)&"零"                 EndIf       

7、        CaseElse          EndSelect        EndIf     EndIf   Next   daxie="(人民币)"&FuHao&Trim(NumC)EndFunction然后切换回excel,在“A2”单元中输入数字,在“B2”单元中输入:“=DaXie(A2)”,就可看到效果。方法3,同样是通过VBA公式,方法同上,公式如下:Functiondaxie1(moneyAsString)AsString'DimxAsString,yAsStringConstzimu

8、=".sbqwsbqysbqwsbq"'定义位置代码Constletter="0123456789sbqwy.zjf"'定义汉字缩写Constupcase="零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分"'定义大写汉字DimtempAsStringtemp=moneyIfInStr(temp,".")>0Thentemp=Left(temp,InStr(temp,".")-1)IfLen(t

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。