如水博客提供网络营销顾问服务与电子商务系统实施!

Excel数字小写金额转换汉字大写金额公式的简单设置

Excel数字小写金额转换汉字大写金额公式在会计工作中是经常应用到的,它能提高工作效率和会计数据的准确性。

网上有很多设置Excel数字小写金额转汉字大写金额公式的方法,基本上都很繁琐,且功能不全面(对负金额不能转换)。

本人在Excel会计工作实践中,设计了一个数字小写金额转换汉字大写金额的公式,公式仅500多个字符,个人感觉还很满意,现拿出来供大家分享,不足之处,也请大家不吝赐教。

公式如下:

=IF(ROUND(A1,2)=0,"",IF(A1<0,"负","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"元","")&IF(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),"###"),2),1,1))=0,IF(VALUE(RIGHT(TEXT(ABS(A1)*100,"###"),1))=0,"整",IF(ABS(A1)>=1,"零","")&TEXT(VALUE(RIGHT(TEXT(ABS(A1)*100,"###"),1)),"[dbnum2]")&"分"),IF(VALUE(RIGHT(TEXT(ABS(A1)*100,"###"),1))=0,TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),"###"),2),1,1)),"[dbnum2]")&"角整",TEXT(VALUE(MID(RIGHT(TEXT((ABS(A1)*100+100),"###"),2),1,1)),"[dbnum2]")&"角"&TEXT(VALUE(RIGHT(TEXT(ABS(A1)*100,"###"),1)),"[dbnum2]")&"分")))

公式中A1为小写金额所在单元格,实际使用中只需将其替换为实际小写金额所在单元格即可,非常方便。

公式可以对正数、零(本公式转换为空白,与支票一致,如需转换为“零元整”,只需在公式第一个双引号内加入即可)、负数(会计数据有时也涉及到)均可进行转换。

最近,在网上看到高手设计的更简洁的转换公式,缺点是只能把“0”转换为空白,不能转换为“零元整”,公式如下:

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

将以上两个公式结合一下,达到既简短,又能达到“0”的空白和“零元整”两种(根据需要只能选其中一种)转换结果的目的。公式如下:

=IF(ROUND(A1,2)=0,"",IF(A1<0,"负","")&IF(ABS(A1)>=1,TEXT(INT(ROUND(ABS(A1),2)),"[dbnum2]")&"元","")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整"))

以上三个公式的转换效果是一样的,如下图所示:


标签:Excel
分类:技术专栏| 发布:如水| 查看: | 发表时间:2010-8-19
原创文章如转载,请注明:转载自如水博客 http://www.rushui.net/
本文链接:http://www.rushui.net/article/225.htm

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

1 #飘云
飘云 第三个公式我用了很好用。谢谢!!!
2011-9-30 21:48:44 【REPLY】

沪ICP备09044163号  

神奇网络 如水