小写货币数字转化为大写货币数字EXCEL公式

合集下载

EXCLE小写金额转换大写公式

EXCLE小写金额转换大写公式

EXCEL 小写
金额转换大
写公式:
示例:
小写金额:大写金额:
28546.37大写(人民币)贰万捌仟伍佰肆拾陆元叁角柒说明:不讨论公式设计,单从应用方法上简单介绍,将大写金额单元格的公式复制到需要体现大写的单元格,然后对公示引用的小写单元格进行替换操作即可,比如小写金额在D5单元格,那将下述大写单元格公示中的A7全部替换成为D5即可;
公示描述:"大写(人民币)"&IF((INT(A7*10)-
INT(A7)*10)=0,TEXT(INT(A7),"[DBNum2]G/通用格式")&"元
"&IF((INT(A7*100)-INT((A7)*10)*10)=0,"整","零
"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A7),"[DBNum2]G/通用格式")&"元"&IF((INT(A7*100)-INT((A7)*10)*10)=0,TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A7*10)-INT(A7)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A7*100)-INT(A7*10)*10,"[DBNum2]G/通用格式")&"分"))。

excel数字大写转换公式

excel数字大写转换公式

excel数字大写转换公式Excel是一款功能强大的电子表格软件,它不仅可以进行数据的计算和分析,还可以对数据进行格式化和展示。

其中一个常用的功能就是将数字转换为大写的金额,这在一些财务报表和合同中非常常见。

本文将介绍关于Excel数字大写转换公式的使用方法和注意事项。

我们需要明确一点,Excel并没有内置的函数来直接将数字转换为大写金额。

因此,我们需要使用一些自定义的公式来实现这个功能。

下面是一个常用的公式:```=UPPER(TEXT(A1,"[$-0804][DBNum2]G/通用格式"))```这个公式使用了TEXT函数和UPPER函数来实现金额的大写转换。

其中,A1表示要转换的单元格,你可以根据自己的需求来修改。

这个公式的一个特点是,它可以将小数点后两位的金额转换为大写,而不仅仅是整数部分。

需要注意的是,这个公式中的“[$-0804][DBNum2]G/通用格式”部分是一个格式代码,它可以将金额以大写的形式显示出来。

在使用时,你可以根据自己的需要选择其他的格式代码,比如“[$-0804][DBNum2]G/货币”可以将金额以货币的形式显示出来。

这个公式还有一个限制,就是它只能将金额转换为大写的中文形式。

如果你需要将金额转换为其他语言的大写形式,那么你可能需要使用其他的公式或者宏来实现。

除了上面介绍的公式,还有一些其他的方法可以实现金额的大写转换。

比如,你可以使用VBA宏来编写一个自定义的函数,然后在Excel中调用这个函数来实现转换。

不过,这个方法需要一些编程的知识,对于一般用户来说可能比较复杂。

除了将数字转换为大写金额,Excel还有很多其他的数字格式化功能。

比如,你可以使用“¥0.00”格式将数字显示为带有货币符号的两位小数形式。

你还可以使用“0.00%”格式将数字显示为百分比形式。

这些功能都可以在Excel的格式化选项中找到,非常方便。

Excel的数字大写转换功能是一个非常实用的功能,可以帮助我们更好地展示和格式化数据。

excel小写金额改大写公式

excel小写金额改大写公式

excel表格里小写金额改大写金额公式
比如1725.20,大写:人民币壹仟柒佰贰拾伍元贰角
实例说明
支付金额大写后一列C9的公式为下面:只需更换引用单元格即可。

把F8替换成你想要引用的单元格C9=SUBSTITUTE(SUBSTITUTE(IF(F8<0,"负
","")&TEXT(TRUNC(ABS(ROUND(F8,2))),"[DBNum2]")&"元
"&IF(ISERR(FIND(".",ROUND(F8,2))),"",TEXT(RIGHT(TRUNC(ROUND(F8,2)*10)),"[DBNum2] "))&IF(ISERR(FIND(".0",TEXT(F8,"0.00"))),"角
","")&IF(LEFT(RIGHT(ROUND(F8,2),3))=".",TEXT(RIGHT(ROUND(F8,2)),"[DBNum2]")&"分
",IF(ROUND(F8,2)=0,"","整")),"零元零",""),"零元","零")
再示例。

把F8替换成你想要引用的单元格UND(F8,2)*10)),"[DBNum2]
(F8,2)),"[DBNum2]")&"分。

excel中如何将数字变成大写金额的函数

excel中如何将数字变成大写金额的函数

