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制作财务报表的时候,经常需要将数字表示为大写的中文数字金额。

一般情况下,我们可以用设置“单元格格式”的方法来实现自动转换大写金额,但是这种方法转换出来的大写金额存在两个方面的问题(见图一):1、当数字为整数时,比如B1单元格的数值为5560,将D1单元格设置格式为中文大写数字,输入公式“=B1”,其转换出来的大写为“伍仟伍佰陆拾”,实际工作中,D1单元格的值应该为“伍仟伍佰陆拾元整”,才能满足财务要求。

2、当数字带有小数时,比如B2单元格的数值为5824.56,将D2单元格设置格式为中文大写数字,输入公式“=B2”,其转换出来的大写为“叁仟捌佰贰拾肆点伍陆”,实际工作中,D2单元格的值应该为“叁仟捌佰贰拾肆元伍角陆分”,才能满足财务要求。

实际工作中,我们可以采取公式的方法来解决上述问题。

具体做法如下:在D1单元格输入公式:=IF(INT(B2)=0,"",TEXT(INT(B2),"[DBNum2]")&"元")&IF(INT(B2*100)=INT(B2)*100,"整",IF(OR(INT(B 2*10)=0,INT(B2)=B2),"",IF(INT(B2*10)=INT(B2)*10,"零",RIGHT (TEXT(INT(B2*10),"[DBNum2]"),1)&"角")&IF(INT(B2*100)=INT (B2*10)*10,"整",RIGHT(TEXT(ROUND(B2,2),"[DBNum2]"),1)&"分")))。

效果见图二。

excel表格小写如何变大写金额

excel表格小写如何变大写金额

excel表格小写如何变大写金额Excel电子表格中的数字形式,有多种格式,常见的有阿拉伯数字、中文小写数字和中文大写数字,一般比较常输入的形式是阿拉伯数字的形式,但有时候也需要输入中文大写,这在输入法中不能直接输入,该怎样转换呢。

下面让店铺为你带来excel表格金额小写变大写的方法。

excel小写变大写金额步骤如下:1.假设要转换的数字小写金额在A列,如图所示:2.选中要转换的数字所在的单元格区域,按下CTRL+1组合快捷键,弹出设置单元格格式对话框,如下图所示。

3.在“数字”选项卡下单击“特殊”选择“中文大写数字”,然后单击“确定”按钮如下图所示。

4.以上是通过设置单元格式的方式将数字转换为大写数字,但是并没有严格按照财务对大小写金额的转换要求。

