赶紧收藏!金额大小写最牛方法都在这里,可大小写互转,支持英文
各位朋友,你们好。我是一名办公软件爱好者,喜欢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,显示整(即无小数,要转换的数据是一个整数)。(这里使用了格式的前三个区间)
Excel数据格式的四个区间,每个区间用【;】隔开
3、[dbnum2]G/通用格式元:将小写数字转换为大写数字,效果见下图的操作演示:
[dbnum2]G/通用格式元
小写金额转大写金额【VBA方法】小写金额转大写【VBA方法】
演示所用的代码如下:
小写金额转大写【VBA代码】
大写金额转小写金额【VBA方法】大写金额转小写金额【VBA方法】
演示所用的代码如下:
大写金额转小写金额【VBA代码】
小写金额转英文【VBA方法】小写金额转英文【VBA方法】
演示所用的代码如下(部分代码):
小写金额转英文【VBA方法】
Word里面小写转大写Word里面小写转大写
注意:此方法只支持整数,小数在转换过程中,会先被四舍五入处理
WPS里面小写转大写选择单元格→右键,选择设置单元格格式→依次选择数字、特殊、类型、【人民币大写】→完成
WPS里面的小写金额转大写金额
其他金额小写转大写的方法1、输入法直接录入:比如搜狗输入法
小写金额转大写(输入法)
2、专业软件:
小写金额转大写(软件)