金额中文式大写公式设计

黄其宾

在很多票据中，需要有中文式金额大写，在设计票据时，已经自动计算金额小写的前提下，每张票据都要用手工录入金额大写，实在太麻烦，以下演示，可以解决这个问题。

 

ib30Bbzn.rar (2.04 KB, 下载次数: 121)

2007-11-21 15:09 上传

点击文件名下载附件
金额中文式大写公式设计

ychexcel

多谢楼主分享!

little-key

还有一个方法就是使用7行的自定义函数

franceperso

很是简单实用

离嗔居士

=IF((INT(A1111*10)-INT(A1111)*10)=0,TEXT(INT(A1111),"[DBNum2]G/通用格式")&"元"&IF((INT(A1111*100)-INT((A1111)*10)*10)=0,"整","零"&TEXT(INT(A1111*100)-INT(A1111*10)*10,"[DBNum2]G/通用格式")&"分"),TEXT(INT(A1111),"[DBNum2]G/通用格式")&"元"&IF((INT(A1111*100)-INT((A1111)*10)*10)=0,TEXT((INT(A1111*10)-INT(A1111)*10),"[DBNum2]G/通用格式")&"角整",TEXT((INT(A1111*10)-INT(A1111)*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A1111*100)-INT(A1111*10)*10,"[DBNum2]G/通用格式")&"分"))

金额的数字在哪个单元格就将“A1111”换成哪个单元格！

linbijun

楼主和5楼的方法都不错,学习了!

BobPan

收获：

从不知道还有NUMBERSTRING这个函数,实用

学习！！！

wshcw

楼主加油呀!

公式在不考虑负值和角分后面出现厘毫的情况下,公式长度用126个字符可以搞定.
假定A1输入金额,则大写公式:
=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(A1/1%,2),"[dbnum2]0角0分;;"&IF(A1,"整",)),"零角","零"),"零分","整")

全面考虑也只需181个字符,就可以搞定.

参考:

百度EXCEL吧精华区就有最短的: http://tieba.baidu.com/f?kz=337413440

[此贴子已经被作者于2008-7-11 21:22:12编辑过]

aichong

QUOTE:

以下是引用wshcw在2008-7-11 19:45:10的发言：

楼主加油呀!

公式在不考虑负值和角分后面出现厘毫的情况下,公式长度用126个字符可以搞定.
假定A1输入金额,则大写公式:
=SUBSTITUTE(SUBSTITUTE(TEXT(INT(A1),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(A1/1%,2),"[dbnum2]0角0分;;"&IF(A1,"整",)),"零角","零"),"零分","整")

全面考虑也只需181个字符,就可以搞定.

参考:

百度EXCEL吧精华区就有最短的: http://tieba.baidu.com/f?kz=337413440

谢谢分享！把全面考虑的也贴过来吧：

QUOTE:

全面考虑也只需181个字符,就可以搞定：

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

scgyems

长见识！