EXCEL中小写金额转换成中文大写的一种方法
2008-10-16 18:56
459 查看
[align=right]作者:六鬼子
[/align]
今天单位的会计要使用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]")&"分")))&"整"
[/align]
今天单位的会计要使用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]")&"分")))&"整"
相关文章推荐
- 将小写金额转换成中文大写金额的方法
- 在英文版的excel中把数字转换成中文金额大写
- C# 货币金额中文(英文)大写转换方法-工具类
- Oracle实现小写金额转换成大写的方法
- Java中实现数字金额到中文大写字符的转换!!
- js怎么把数字金额转换中文大写金额
- 将小写金额转换为中文大写
- JS将数字金额转换为中文大写
- C#写的将阿拉伯数字转换成中文大写金额代码
- JavaScript将数字转换成大写中文的方法
- android 金额输入验证(阿拉伯数字转换中文大写)
- 关于转换大写中文金额-新学的java函数整理
- 将小写金额转换为中文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数
- 阿拉伯数字转换成中文大写金额
- c#金额转换成中文大写金额 .Net开发Windows服务
- java代码:金融系统中,将数字转换成中文金额大写形式
- java实现金额数字转换为中文大写
- 将小写金额转换为中文大写的SQL函数
- 将小写金额转换为中文大写的SQL函数