您的位置首页散文评论

英文金额大写(英文金额大写转换器网址)深度揭秘

来源：互联网
|
2023-05-14
|
0 条评论
|
T小字　 T大字

我在网上复制了很多公式，但统统不成功，只有元整但仍然是阿拉伯数字；经过一番研究，终于发现各个版本都需要微调格式；如果你也不会，可以和我一起看看哦。很多做财务工作的盆友

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

如果经常手写重复浪费时间还写错

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

所以！当当当！亲测有效方法一利用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.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