大家好,欢迎来到IT知识分享网。
各位朋友,你们好。我是一名办公软件爱好者,喜欢Excel,会函数、会基础操作、也会一点VBA。喜欢和大家分享、交流一些Excel的知识。欢迎爱好Exce和要学习Excel的朋友,相互学习、一起进步。如果你喜欢我的分享,请关注我,以便第一时间看到我分享的内容。
关于金额的大小写转换,通常用到的是小写金额转大写金额。而我今天要分享的内容是:
- 小写金额的拆分;
- 小写金额转大写金额【函数方法】
- 小写金额转大写金额【VBA方法】
- 大写金额转小写金额【VBA方法】
- 小写金额转英文【VBA方法】
- Word里面小写转大写
- WPS里面小写转大写
- 其他金额小写转大写的方法
写在前面:由于文章里面写太多VBA代码会影响阅读体验。故将VBA代码截图处理,需要演示文件的朋友,可以关注我,然后私信发送关键字:大写金额、小写金额、大小写等获取文件。
小写金额的拆分
如上图收据样式,在数量、单价中填写好数据,即可生成合计金额,同时将合计金额按十、万、千、百、十、元、角、分为单位拆分出来。接下来,我用一个案例详细给大家分析分析下(用的随机数模拟数据):
操作演示中涉及两个函数公式:
公式一:=MID(RIGHT(REPT(" ",9)&TEXT(ROUND($A3/1%,),"¥0"),9),COLUMN(A1),1)
公式二:=LEFT(RIGHT(TEXT(ROUND($A3/1%,)," ¥0"),10-COLUMN(A1)))
解决的思路和公式的理解详见下图:
小写金额转大写金额【函数方法】
金额小写转大写,这个是大家应用得最多的,详见下面动画操作演示:
操作演示中用的公式是:
=SUBSTITUTE(SUBSTITUTE(IF(A2<0,”负”,””)&TEXT(INT(ABS(A2)),”[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(RMB(A2),2),”[dbnum2]0角0分;;整”),”零角”,”零”),”零分”,”整”)
公式的理解思路详见下图:
按照上图拆分,小写金额转大写的函数公式,可以分为四部分:
①判断正负数的:IF(A2<0,”负”,””)
②转换整数部分的:TEXT(INT(ABS(A2)),”[dbnum2]G/通用格式元;;”)
③转换小数部分的:TEXT(RIGHT(RMB(A2),2),”[dbnum2]0角0分;;整”)
④然后把以上三部分用【&】合并起来,在用SUBSTITUTE函数进行2次替换。
要实现相同的效果,不一定限于我示例中用的函数,ROUND、NUMBERSTRING等函数也可以实现,只要按照上图的思路,达到要求的效果就可以。其中,有三点需要解释下:
1、[dbnum2]G/通用格式元;;:①数据大于0的时候,按[dbnum2]G/通用格式元格式显示;②数据小于0的时候,显示空白;③数据等于0的时候,显示空白。(这里使用了格式的前三个区间)【详见下面动图演示】
2、[dbnum2]0角0分;;整:同第一条,①当数据大于0的时候,按[dbnum2]0角0分格式显示角和分,比如:壹角壹分;②如果金额小于0,显示空白;③如果金额等于0,显示整(即无小数,要转换的数据是一个整数)。(这里使用了格式的前三个区间)
3、[dbnum2]G/通用格式元:将小写数字转换为大写数字,效果见下图的操作演示:
小写金额转大写金额【VBA方法】
演示所用的代码如下:
大写金额转小写金额【VBA方法】
演示所用的代码如下:
小写金额转英文【VBA方法】
演示所用的代码如下(部分代码):
Word里面小写转大写
注意:此方法只支持整数,小数在转换过程中,会先被四舍五入处理
WPS里面小写转大写
选择单元格→右键,选择设置单元格格式→依次选择数字、特殊、类型、【人民币大写】→完成
其他金额小写转大写的方法
1、输入法直接录入:比如搜狗输入法
2、专业软件:
免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/161615.html