大写转换_大写金额转换
大写转换由刀豆文库小编整理,希望给你工作、学习、生活带来方便,猜你可能喜欢“大写金额转换”。
大写转换函数
对于财务和会计领域的朋友们来说,在excel在录入数据后,将数字自动转换为人民币大写是每天都要做的工作之一。由于使用的频繁和简便,IT部落窝小编今天专门写下这篇文章分享给大家。
Excel中也提供了将数字转成人民币大写的功能,就是使用“设置单元格格式--数字--特殊--中文大写数字”。比如:589.3转人民币大写后就是:伍佰捌拾玖.叁。只要用过的朋友们都知道使用excel的内置功能,将数字转人民币大写,转出来的结果还是不符合人民币的说明习惯,所以我们一般不会采用这种方法。
工具/原料
excle
步骤/方法
第一种方法:通过函数嵌套实现
数字转人民币大写形式的公式是:
=IF(B1
(IF(OR(B1=0,B1=“”),“(人民币)零元”,IF(B1
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
第二种方法:通过宏VBA自定义函数实现第一步:按下ALT+F11组合键,或者是单击工具——宏——Visual Basic编辑器,进入Visual Basic编程环境,单击“插入” 菜单——模块,复制下面代码,保存,退出关闭。Function N2RMB(M)
y = Int(Round(100 * Abs(M))/ 100)
j = Round(100 * Abs(M)+ 0.00001)Int(j / 10))* 10
A = IIf(y
b = IIf(j > 9.5, Application.Text(Int(j / 10), “[DBNum2]”)& “角”, IIf(y 1, “零”, “”)))
c = IIf(f
N2RMB = IIf(Abs(M)
End Function
第二步:返回excel操作界面,在B1单元格输入:= N2RMB(A1),就可以将A1单元格的数字转为人民币大写,然后向下复制公式即可将全部的数字转为人民币大写。
Function NumbToEnglish(ByVal MyNumber)Dim TempDim Inte, DecDim DecimalPlace, Count ReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Plac......
大写的人——观《杨善洲》有感王秀丽2012/3/20大写的人——观《杨善洲》有感今日观看《2011感动中国颁奖典礼》,其中已逝的杨善洲老先生给我带来了极大的震撼和思索。杨善洲......
壹、贰、叁、肆、伍、陆、柒、捌、玖、拾、佰、仟、万、亿、元(圆)、角、分、零、整。这是大家经常要填写的大写数字,问什么要用大写数字呢?想必很多人都不是很清楚!先看看以下......
数字:零、壹、贰、叁、肆、伍、陆、柒、捌、玖 数量单位:拾、佰、仟、万、亿金额单位:元(圆)、角、分、零、整(原则上角后不写“整”)......
汉语拼音大写发音......
