大写人民币转换，人民币大写的转换

本文目录一览

1，人民币大写的转换
2，怎样在EXCEL中数字转人民币大写
3，如何用wps表格转换大写人民币的方法
4，大写金额转换规则
5，怎么将人民币大写在excel 中转换成小写使用什么公式
6，怎么用Excel将小写金额转换成人民币的大写金额

1，人民币大写的转换

0001元是读成零壹圆

拾万零壹仟圆整

人民币大写的转换

2，怎样在EXCEL中数字转人民币大写

选中有数字的一列，右击，“设置单元格式……”、“数字”选项卡、“特殊”、“中文大写数字”确定即可。

怎样在excel中数字转人民币大写_百度经验 http://jingyan.baidu.com/article/d2b1d1024cb3f65c7f37d46b.html

怎样在EXCEL中数字转人民币大写

3，如何用wps表格转换大写人民币的方法

工具：Wps方法如下：1、打开需要转换大写人民币的文档2、选定需要转换的单元格，点击菜单栏“格式”→“单元格”3、弹出单元格格式，在数字选项卡中选择“特殊”分类中的“人民币大写”，点击“确定”就OK了。

右键——设置单元格格式——数字：分类：——特殊——选择：中文大写数字。

如何用wps表格转换大写人民币的方法

4，大写金额转换规则

如果你的金额在A1单元格，=IF(A1=0,"",CONCATENATE(IF(INT(A1)=0,"",TEXT(INT(A1),"人民币[DBNum2][$-804]G/通用格式元")),IF(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"",IF(INT(A1)=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(A1,2,1),2),1,1)),"[DBNum2][$-804]G/通用格式角")),IF(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT(FIXED(A1,2,1),1),1,1)),"[DBNum2][$-804]G/通用格式分"))))复制上去就可以了

在EXCEL中用以下函数即可实现：SUBSTITUTE(SUBSTITUTE(TEXT(INT(ABS(A95)),"[dbnum2];; ")&SUBSTITUTE(TEXT(MOD(ABS(A95),1)/1%,"[>9][dbnum2]元0角0分;[>0][dbnum2]元零0分;元整"),"零分","整")," 元零",)," 元",)

壹拾万壹仟元整壹拾万伍仟零贰拾元伍角壹分壹仟零伍元零玖分壹仟零壹拾元伍角（一）阿拉伯数字中间有“0”时，中文大写金额要写“零”字。如￥1，409．50，应写成人民币壹仟肆佰零玖元伍角。（二）阿拉伯数字中间连续有几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6，007．14，应写成人民币陆仟零柒元壹角肆分。（三）阿拉伯金额数字万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，中文大写金额中可以只写一个零字，也可以不写“零”字。如￥1，680．32，应写成人民币壹仟陆佰捌拾元零叁角贰分，或者写成人民币壹仟陆佰捌拾元叁角贰分；又如￥107，000．53，应写成人民币壹拾万柒仟元零伍角叁分，或者写成人民币壹拾万零柒仟元伍角叁分。（四）阿拉伯金额数字角位是“0”，而分位不是“0”时，中文大写金额“元”后面应写“零”字。如￥16，409．02，应写成人民币壹万陆仟肆佰零玖元零贰分；又如￥325．04，应写成人民币叁佰贰拾伍元零肆分。

其实你可以去百度直接搜，这里面提问效果不是很好！

5，怎么将人民币大写在excel 中转换成小写使用什么公式

据我所知，公式还不能解决这个问题，下面给出EXCEL VBA解决方法：1、打开EXCEL 表，按下ALT + F11 ,双击 “ThisWorkbook”，如下图：2、按下 F5，静待代码运行结束，效果如下：3、需要注意的几个问题：①，运行代码前，请先备份好数据，代码会占用B列，若你原B列有数据，建议插入空列。②，大写按照标准来的，即万前必须有填，例如“贰拾零万”，不是“贰拾万”。③，代码以“元”来区分小写后的小数点，必须要有哟。Sub DaxieToXiao() Dim XiaoNub As String Dim i As Integer For i = 2 To 100 If Cells(i, 1) <> "" Then Dim n As Integer For n = 1 To Len(Cells(i, 1)) If Right(Left(Cells(i, 1), n), 1) = "零" Then XiaoNub = XiaoNub & "0" End If If Right(Left(Cells(i, 1), n), 1) = "壹" Then XiaoNub = XiaoNub & "1" End If If Right(Left(Cells(i, 1), n), 1) = "贰" Then XiaoNub = XiaoNub & "2" End If If Right(Left(Cells(i, 1), n), 1) = "叁" Then XiaoNub = XiaoNub & "3" End If If Right(Left(Cells(i, 1), n), 1) = "肆" Then XiaoNub = XiaoNub & "4" End If If Right(Left(Cells(i, 1), n), 1) = "伍" Then XiaoNub = XiaoNub & "5" End If If Right(Left(Cells(i, 1), n), 1) = "陆" Then XiaoNub = XiaoNub & "6" End If If Right(Left(Cells(i, 1), n), 1) = "柒" Then XiaoNub = XiaoNub & "7" End If If Right(Left(Cells(i, 1), n), 1) = "捌" Then XiaoNub = XiaoNub & "8" End If If Right(Left(Cells(i, 1), n), 1) = "玖" Then XiaoNub = XiaoNub & "9" End If If Right(Left(Cells(i, 1), n), 1) = "元" Then XiaoNub = XiaoNub & "." End If Next n Cells(i, 2) = XiaoNub XiaoNub = "" End If Next iEnd Sub

