excel 中数字转人民币大写的两种正确方法
发布时间:2023-06-10 11:56:28
对于财务和会计领域的朋友们来说,在excel在录入数据后,将数字自动转换为人民币大写是每天都要做的工作之一。由于使用的频繁和简便,IT部落窝小编今天专门写下这篇文章分享给大家。
Excel中也提供了将数字转成人民币大写的功能,就是使用“设置单元格格式--数字--特殊--中文大写数字”。比如:589.3转人民币大写后就是:伍佰捌拾玖.叁。只要用过的朋友们都知道使用excel的内置功能,将数字转人民币大写,转出来的结果还是不符合人民币的说明习惯,所以我们一般不会采用这种方法。
小编给大家分享的两种方法主要是通过函数嵌套和宏VBA自定义函数。
EXCEL 数字转人民币大写的第一种方法:通过函数嵌套实现。有两种格式可供参考,详见下图:
第一种数字转人民币大写形式的公式是:
=IF(B1<0,"金额为负无效",
(IF(OR(B1=0,B1=""),"(人民币)零元",
IF(B1<1,"(人民币)",
TEXT(INT(B1),"[dbnum2](人民币)G/通用格式")&"元"))))&
IF(
(INT(B1*10)-INT(B1)*10)=0,
IF(INT(B1*100)-INT(B1*10)*10=0,"","零"),
(TEXT(INT(B1*10)-INT(B1)*10,"[dbnum2]")&"角"))
&IF(
(INT(B1*100)-INT(B1*10)*10)=0,
"整",
TEXT((INT(B1*100)-INT(B1*10)*10),"[dbnum2]")&"分")
第二种数字转人民币大写形式的公式是:
="大写金额:"&IF(TRIM(B1)="","",IF(B1=0,"","人民币"&IF(B1<0,"负",)&IF(INT(B1),TEXT(INT(ABS(B1)),"[dbnum2]")&"元",)&IF(INT(ABS(B1)*10)-INT(ABS(B1))*10,TEXT(INT(ABS(B1)*10)-INT(ABS(B1))*10,"[dbnum2]")&"角",IF(INT(ABS(B1))=ABS(B1),,IF(ABS(B1)<0.1,,"零")))&IF(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),TEXT(ROUND(ABS(B1)*100-INT(ABS(B1)*10)*10,),"[dbnum2]")&"分","整")))
EXCEL 数字转人民币大写的第二种方法:通过宏VBA自定义函数实现。参考下图。
第一步:按下ALT+F11组合键,或者是单击工具——宏——Visual Basic编辑器,进入Visual Basic编程环境,单击“插入” 菜单——模块,复制下面代码,保存,退出关闭。Function N2RMB(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = (j / 10 - Int(j / 10)) * 10
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
N2RMB = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function
第二步:返回excel操作界面,在B1单元格输入:= N2RMB (A1),就可以将A1单元格的数字转为人民币大写,然后向下复制公式即可将全部的数字转为人民币大写。
猜你喜欢
- Excel默认的排序方式是拼音排序,若是让你们按姓名笔划排序,那么你们还会吗?不会的朋友请仔细的看下文。方法步骤首先打开Excel工作表,然
- Word怎么设置页面纸张方向横向和纵向同时出现?我们之前介绍过,如何在word中设置横向页面,纵向页面,但是还没有教大家怎在一个窗口同时显示
- 在制作Excel表格中,看到挤在一起的文字总是有种很别扭的感觉,如果将挤在一起的文字能够快速分行,表格的整体效果可能会更好。以下是小编为您带
- 在excel中制作完表格之后,都会使用pdf来查看,但是要如何才能进行转换格式呢?下面就跟小编一起来看看吧。Excel转PDF的步骤打开一个
- 自从我国加入WTO以后,我国的进出口贸易太多了,公司有很多地方都要做出改变,就简单的来说报表也需要做中英文对照了,在excel中可以制作出专
- word软件一直是用户爱使用的一款办公软件,这款办公软件给用户带来了许多的便利,让用户提升了自己的编辑效率,这些功劳都是由软件中的强大功能带
- word放大快捷键是什么?word放大快捷键:按键盘的Ctrl键,向前滚动。各软件,通用的放大、缩小的方法:1、按键盘的Ctrl键,向前/向
- PDF文件怎么快速查找所需内容?pdf文件内容很多,想要找到自己想要的内容,该怎么查找呢?下面我们就来看看详细的教程,需要的朋友可以参考下在
- 在工作和学习中我们有时需要四线三格的表格,那么怎么用Word制作四线三格表格呢?下面我们一起来看看吧!在菜单栏中点【插入】,选择【表格】;在
- 不少小伙伴之所以关闭Win10系统自带的防火墙,就是为了防止下载的软件或文件被拦截,那么如果防火墙已经关闭了还提示被拦截该怎么办呢?下面就和
- 假设A1为日期1、可以在B1中输入=Text(A1,"aaaa"),回车即可2、选中A1,按下CTRL+1,点击数字——
- 对于游戏玩家而言,打游戏的时候电脑总是弹出打字输入框,非常影响玩家的游戏体验感,比如,FPS游戏中的Shift键常是加速功能,但是经常会跳出
- 下面的VBA代码功能,第一步,word当前文档的上面添加文字dzwebs文字。然后,又设置第一段居中对齐,并在该段落之后添加半英寸的间距。将
- 如何在Word 2013中绘制线条,边框和框?这里一行。有一条线。到处都是一条线。Word 2013提供了许多功能,其中包括线条,边框和框的
- PS是很强大的一款软件,工作中我们可以运用PS来做一些很重要也很美观的排版,有时会运用到表格,那么EXCEL的表格如何运用在PS中呢?下面小
- 微软在Office软件新功能的研发上一直保持高强度。尤其是Excel,大大提高了人们工作效率,并将人类工作带入了“数据时代,目前Excel上
- 我们都知道计算机文件有格式,如JPG、MP3等。每种格式表示不同的文件类型。那么如何更改文本文档的文件类型呢?实际上,更改文件格式的方法非常
- 如果你想将Scientific Word保存成一个Microsoft Word或者其它的应用软件可读的格式,可以按照下面的步骤进行操作:1.
- word表格拷到excel中没有问题,但是excel中表格拷到word中就有问题了,格式会变乱,好郁闷啊,有什么方法解决吗?下面小编马上就告
- 在Excel表格中如何用颜色标识数字如下图,C列数字发生变化时D列的颜色长度也跟着变动,是怎么做到的?其实这个,就是条件格式,只不过是Exc