数字大写金额转换大写一二三四五六七八大九十大写

大写一二三四五六七八大九十大写（数字大写金额转换）我在网上复制了很多公式，但统统不成功，只有元整但仍然是阿拉伯数字；经过一番研究，终于发现各个版本都需要微调格式；如果你也不会，可以和我一起看看哦。很多做财务工作的盆友一直被人民币大写金额所困扰

文章插图
如果经常手写重复浪费时间还写错

文章插图
小编深深记得写外汇揣着小笔笔在银行柜台前的恐惧

文章插图
所以！当当当！亲测有效方法一利用excel自带的数字格式但是没有办法和元角分链接B2=前面单元格调整数字格式就行

文章插图
方法二v模式转换先打v再打数字可以轻易选财务也可以但不能批量只能一个一个来

文章插图
方法三公式法-复制以下公式但是需要进行微调通用公式公式一=SUBSTITUTE(IF(RIGHT(FIXED(A1)*100,2)*1=0,TEXT(FIXED(A1),"[dbnum2]")&"元整",SUBSTITUTE(SUBSTITUTE(REPLACE(TEXT(FIXED(A1),"[dbnum2]"),LEN(TEXT(FIXED(A1),"[dbnum2]")),0,"角")&"分",".","元"),"零角","零")),"-","负")小编在excel 2010 英文版中发现DBNUM2不适用，所以先在数字格式中查到本版本中的数字格式的代码现用方法一中选好数字格式后点击自定义即可看到当前版本大写数字代码

文章插图
将上述数字格式替换原先的dbnum2，即可形成公式二=SUBSTITUTE(IF(RIGHT(FIXED(A1)*100,2)*1=0,TEXT(FIXED(A1),"[DBNum2][$-zh-CN]General")&"元整",SUBSTITUTE(SUBSTITUTE(REPLACE(TEXT(FIXED(A1),"[DBNum2][$-zh-CN]General"),LEN(TEXT(FIXED(A1),"[DBNum2][$-zh-CN]General")),0,"角")&"分",".","元"),"零角","零")),"-","负")

文章插图
其他的版本也可以自己操作还可以复制以下公式试试，不过都需要相应调整=IF(AND(A1<=-0.01,A1>=-0.99),"负","")&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(A1),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元")&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;[dbnum2]0角;[dbnum2]整"),"零角","零"),"零分",)=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[DBNum2][$-804]G/通用格式元"&IF(INT(A1)=A1,"整",""))&TEXT(MID(A1,FIND(".",A1&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(A1,FIND(".",A1&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")方法四VBA-同样DBNUM2需要修改但只能用于当前工作簿要保存成xls/xlsm的格式哦alt+F11进入VBA模板

文章插图
插入模板-新模板

文章插图
复制代码Public Function RMBDX(M)'人民币大写函数RMBDX = Replace(Application.Text(Round(M + 0.00000001, 2), "[DBnum2]"), ".", "元")RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", IIf(RMBDX = "零", "", RMBDX & "元整")))RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function

以上关于本文的内容，仅作参考！温馨提示：如遇健康、疾病相关的问题，请您及时就医或请专业人士给予相关指导!

「四川龙网」www.sichuanlong.com小编还为您精选了以下内容，希望对您有所帮助：

数字大写金额转换 大写一二三四五六七八大九十大写

数字大写金额转换大写一二三四五六七八大九十大写