补充一下，hjj5118 的意思我明白了。综合tangjiangli的答案，我教hjj5118 做：第一步，打开已有的表格，同时把这个网页也打开，稍后能用到这个公式。因为公式太长，必须得用复制，粘贴的方法，才保准。第二步，复制公式，冒号后一个也不能落下。即：=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，使a2单元格中有光标在闪，点粘贴。第四步，回车。

假设a1中为数值123.45, 在b1中输入公式=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,"","整")),"零元零",""),"零元","")

6，怎么用Excel将小写金额转换成人民币的大写金额

=IF(OR(F63="",F63=0),"",TEXT(INT(F63),"[dbnum2]")&IF(INT(F63)=F63,"元","元")&IF(INT(F63)<>F63,TEXT(--RIGHT(INT(F63*10)),"[=0]零;[>0][dbnum2]#角"),"")&TEXT(--RIGHT(INT(F63*100)),"[=0]整;[>0][dbnum2]#分整;;"))复制此公式粘贴到A2，把F63全部改成A1就OK了。显示就是壹佰贰拾叁元肆角伍分整。

可选用以下方法：1、如果都是整数，可通过单元格格式设置实现。选定单元格，在其上点鼠标右键——“设置单元格格式”，点“数字”标签——“特殊”，在”类型“中选择“中文大写数字”。2、如果存在小数，即不是元的整数，可用以下公式处理：=IF(ISNUMBER(A1),IF(INT(A1),TEXT(INT(A1),"[dbnum2]")&"元","")&IF(MOD(INT(A1*10),10),TEXT(MOD(INT(A1*10),10),"[dbnum2]")&"角",IF(INT(A1)=A1,,IF(A1<0.1,,"零")))&IF(MOD(INT(A1*100),10),TEXT(MOD(INT(A1*100),10),"[dbnum2]")&"分",""),"")

如果单元格H14是小写数字，你想在其它单元格中显H14格的大写中文数字，就把下面的公式复制到你的目标单元格中，当然如果你的小写数字不是在H14格，只要把下面公式中的H14全换成你小写数字的单元格就可以了。 =IF(H14=0,"",CONCATENATE(IF(INT(ABS(H14))=0,"",TEXT(INT(ABS(H14)),"[DBNum2]G/通用格式元")),IF(INT(MID(RIGHT(FIXED(ABS(H14),2,1),2),1,1))=0,IF(INT(MID(RIGHT(FIXED(H14,2,1),1),1,1))=0,"",IF(INT(ABS(H14))=0,"","零")),TEXT(INT(MID(RIGHT(FIXED(H14,2,1),2),1,1)),"[DBNum2]G/通用格式角")),IF(INT(MID(RIGHT(FIXED(H14,2,1),1),1,1))=0,"整",TEXT(INT(MID(RIGHT(FIXED(H14,2,1),1),1,1)),"[DBNum2]G/通用格式分"))))

不好意思说错了,一点小错误应该是在A2处输入数字,在B2(或是其他任何单元格)处输入公式即可,因为一般都会有表头的=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","") 你就会发现你想要的.不懂的你问问你们公司稍微会用EXCEL的就行了,这个包灵,我自己用过的

补充一下，hjj5118 的意思我明白了。综合tangjiangli的答案，我教hjj5118 做：第一步，打开已有的表格，同时把这个网页也打开，稍后能用到这个公式。因为公式太长，必须得用复制，粘贴的方法，才保准。第二步，复制公式，冒号后一个也不能落下。即：=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，使A2单元格中有光标在闪，点粘贴。第四步，回车。