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

Excel数字小写金额转换汉字大写金额公式的简单设置 来源： 葛翔的日志 Excel数字小写金额转换汉字大写金额公式在会计工作中是经常应用到的，它能提高工作效率和会计数据的准确性。网上有很多设置Excel数字小写金额转汉字大写金额公式的方法，基本上都很繁琐，且功能不全面（对负金额不能转换）。本人在Excel会计工作实践中，设计了一个数字小写金额转换汉字大写金额的公式，公式仅500多个字符，个人感觉还很满意，现拿出来供大家分享，不足之处，也请大家不吝赐教。公式如下：=IF(ROUND(A1,2)=0,,IF(A10,负,)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(A10,,负)TEXT(INT(ABS(A1)+0.5%),[dbnum2]G/通用格式元;;)TEXT(RIGHT(RMB(A1,2),2),[dbnum2]0角0分;;整),),零角,IF(A1^21,,零)),零分,整)将以上两个公式结合一下，达到既简短，又能达到“0”的空白和“零元整”两种（根据需要只能选其中一种）转换结果的目的。公式如下：=IF(ROUND(A1,2)=0,,IF(A10,负,)IF(ABS(A1)=1,TEXT(INT(ROUND(ABS(A1),2)),[dbnum2])元,)SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1,2),2),[dbnum2]0角0分;;整),零角,IF(A1^21,,零)),零分,整))以上三个公式的转换效果是一样的.