主页 > 办公自动化 > 小写金额自动生成大写金额

小写金额自动生成大写金额

2023-01-27 02:01来源:m.sf1369.com作者:宇宇

一、小写金额自动生成大写金额

可 以用以下这个公式:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,;负)&TEXT(INT(ABS(A1)+0.5%),[dbnum2]G/通用格式元;;)&TEXT(RIGHT(RMB(A1,2),2),[dbnum2]0角0分;;整),),零角,IF(A1^2<1,,零)),万,IF(AND(MOD(ABS(A1%),1000)<100,MOD(ABS(A1%),1000)>=10),万零,万)),零分,整)

二、Excel 有小数点的数字怎么变成大写

你好,你可以通过设置单元格属性变成大写。

对单元格右键——>设置单元格属性->特殊里的中文大写数字

三、如何记住EXCEL中将阿拉伯数字变成大写的公式

选中A2,然后设公式等于A1 ,再选A2,-右键-设置单元格格式-特殊-中文大写数字-确定

四、Excel大写金额有小数点的怎么处理

如果你说的意思是需要转换的大写金额是有小数点的数字,请参考如下公式:=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),[>0][dbnum2];[1%,元整,)),零角,IF(ABS(A1)

全部

五、如何将小写金额转换成大写金额

  但是问题是“元\角\分”还是没能正常显示!

尤其是在支票之类的财会领域。

有答案了:

在excel中A2单元格输入以下代码

=IF((A1-INT(A1))=0,¥&TEXT(A1,[DBNUM2])&元整,IF(INT(A1*10)-A1*10=0,¥&TEXT(INT(A1),[DBNUM2])&元&TEXT((INT(A1*10)-INT(A1)*10),[DBNUM2])&角整,¥&TEXT(INT(A1),[DBNUM2])&元&IF(INT(A1*10)-INT(A1)*10=0,零,TEXT(INT(A1*10)-INT(A1)*10,[DBNUM2])&角)&TEXT(RIGHT(A1,1),[DBNUM2])&分))

随后在A1为输入金额大小,A2就自动跳出你所需的文字了。

  

A1:

  14

A2:

¥壹仟贰佰壹拾陆亿伍仟肆佰陆拾伍万壹仟叁佰贰拾肆元壹角肆分

============

代码更改如下:

=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(ROUND(A2,2),1),[DBNUM2])&分))

我觉得alkaid_pku你的那个=号用的很不错,可以借鉴!谢谢提示!

但是其实只要在TEXT(RIGHT后加一个(ROUND(A2,2)->TEXT(RIGHT(ROUND(A2,2),1)

就可以了不用写那么复杂的公式的

这个公式应该也可以的吧?

==============

结合两人的优点最后得出的最简单的公式:

=IF(A2=INT(A2),¥&TEXT(A2,[DBNUM2])&元整,IF(INT(A2*10)=A2*10,¥&TEXT(INT(A2),[DBNUM2])&元&TEXT((INT(A2*10)-INT(A2)*10),[DBNUM2])&角整,¥&TEXT(INT(A2),[DBNUM2])&元&IF(INT(A2*10)=INT(A2)*10,零,TEXT(INT(A2*10)-INT(A2)*10,[DBNUM2])&角)&TEXT(RIGHT(ROUND(A2,2),1),[DBNUM2])&分))

对了,最后忘记写了,金额的封口如果不是需要“¥”的话可以使用excel中的替换(ctrl+h)将公式中的“¥”替换成“RMB”“人民币”或其它。

哇。楼上的讲得很详细了。楼主,你还不谢谢人家

像\仟\佰\拾\元\角\分格式,用在支票之类的财会领域,哪位大侠知道.

楼上的回答非常完美

六、EXCEl中如何用函数把金额用大写来统计?

excel 数字金额自动变大写金额

=IF(ROUND(A2,2)<0,无效数值,IF(ROUND(A2,2)=0,零,IF(ROUND(A2,2)<1,,TEXT(INT(ROUND(A2,2)),[dbnum2])&元)&IF(INT(ROUND(A2,2)*10)-INT(ROUND(A2,2))*10=0,IF(INT(ROUND(A2,2))*(INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10)=0,,零),TEXT(INT(ROUND(A2,2)*10)-INT(ROUND(A2,2))*10,[dbnum2])&角)&IF((INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10)=0,整,TEXT((INT(ROUND(A2,2)*100)-INT(ROUND(A2,2)*10)*10),[dbnum2])&分)))

=IF(ROUND(A1,2)<0,无效数值,IF(ROUND(A1,2)=0,零,IF(ROUND(A1,2)<1,,TEXT(INT(ROUND(A1,2)),[dbnum2])&元)&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,,零),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,[dbnum2])&角)&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,整,TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),[dbnum2])&分)))

=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),[>0][dbnum2];[<0]负[dbnum2];;)&TEXT(RIGHT(FIXED(A1),2),元[dbnum2]0角0分;;&IF(ABS(A1)>1%,元整,)),零角,IF(ABS(A1)<1,,零)),零分,整)

相关推荐

企业办公软件都有哪些?

办公自动化 2024-01-14

数控车床自动编程用什么软件?

办公自动化 2024-01-12

写字间物业管理方案

办公自动化 2023-12-09

自动化的好处和坏处

办公自动化 2023-12-05

单片机有什么特征?

办公自动化 2023-11-27

excel2007教程|excel2007教程下载

办公自动化 2023-11-22