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),万零,万)),零分,整)
你好,你可以通过设置单元格属性变成大写。
对单元格右键——>设置单元格属性->特殊里的中文大写数字
选中A2,然后设公式等于A1 ,再选A2,-右键-设置单元格格式-特殊-中文大写数字-确定
如果你说的意思是需要转换的大写金额是有小数点的数字,请参考如下公式:=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 数字金额自动变大写金额
=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,,零)),零分,整)