excel中如何将数字变成大写金额的函数如何在Excel中将数字转化为大写金额在Excel中,我们经常需要将数字转化为大写金额,以便更直观地展示数值。

虽然Excel本身并没有提供直接将数字转化为大写金额的函数,但我们可以通过一些方法来实现这个功能。

本文将介绍两种常用的方法,分别是使用Excel的内置函数和使用自定义宏。

一、使用Excel的内置函数Excel提供了一个内置的函数——“人民币大写”函数,可以将数字转化为大写金额。

下面是使用该函数的步骤:步骤1:打开Excel并选择一个单元格,例如A1,用于输入要转化的数字。

步骤2:在另一个单元格中,例如B1,输入以下公式:=人民币大写(A1)步骤3:按下回车键,即可将A1单元格中的数字转化为大写金额。

需要注意的是,“人民币大写”函数只能将数字转化为中文大写金额,而不能转化为其他语言的大写金额。

如果需要转化为其他语言的大写金额,可以考虑使用自定义宏的方法。

二、使用自定义宏自定义宏是一种基于VBA(Visual Basic for Applications)语言的编程方式,可以在Excel中实现各种自定义功能。

下面是使用自定义宏将数字转化为大写金额的步骤:步骤1:按下Alt+F11键,打开VBA编辑器。

步骤2:在VBA编辑器中,选择“插入”菜单,然后选择“模块”。

步骤3:在新建的模块中,输入以下VBA代码:```Function ConvertToChineseNumber(ByVal MyNumber)Dim MyCurrency, DecimalPlace, CountReDim Place(9) As StringPlace(2) = " Thousand "Place(3) = " Million "Place(4) = " Billion "Place(5) = " Trillion "' Convert MyNumber to String, trimming extra spaces.MyNumber = Trim(CStr(MyNumber))' Check for valid input.If MyNumber = "" ThenConvertToChineseNumber = ""Exit FunctionEnd If' Convert MyNumber to Currency figures.ReDim DecimalPlace(9) As StringDecimalPlace(2) = " Hundred "DecimalPlace(3) = " Thousand "DecimalPlace(4) = " Million "DecimalPlace(5) = " Billion "' Convert MyNumber to Currency figures.MyNumber = Trim(CStr(MyNumber))' Remove leading zeros' DecimalPlace = GetVal(Trim(Mid(MyNumber, DecimalPlace + 1, 2)))Count = 1Do While MyNumber <> ""ReDim Preserve MyCurr(Count) As StringCount = Count + 1MyCurr(Count - 1) = GetTens(Trim(Mid(MyNumber, 1, 2)), MyNumber)If Len(MyNumber) > 2 ThenMyNumber = Trim(Mid(MyNumber, 3))ElseMyNumber = ""End IfLoopCount = Count - 1For DecimalPlace = Count To 1 Step -1MyCurrency = MyCurrency & " " & MyCurr(DecimalPlace) If DecimalPlace = 1 Then' -- If place is ten thousand and greater than 0 set nother name to RupeesIf Len(MyNumber) = 1 Then MyCurr(1) = " and " & MyCurr(1)MyCurrency = MyCurrency & Place(DecimalPlace)End IfNext DecimalPlaceConvertToChineseNumber = MyCurrencyEnd FunctionFunction GetTens(TensText, ByVal Amount)Dim Result As StringResult = "" ' Null out the temporary function value.If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...Select Case Val(TensText)Case 10: Result = "Ten"Case 11: Result = "Eleven"Case 12: Result = "Twelve"Case 13: Result = "Thirteen"Case 14: Result = "Fourteen"Case 15: Result = "Fifteen"Case 16: Result = "Sixteen"Case 17: Result = "Seventeen"Case 18: Result = "Eighteen"Case 19: Result = "Nineteen"Case ElseEnd SelectElse ' If value between 20-99...Select Case Val(Left(TensText, 1))Case 2: Result = "Twenty "Case 3: Result = "Thirty "Case 4: Result = "Forty "Case 5: Result = "Fifty "Case 6: Result = "Sixty "Case 7: Result = "Seventy "Case 8: Result = "Eighty "Case 9: Result = "Ninety "Case ElseEnd SelectResult = Result & GetDigit _(Right(TensText, 1)) ' Retrieve ones place. End IfGetTens = ResultEnd FunctionFunction GetDigit(Digit)Select Case Val(Digit)Case 1: GetDigit = "One"Case 2: GetDigit = "Two"Case 3: GetDigit = "Three"Case 4: GetDigit = "Four"Case 5: GetDigit = "Five"Case 6: GetDigit = "Six"Case 7: GetDigit = "Seven"Case 8: GetDigit = "Eight"Case 9: GetDigit = "Nine"Case Else: GetDigit = ""End SelectEnd Function```步骤4:按下Ctrl+S保存宏,并关闭VBA编辑器。

