EXCEL中小写金额转换成中文大写的一种方法

作者：六鬼子

    今天单位的会计要使用EXCEL实现金额小写到大写的的转换，我在网络上收罗了一会，感觉没有非常好用和适合我们使用的。刚好下午不忙，而且这个工作是一劳永逸的事情，我写完了他们以后就不会因为这个问题来麻烦我了，并不是我不喜欢为别人服务，只是由于工作太忙，由于这个经常出现的小问题与同事伤了和气也不值得。
    我经常在网络上下载资源，非常感谢那些活雷锋，尤其也经常在CSDN上下载资料。今天自己也写个小文章以方便自己和他人的日后工作。于是自己写了一种实现EXCEL中小写金额转换成中文大写的的方法，具体的想法和语句请看下面的文章。

【主体算法思路】：
金额是否为零，为零则输出“零元整”；不为零，则按照元、角、分单位进行分类处理

具体的思路分析如下：

【"元"处理】：    
（算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写
IF(TRUNC(ABS(L13))=0,"",(TEXT(TRUNC(ROUND(ABS(L13),2)),"[DBNum2]")&"元"))

（算法描述）是否存在小数点，不存在，返回值为空；存在，则对角和分进行处理
IF(ISERR(SEARCH(".",ROUND(ABS(L13),2))),"",对角和分进行处理)

【对"角"处理】：
（算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写

IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+1),1)="0","","对角进行处理")

【具体的语句】：
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+1),1)="0","",(TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*10)),"[DBNum2]")&"角"))

【"角"是否为零】：
MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+1),1)="0"

【对"角"进行处理】：
TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*10)),"[DBNum2]")&"角"


【对"分"处理】：  （算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+2),1)="0","","对分进行处理")

【具体的语句】：
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+2),1)="0","",TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*100)),"[DBNum2]")&"分")

【"分"是否为零】：
MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+2),1)="0"

【对"分"进行处理】：
TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*100)),"[DBNum2]")&"分"

【最后合成算法】：
金额是否为零，为零则输出“零元整”；
不为零，则按照元、角、分单位进行分类处理
        （算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写
        （算法描述）是否存在小数点，不存在，返回值为空；存在，则对角和分进行处理
        （算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写
        （算法描述）整数部分是否为零，为零则输出空值，不为零则转换成大写
【最后合成的语句是】：

IF(L13<0," 负","")
&IF(L13=0,"零元",
(IF(TRUNC(ABS(L13))=0,"",(TEXT(TRUNC(ROUND(ABS(L13),2)),"[DBNum2]")&"元"))&
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+1),1)="0","",(TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*10)),"[DBNum2]")&"角"))&
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+2),1)="0","",TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*100)),"[DBNum2]")&"分")))&"整"

【说明】：
1.其中 L13 是输入小写金额的单元格；
2.将上面的语句拷贝到其他（非L13）单元格，并在语句的最前面添加 = 就可以了使用了，即 ：
=IF(L13<0," 负","")
&IF(L13=0,"零元",
(IF(TRUNC(ABS(L13))=0,"",(TEXT(TRUNC(ROUND(ABS(L13),2)),"[DBNum2]")&"元"))&
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+1),1)="0","",(TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*10)),"[DBNum2]")&"角"))&
IF(MID(TEXT(ROUND(ABS(L13),2),"0.00"),(SEARCH(".",TEXT(ABS(L13),"0.00"))+2),1)="0","",TEXT(RIGHT(TRUNC(ROUND(ABS(L13),2)*100)),"[DBNum2]")&"分")))&"整"