如果要严格按照财务对大小写金额转换的要求来说,可以在B2单元格输入公式=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),"[DBNum2][$-804]G/通用格式元"&IF(INT(A2)=A2,"整",""))&TEXT(MID(A2,FIND(".",A2&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(A2,FIND(".",A2&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")5.然后按住鼠标左键拖动B2单元格右下角的填充柄到B列的其它单元格区域,即可。

如下图所示:6.通过以上两种方法基本可以满足各种金额大小写转换的要求了关于excel小写变大写的相关文章推荐:。

Excel中金额大小写转换(四舍五入都OK)

Excel中金额大小写转换(四舍五入都OK)

Excel中金额大小写转换编制工程造价很有用编制EXCEL财务表也很有用Excel中金额大小写转换函数[=ntoc(单元格)]一、使用加载宏方法:对于有四舍五入都没问题啊“工具栏”→“宏”→“Visual Basic编辑器”,在“Visual Basic编辑器”中顶部选“插入”→“模块”,在“模块”对话框中选“通用”,并在编辑区域内粘贴以下内容:Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""n = Round(n, 2)sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”,关闭“Visual Basic编辑器”,回到“工作表1”,输入函数“=NtoC(单元格)”即可。

例如在单元格A1输入:A1=222, 在单元格A2输入:A2=NTOC(A1) 即可,这样A1单元格输入的数变化,A2单元格的大写自动变化。

A2单元格最好进行单元锁定。

完美无缺——Excel中转换人民币大写公式

完美无缺——Excel中转换人民币大写公式

Excel中转换人民币大写(公式一)本公式采用IF、ABS、TEXT、INT函数结合国标数据[DBNum2]利用连接符&,严密组合,完成对指定单元格的阿拉伯数字金额数值转换成中文大写,完全符合各种情形的数值转换。

例如:将单元格b6输入如数值1000.2元,在b7单元格输入以下红字:=IF(B6<0,"负","")&IF((ABS(B6))<0.1,(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")& "分"),IF((ABS(B6))<1,(TEXT(INT((ABS(B6))*10)-INT((ABS(B6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")),IF((ABS(B6))>=1,TEXT(INT((ABS(B6))),"[DBNum2]")&"元"&IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"",TEXT(INT((ABS(B6))*10)-INT((ABS(B 6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"零"&TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分",TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")))),则b7单元格显示壹仟元贰角整;如果公式前连接“人民币”,即b7单元格中输入=”人民币”&IF(B6<0,"负","")&IF((ABS(B6))<0.1,(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")& "分"),IF((ABS(B6))<1,(TEXT(INT((ABS(B6))*10)-INT((ABS(B6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",(TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")),IF((ABS(B6))>=1,TEXT(INT((ABS(B6))),"[DBNum2]")&"元"&IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"",TEXT(INT((ABS(B6))*10)-INT((ABS(B 6)))*10,"[DBNum2]")&"角")&IF((INT((ABS(B6))*100)-INT((ABS(B6))*10)*10)=0,"整",IF((INT((ABS(B6))*10)-INT((ABS(B6)))*10)=0,"零"&TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分",TEXT(INT((ABS(B6))*100)-INT((ABS(B6))*10)*10,"[DBNum2]")&"分")))),,则b7单元格显示人民币壹仟元贰角整(公式二)本公式采用IF、ABS、TEXT、TRUNC、ISERR、FIND、RIGHT、LEFT、ROUND 函数结合国标数据[DBNum2]利用连接符&,严密组合,完成对指定单元格的阿拉伯数字金额数值转换成中文大写,完全符合各种情形的数值转换。

excel金额大写自动生成的公式

excel金额大写自动生成的公式

一、介绍Excel金额大写自动生成的公式在日常工作中,我们经常会遇到需要将阿拉伯数字金额转换为大写金额的情况。

而在Excel中,我们可以利用公式来实现这一转换,从而提高工作效率。

本文将介绍Excel中金额大写自动生成的公式的使用方法和注意事项。

二、公式的基本原理1. 在Excel中,可以利用VBA编程语言来编写宏以实现金额大写自动生成的功能。

通过编写相应的VBA代码,可以使Excel自动将输入的数字金额转换为大写金额。

2. 公式的基本原理是将输入的阿拉伯数字金额拆分成整数和小数部分,然后分别进行转换为大写金额,最后将整数和小数部分的大写金额合并为最终结果。

三、公式的具体实现步骤1. 在Excel中,首先需要按下Alt + F11组合键打开VBA编辑器,在项目资源管理器中选择需要添加宏的工作簿。

2. 在选中的工作簿中插入一个新的模块,然后在模块中编写相应的VBA代码。

可以借助搜索引擎查找金额大写自动生成的VBA代码,然后将其粘贴到模块中。

3. 在编写完成VBA代码后,可以利用快捷键Alt + F8来运行宏,或者将宏添加到快速访问工具栏,方便日常使用。

四、注意事项1. 在使用金额大写自动生成的公式时,需要确保输入的金额格式正确,且没有特殊符号和字母等非数字字符。

2. 由于VBA代码的复杂性和灵活性,建议在使用前充分了解其功能和运行原理,以避免出现不必要的错误和问题。

3. 在日常工作中,需要根据具体的需求,对金额大写自动生成的公式进行必要的修改和调整,以满足不同的应用场景。

五、结语通过以上介绍,相信大家对Excel金额大写自动生成的公式有了一定的了解。

在实际工作中,合理利用Excel的功能和公式,可以提高工作效率,减少重复劳动,帮助我们更好地处理各类金额转换的需求。

希望本文的介绍能够对大家有所帮助。

六、如何修改VBA代码以适应不同的需求1. 调整显示格式:根据实际需求,我们可以修改VBA代码中的显示格式,包括小数点后保留位数、显示大写金额的格式等。

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中数字小写换大写方法一:在单元格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单元格):收款单位、金额、用途,其他内容全部自动生成。

Excel转换人民币大小写的方法

Excel转换人民币大小写的方法

Excel转换人民币大小写的方法
大家知道Excel转换人民币大小写吗?下面我们就给大家详细介绍一下吧!我们积累了一些经验,在此拿出来与大家分享下,请大家互相指正。

 一、在三个连续的同行单元格中转换
 1. B2中输入公式=IF(B12. C2中输入=IF(B13. D2中输入=IF(B1这样在连续的三个同行单元格中实现了大写金额格式的转换。

为了使转换符合财务格式,B2应右对齐,C2列宽无间隔,且不设左右边框线,D2要左对齐。

 二、用Excel提供的函数转换
 个位为0,则不显示;不为0,显示XXX元&rdquo;;不为0、且角位和分位均为0,显示XXX元整&rdquo;;元角分位均为0,则显示零元整&rdquo;。

 小数点后面第一位为0、且元位或分位有一为0,则不显示;为0、且元位和分位均不为0,则显示零&rdquo;;不为0,显示X角&rdquo;。

 小数点后面第二位为0,则显示整&rdquo;;不为0,显示X分&rdquo;。

 根据以上思路在B2中输入公式:
 IF(B1IF(B1IF(INT(B1)??(INT(B1??100)-INT(B1??10)??10)=0,”“,” 零”),。

Excel金额大小写转换及保留2位小数的函数公式

Excel金额大小写转换及保留2位小数的函数公式

一、金额大小写转换假设数据源在单元格G5,目标单元格是D1,在D1单元格输入如下公式:=SUBSTITUTE(SUBSTITUTE(IF(G5>-0.5%,,"负")&TEXT(INT(ABS(G5)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(G5),2),"[dbnum2]0角0分;;"&IF(ABS(G5)>1%,"整",)),"零角",IF(ABS(G5)<1,,"零")),"零分","整")其实用下面这个就可以了,依我看上面公式中的&IF(ABS(G5)>1%,"整",)是多余的!=SUBSTITUTE(SUBSTITUTE(IF(G5>-0.5%,,"负")&TEXT(INT(ABS(G5)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(G5),2),"[dbnum2]0角0分;;"),"零角",IF(ABS(G5)<1,,"零")),"零分","整")1、这个公式中用了SUBSTITUTE()、IF()、TEXT()、INT ()、ABS()、RIGHT()、FIXED()七个函数,其中TEXT()函数的两次使用都是运用了高级应用,这也是本公式最难看懂的地方,另个为了符合人民币的读数规则;两次使用了SUBSTITUTE()对出现不符合读数规定的字符用有效字符替换,这一点也很重要。

2、本题的基本思路是:一是用IF函数判断需要转换数据的正、负(如果是正数就不用在数值前显示“正”,负则必须显示“负”字);二是用ABS函数对数据源数值进行求绝对值,然后用IND函数对这个绝对值截取整数部分的数值,再把整数部分的数值交由TEXT函数转换成中文大写;三是对小数部分的数值处理,通过用FIXED函数对源数据进行四舍五入保留2位有效数字并用文本显示,然后用RIGHT 函数将显示的文本从右边截取两位数值(即保留的小数位数据),再把这两位数交由TEXT函数转换成中文大写;四是人民币大写最后有个“整”字也补上。

excel金额转大写的公式用法

excel金额转大写的公式用法

excel金额转大写的公式用法Excel中经常需要把金额转换成大写的形式,具体该怎么用公式进行转换大写格式呢?接下来是小编为大家带来的excel金额转大写的公式用法,供大家参考。

excel金额转大写的公式用法:金额转换大写步骤1:将小写数字转换成大写中文:右击需要转换的单元格,在弹出的快捷菜单中选择设置单元格格式,然后在数字选项卡中选择特殊,在类型中选择中文大写数字,这时候原来的数字为12345,在示例里已变成大写的壹万贰仟叁佰肆拾伍,然后按确定即可。

金额转换大写步骤2:右击需要转换的单元格,在弹出的快捷菜单中选择设置单元格格式,然后在数字选项卡中选择自定义,在类型中写入【[DBNum2][$-804]G/通用格式元整】,同样,在示例里已变成大写的壹万贰仟叁佰肆拾伍,然后按确定即可。

金额转换大写步骤1:= 人民币:[DBNUM2])元整,IF(INT(SUM(E2:E4)*10)-SUM(E2:E4)*10=0,TEXT(INT(SUM(E2 :E4)),[DBNUM2])元[DBNUM2])角整,TEXT(INT(SUM(E2:E4)),[DBNUM2])元零,TEXT(INT(SUM(E2:E4)*10)-INT(SUM(E2:E4))*10,[DBNUM2])角)[DBNUM2])分))(¥元)前后加插了字符串的方法,其中SUM(E2:E4)是一个求合函数,请按实际要求替换为某个单元格或另外的内容。

使用记事本的替换功能就可以了。

看了excel金额转大写的公式用法还看了:1.excel 数字小写转大写公式的教程(2种)2.怎么将Excel2007小写金额转换为大写金额3.怎么利用Excel2013把数字转为中文大写数字4.excel小写换大写函数的教程5.Excel大写字母怎么转换为小写6.excel利用公式数字转换文本的方法7.Excel2007中怎么让单元格英文小写转为大写。

excel函数大写金额公式

excel函数大写金额公式

excel函数大写金额公式
在Excel中,我们经常需要将数字转换为大写金额。

这种转换通常用于财务报表、合同等场合。

在本文中,我们将介绍如何使用Excel 函数将数字转换为大写金额。

步骤1:打开Excel,并输入需要转换的数字。

步骤2:在单元格中输入以下公式:=大写金额(A1)
其中,A1是需要转换的数字所在的单元格。

步骤3:按下回车键,将显示转换后的大写金额。

例如,如果输入数字1000,则公式将显示“壹仟元整”。

这是因为大写金额公式将数字转换为其对应的汉字,如“壹”代表“1”,“仟”代表“1000”,“整”代表“0”。

总之,使用Excel函数大写金额公式可以方便快捷地将数字转换为大写金额,使财务报表等文档更加规范和易于阅读。

- 1 -。

在excel中数值转换成人民币金额大写的公式

在excel中数值转换成人民币金额大写的公式
其中E13是单元格,只需将以上公式复制到“记事本”,然后利用“编辑”菜单中的“Biblioteka 换”来换成你所需转换的单元格即可。
其中e13是单元格只需将以上公式复制到记事本然后利用编辑菜单中的替换来换成你所需转换的单元格即可
在excel中数值转换成人民币金额大写的公式
在excel中数值转换成人民币金额大写的公式
=IF((INT(E13*10)-INT(E13)*10)=0,TEXT(INT(E13),"[DBNum2]G/通用格式")&"元"&IF((INT(E13*100)-INT((E13)*10)*10)=0,"整","零"&TEXT(INT(E13*100)-INT(E13*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(E13),"[DBNum2]G/通用格式")&"元"&IF((INT(E13*100)-INT((E13)*10)*10)=0,TEXT((INT(E13*10)-INT(E13)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(E13*10)-INT(E13)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(E13*100)-INT(E13*10)*10,"[DBNum2]G/通用格式")&"分"))

excel小写转大写金额的三种常见方法Excel人民币金额自动大写

excel小写转大写金额的三种常见方法Excel人民币金额自动大写

excel小写转大写金额的三种常见方法Excel人民币金额自动大写之前有财务岗的伙伴问过小雅这个问题,在工作中经常要填写中文大写金额,如果一个个填写大写金额,既耗时费力,又事半功倍。

并且面对大量数据,效率低下且极易出错。

今天小雅休息,给大家整理出来一起学习。

第一,单元格格式转大写金额1、将A列的数字小写金额,复制到B列,单击右键,选择设置单元格。

2、在左侧的类别栏中,单击:特殊,就会在右侧出现类型,选择---中文大写数字即可。

总结:这种excel自动大写金额方法优势在于速度快,不过如果带转换的小写数字含有小数,则会出错。

该方法只适合整数的转换。

第二, Numberstring函数转大写金额在Excel中有一个隐藏函数:numberstring函数,专门用来将小写数字金额转为大写金额的函数。

其函数语法为:Numberstring(number,参数),有三种参数,分别为1、2、3,其对应的转为大写的格式分别为中文大写金额,会计大写金额,数学大写金额。

请参考下面小雅的截图:总结:excel人民币金额大写使用到了numberstring函数,仅能将整数部分转为大写,无法将小数部分也转为大写金额,小数部分将四舍五入到整数部分。

第三,公式转大写金额我们在B2中输入公式:=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A2),"[DBNum2][$-804]G/通用格式元"&IF(INT(A2)=A2,"整",""))&TEXT(MID(A2,FIND(".",A2&".0")+1,1),"[DBNum2][$-804]G/通用格式角")&TEXT(MID(A2,FIND(".",A2&".0")+2,1),"[DBNum2][$-804]G/通用格式分"),"零角","零"),"零分","")按回车键,双击之后就能自动填充,迅速将小写的数字金额转为标准的会计的大写数字金额。

EXCEL金额大小写转换公式大全

EXCEL金额大小写转换公式大全

EXCEL金额大小写转换公式大全在Excel中,可以使用以下公式将金额从数字形式转换为大写形式:1.数字转换为大写金额:=IF(A1<0,"负","")&NUMBERTEXT(ABS(A1))这个公式将数字转换为大写金额。

如果数字为负数,则在转换后的金额前面加上“负”字样。

2.人民币大写金额:=TEXT(NUMBERTEXT(A1),"[DBNum2][$¥-804]")&"整"此公式将数字转换为人民币大写金额,并在金额后面加上“整”字样。

3.美元大写金额:=TEXT(A1,"[$-409]0")&"美元整"此公式将数字转换为美元大写金额,并在金额后面加上“美元整”字样。

4.英文大写金额:=PROPER(TEXT(A1,"[ENG11A]General Number")) & " DOLLARS"此公式将数字转换为英文大写金额,并在金额后面加上“DOLLARS”。

5.澳大利亚元大写金额:=TEXT(A1,"[$-C09]0") & " Australian Dollars"此公式将数字转换为澳大利亚元大写金额,并在金额后面加上“Australian Dollars”。

6.日元大写金额:=TEXT(A1,"[$¥-411]")&"日元整"此公式将数字转换为日元大写金额,并在金额后面加上“日元整”。

7.欧元大写金额:=TEXT(A1,"[$€-40C]")&"欧元整"此公式将数字转换为欧元大写金额,并在金额后面加上“欧元整”。

8.加拿大元大写金额:=TEXT(A1,"[$C0A]") & " Canadian Dollars"此公式将数字转换为加拿大元大写金额,并在金额后面加上“Canadian Dollars”。

Excel中金额大小写转换(解决负数无法显示问题)

Excel中金额大小写转换(解决负数无法显示问题)

Excel中金额大小写转换(解决负数无法显示问题)一、Excel自动转换数字大小写具体的操作步骤如下:1. 启动excel。

按“alt+f11”快捷键打开“visual basic编辑器”。

2. 在“visual basic编辑器”中,单击“插入”菜单栏中的“模块”命令,插入一个模块。

双击左侧“工程”窗口中的“模块1”选项,在窗口右边展开“模块1(代码)”编辑窗口,然后输入如下代码:Function NtoC(n) 'n as singleConstcNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"ConstcCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function3.练习A1=-10135.33 A2=NTOC(ABS(A1))二、Excel中金额大小写转换公式公式1:“=IF(ROUND(E19,2)=0,"",IF(ROUND(ABS(E19),2)>=1,TEXT(INT(ROUND(ABS(E19),2)),"[DBNum2]" )&"元","")&IF(RIGHT(TEXT(E19,".00"),2)*1=0,"整",IF(RIGHT(TEXT(E19,".00"),4)*1>=1,IF(RIGHT(TEXT(E19,".00"),2)*1>9,"","零"),IF(ROUND(ABS(E19),2)>=1,"零",""))&IF(RIGHT(TEXT(E19,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(E19,".00"),2)),"[DBNum2]")&"角","")&IF(RIGHT(TEXT(E19,".00"))*1>0,TEXT(RIGHT(TEXT(E19,".00")),"[DBNum2]")&"分","整")))”公式2:“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零"),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))”公式3:“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))”。

excel金额大小写转换函数

excel金额大小写转换函数

excel金额大小写转换函数
Excel中有一个非常有用的函数,可以将数字金额转换为中文大写金额,这个函数就是“大写金额”函数。

该函数可以让你在Excel 中快速地将数字金额转换为大写的中文金额,并可以自动将结果显示在相应的单元格中。

使用该函数非常简单,只需要在需要转换的单元格中输入函数,然后按下回车键即可。

大写金额函数的基本语法如下:
=大写金额(数字)
其中“数字”参数是需要转换的金额,可以是一个单元格引用或直接输入的数值。

例如,如果要将1000元转换为大写金额,可以在单元格中输入以下公式:
=大写金额(1000)
Excel会自动计算并显示结果“壹仟元整”。

此外,大写金额函数还支持自定义数字和货币单位的方式,可以根据需要进行相应的设置。

例如,可以使用以下公式将数字和货币单位分别设置为单元格A1和B1中的值:
=大写金额(A1,B1)
这样就可以根据需要将转换结果显示为“一千美元整”或“壹仟元整”等。

总之,大写金额函数是Excel中非常实用的一个功能,可以帮助你快速、准确地将数字金额转换为中文大写金额,提高工作效率。

- 1 -。

Excel中金额大小写转换

Excel中金额大小写转换

Excel中金额大小写转换一、Excel中金额大小写转换公式公式1:="人民币"&IF(ROUND(G8,2)=0,"",IF(ROUND(ABS(G8),2)>=1,TEXT(INT(ROUND(ABS(G8),2)),"[DB Num2]")&"元","")&IF(RIGHT(TEXT(G8,".00"),2)*1=0,"整",IF(RIGHT(TEXT(G8,".00"),4)*1>=1,IF(RIGHT(TEXT(G8,".00"),2)*1>9,"","零"),IF(ROUND(ABS(G8),2)>=1,"零",""))&IF(RIGHT(TEXT(G8,".00"),2)*1>9,TEXT(LEFT(RIGHT(TEXT(G8,".00"),2)),"[DBNum 2]")&"角整","")&IF(RIGHT(TEXT(G8,".00"))*1>0,TEXT(RIGHT(TEXT(G8,".00")),"[DBNum2]")&"分整","")))公式2:“=IF(F4<1,IF(F4<0.1,TEXT(INT(F4*100),"[DBNum2]G/通用格式")&"分",IF((INT(F4*100)-INT(F4*10)*10=0),TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(F4*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(F4),"[DBNum2]G/通用格式"&"元")&IF((INT(F4*10)-INT(F4)*10)=0,IF((INT(F4*100)-INT(F4*10)*10)=0,"","零"),IF((INT(F4*0.1)-INT(F4)*0.1)=0,"零","")&TEXT(INT(F4*10)-INT(F4)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(F4*100)-INT(F4*10)*10)=0,"整",TEXT(INT(F4*100)-INT(F4*10)*10,"[DBNum2]G/通用格式")&"分"))”公式3:“=IF(B10<1,IF(B10<0.1,TEXT(INT(B10*100),"[DBNum2]G/通用格式")&"分",IF((INT(B10*100)-INT(B10*10)*10=0),TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(B10*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(B10),"[DBNum2]G/通用格式"&"元")&IF((INT(B10*10)-INT(B10)*10)=0,IF((INT(B10*100)-INT(B10*10)*10)=0,"","零"),IF((INT(B10*0.1)-INT(B10)*0.1)=0,"零","")&TEXT(INT(B10*10)-INT(B10)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(B10*100)-INT(B10*10)*10)=0,"整",TEXT(INT(B10*100)-INT(B10*10)*10,"[DBNum2]G/通用格式")&"分"))”二、Excel中金额大小写转换函数[=ntoc(单元格)]使用加载宏方法:“工具栏”→“宏”→“Visual Basic编辑器”,在“Visual Basic编辑器”中顶部选“插入”→“模块”,在“模块”对话框中选“通用”,并在编辑区域内粘贴以下内容:Function NtoC(n) 'n as singleConst cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"NtoC = ""sNum = Trim(Str(Int(n * 100)))For i = 1 To Len(sNum) '逐位转换NtoC = NtoC + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)NextFor i = 0 To 11 '去掉多余的零NtoC = Replace(NtoC, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))NextEnd Function然后单击“保存”,关闭“Visual Basic编辑器”,回到“工作表1”,输入函数“=NtoC(单元格)”即可。

excel

excel

Excel中人民币小写金额转换大写技巧两则作者:webmaster时间:2004-8-20 10:50:37文/张丕南要将人民币小写金额转换成大写格式,用Excel提供的格式,将自定义格式类型中的“[dbnum2]G/通用格式”改为“[dbnum2] G/通用格式“元””来实现。

但在转换小数时却出现了问题,比如¥6,050.09只能转换为“陆仟零伍拾.零玖圆”。

那么用Excel能不能解决这一先天不足呢?其方法有以下两种(以下均对B1转换,假设B1是通过函数ROUND( )四舍五入取得二位小数的小写金额数,其值为¥6,050.09)。

一、在三个连续的同行单元格中转换1. B2中输入公式“=IF(B1<0,"金额为负无效",INT(B1))”,计算结果为¥6,050.00,然后点击“格式→单元格→数字→特殊→中文大写数字→确定”,B2显示“陆仟零伍拾”,再点击“格式→单元格→数字→自定义”,将“类型”编辑框中的“[dbnum2]G/通用格式”修改为:[dbnum2](“人民币”)G/通用格式“元”,此时B2显示:“(人民币)陆仟零伍拾元”。

2. C2中输入“=IF(B1<0,"",INT(B1 10)-INT(B1) 10)”,同样C2改为:[DBNum2]G/通用格式“角”,C2显示:“零角”。

3. D2中输入“=IF(B1<0,"",INT(B1 100)-INT(B1 10) 10)”,同样D2改为:[DBNum2]G/通用格式“分”, D2显示:“玖分”。

这样在连续的三个同行单元格中实现了大写金额格式的转换,如图1所示。

为了使转换符合财务格式,B2应右对齐,C2列宽无间隔,且不设左右边框线,D2要左对齐。

二、用Excel提供的函数转换个位为0,则不显示;不为0,显示“XXX元”;不为0、且角位和分位均为0,显示“XXX 元整”;元角分位均为0,则显示“零元整”。

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