Excel函数公式转换人民币大小写

Excel函数公式转换人民币大小写

Excel函数公式转换人民币大小写问题:想将A1中人民币的小写数字,在B1中转成人民币大写。

解答:B1中输入=TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")就可以了,如果你不要拾万位,自己可以修改的,如=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分")等形式都可以的。

⑴已知:A1=4.51函数:B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果:零拾零万零仟零佰零拾肆元伍角壹分⑵已知:A1=456789.23函数:B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果:肆拾伍万陆仟柒佰捌拾玖元贰角叁分⑶已知:A1=123456789.2(注:位数不能超过拾万)函数:B1 =TEXT(A1*100,"[dbnum2]0拾0万0仟0佰0拾0元0角0分")结果:壹贰叁肆拾伍万陆仟柒佰捌拾玖元贰角叁分⑷已知:A1=4.51函数:B1=TEXT(A1*100,"[dbnum2]0万0仟0佰0拾0元0角0分")结果:零万零仟零佰零拾肆元伍角壹分⑸已知:A1=23.25函数:B1=TEXT(A1*100,"[dbnum2] 0拾0元0角0分")结果:贰拾叁元贰角伍分⑹已知:B9=123456789.12函数:=IF(B9<=0,,TEXT(INT(B9),"[dbnum2]人民币G/通用格式")&"元"&IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,"","零"),TEXT(INT(B9*10)-INT(B9)*10,"[dbnum2]")&"角")&IF((INT(B9*100)-INT(B9*10)*10)=0,"整",TEXT((INT(B9*100)-INT(B9*10)*10),"[dbnum2]")&"分"))结果:人民币壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分⑺已知:B9=123456789.12函数:=IF(B9<=0,,TEXT(INT(B9),"[dbnum2]G/通用格式")&"元"&IF(INT(B9*10)-INT(B9)*10=0,IF(INT(B9)*(INT(B9*100)-INT(B9*10)*10)=0,"","零"),TEXT(INT(B9*10)-INT(B9)*10,"[dbnum2]")&"角")&IF((INT(B9*100)-INT(B9*10)*10)=0,"整",TEXT((INT(B9*100)-INT(B9*10)*10),"[dbnum2]")&"分"))结果:壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分⑻已知:B9=123456789.12函数:=IF(ROUND(B9,2)=0,"",IF(ROUND(ABS(B9),2)>=1,TEXT(INT(ROUND(ABS(B9),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(B9,".00"),2)*1=0,"整",IF(RIGHT(TEXT(B9,".00"),4)*1>=1,IF(RIGHT(TEXT(B9,".00"),2)*1>9,"","零"),IF(ROUND(ABS(B9),2)>=1,"零",""))&IF(RIGHT(TEXT(B9,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(B9,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(B9,".00"))*1>0,TEXT(RIGHT(TEXT(B9,".00")),"[DBNum2]")&"分","整")))结果:壹亿贰仟叁佰肆拾伍万陆仟柒佰捌拾玖元壹角贰分核心提示:人民币金额大写转换是财务和会计领域的热点问题,网络提供此问题的方法很多,主要有VBA、自定义函数、多种函数嵌套等。

excel数字变大写的函数

excel数字变大写的函数

excel数字变大写的函数Excel 是一款功能强大的电子表格软件,广泛应用于商业、财务、教育等领域。

在日常使用中,我们经常会遇到将数字转换为大写的需求,例如将金额数字转换为大写金额。

Excel 提供了一些函数来实现这个需求,本文将介绍如何使用这些函数来将数字转换为大写。

在Excel 中,有几个函数可以帮助我们将数字转换为大写。

其中最常用的是“DOLLAR”函数。

这个函数的语法是“DOLLAR(number, decimals)”。

“number”是需要转换的数字,“decimals”是保留的小数位数。

例如,如果我们要将数字12345.67转换为大写金额,可以使用以下公式:=DOLLAR(12345.67, 2)这个公式将返回“Twelve Thousand Three Hundred Forty-Five and 67/100”。

通过设置“decimals”的值,我们可以控制保留的小数位数。

除了“DOLLAR”函数,Excel 还提供了“TEXT”函数来将数字转换为文本。

这个函数的语法是“TEXT(value, format_text)”。

“value”是需要转换的数字,“format_text”是转换的格式。

例如,如果我们要将数字12345.67转换为大写金额,可以使用以下公式:=TEXT(12345.67, "[$CNY]#,##0.00")这个公式将返回“人民币贰万叁仟肆佰伍拾元陆角柒分”。

通过设置“format_text”的值,我们可以控制转换的格式,例如设置为“[$USD]#,##0.00”可以转换为美元格式。

除了上述两个函数,Excel 还提供了一个内置的宏函数“PROPER”来将数字转换为大写。

这个函数的语法是“PROPER(text)”。

“text”是需要转换的文本。

例如,如果我们要将数字12345.67转换为大写金额,可以使用以下公式:=PROPER("Twelve Thousand Three Hundred Forty-Five and 67/100")这个公式将返回“Twelve Thousand Three Hundred Forty-Five And 67/100”。

excel人民币大小写转换函数

excel人民币大小写转换函数

excel人民币大小写转换函数
在excel中,可以使用函数轻松实现“人民币大小写转换”。

下面就来介绍一下excel中人民币大小写转换函数的使用方法:
1、准备工作
准备工作很简单,只需要在excel中新建一个工作表,并将要转换的数字输入在表格中即可。

2、使用函数
在excel中,可以使用函数“large”来实现人民币大小写转换,函数的具体使用方法是:
=Large(A1,B1)
其中,A1为要转换的数字,B1为单位(按数字的位数计算,从个位开始)。

例如,我们要转换“4531400”,则其转换函数为:
= Large(4531400,1),1表示单位是个,即若干个“万”
= Large(4531400,2),2表示单位是十万,即若干十万
= Large(4531400,3),3表示单位是百万,即若干百万等等。

- 1 -。

单元格小写金额自动转换成大写金额

单元格小写金额自动转换成大写金额

Excel中怎么实现小写金额自动转换成中文大写金额EXCEL中数字小写换大写方法一:在单元格A2中输入小写数字123.12B2处输入以下公式=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10) ),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBN um2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")EXCEL中数字小写换大写方法二:在单元格A2中输入小写数字123.12B2处输入以下公式=IF((INT(A2*10)-INT(A2)*10)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,"整","零"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A2),"[DBNum2]G/通用格式")&"元"&IF((INT(A2*100)-INT((A2)*10)*10)=0,TEXT((INT(A2*10)-INT(A2)*10),"[D BNum2]G/通用格式")&"角整",TEXT((INT(A2*10)-INT(A2)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A2*100)-INT(A2*10)*10,"[DBNum2]G/通用格式")&"分"))EXCEL中数字小写换大写方法三:=IF(A2-INT(A2)=0,TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆整",TEXT(INT(A2),"[DBNum2]G/通用格式")&"圆"&TEXT(INT((A2-INT(A2))*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT((A2*10-INT(A2*10))*10),"[DBNum2]G/通用格式")&"分") EXCEL中数字小写换大写方法四:=IF((A2-INT(A2))=0,TEXT(A2,"[DBNUM2]")&"元整",IF(INT(A2*10)-A2*10=0,TEXT(INT(A2),"[DBNUM2]")&"元"&TEXT((INT(A2*10)-INT(A2)*10),"[DBNUM2]")&"角整",TEXT(INT(A2),"[DBNUM2]")&"元"&IF(INT(A2*10)-INT(A2)*10=0,"零",TEXT(INT(A2*10)-INT(A2)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A2,1),"[DBNUM2]")&"分"))看看结果是不是出现了你想要的?应该有你需要的大写金额了公式的由来:仟分位公式如下:=TEXT(IF(LEN(INT($A1))>=4,MID($A1,LEN(INT($A1))-3,1),""),"[DBNum2]") 佰分位公式如下:=TEXT(IF(LEN(INT($A1))>=3,MID($A1,LEN(INT($A1))-2,1),""),"[DBNum2]") 第一位小数的公式:=TEXT(MID($A1,FIND(".",$A1)+1,1),"[DBNum2]")第二位小数的公式:=TEXT(MID(TEXT($A1,"0.00"),FIND(".",$A1)+2,1),"[DBNum2]") 其他依此类推^^^^^^^^^^^^^^^^用Excel函数将货币数值由阿拉伯数字自动生成为中文大写格式如图是全部用Excel函数自编农业银行转帐支票套打工具,图中内容是需要打印到转帐支票上内容,其中A-D列为支票存根部分,我们利用Excel函数对要填写大部分内容建立公式后,只要输入支票存根部分的三项基本信息(A6-A8单元格):收款单位、金额、用途,其他内容全部自动生成。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
相关文档
最新文档