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

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,,"零")),"零分","整"))以上三个公式的转换效果是一样的，如下图所示：