Sam工作室电脑技术区实用技巧在EXCEL中实现自动大写金额
    
 
在EXCEL中实现自动大写金额
发起人:Samhelp  回复数:5  浏览数:3625  最后更新:2007/1/4 9:43:04 by Samhelp

选择查看 搜索更多相关主题  帖子排序:
2005/12/21 21:10:18
Samhelp







角  色:管理员
发 帖 数:6156
经 验 值:15993
注册时间:2004/8/23
当前状态:离线
在EXCEL中实现自动大写金额

在EXCEL中实现大写金额

方法一

思路:假设要转换的为一正数,则任何一个大写金额均由元位、角位和分位组成。

元位为0,则不显示;不为0,显示“XXX元”(如:壹佰贰拾叁圆)

角位为0、且元位或分位有一为0,则不显示;为0、且元位和分位均不为0,则显示“零”;角位不为0,显示“X角”。

分位为0,则显示“整”;不为0。显示“X分”。

考虑到负数、零值和超过两位的小数,最后公式如下:(假设对A1中的数字进行转换)

=IF(ROUND(A1,2)<0,"无效数值",IF(ROUND(A1,2)=0,"零",IF(ROUND(A1,2)<1,"",TEXT(INT(ROUND(A1,2)),"[dbnum2]")&"元")&IF(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10=0,IF(INT(ROUND(A1,2))*(INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"","零"),TEXT(INT(ROUND(A1,2)*10)-INT(ROUND(A1,2))*10,"[dbnum2]")&"角")&IF((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10)=0,"整",TEXT((INT(ROUND(A1,2)*100)-INT(ROUND(A1,2)*10)*10),"[dbnum2]")&"分")))


方法二

=SUBSTITUTE(SUBSTITUTE(IF(A2<0,"负","")&TEXT(TRUNC(ABS(ROUND(A2,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A2,2))),"",TEXT(RIGHT(TRUNC(ROUND(A2,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A2,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A2,2),3))=".",TEXT(RIGHT(ROUND(A2,2)),"[DBNum2]")&"分",IF(ROUND(A2,2)=0,"","整")),"零元零",""),"零元","")

网内存知己,天涯若比邻
2006/1/24 18:12:04
卉子一Z







角  色:VIP会员
发 帖 数:678
经 验 值:15121
注册时间:2005/7/23
当前状态:离线
函数公式有点头痛

墙头枝张扬,满园新卉生.
且待伊人灌,两心安可乐.

http://fillcola.poco.cn
______________________.___
2006/7/21 17:26:35
wenger_427







角  色:普通会员
发 帖 数:3
经 验 值:9
注册时间:2006/7/21
当前状态:离线

不错

2006/12/14 8:59:44
三天雨







角  色:超级版主
发 帖 数:1210
经 验 值:5075
注册时间:2004/9/14
当前状态:离线
Re:在EXCEL中实现自动大写金额

 

看到头大了

曾在CBS上班时也用过,不过都忘了。

 

你的只言片语,就是给予了我们最大的鼓励!
永做SAM兄的真诚支持者,三天雨阅贴必回也!
2006/12/16 10:46:55
FLY微微







角  色:VIP会员
发 帖 数:290
经 验 值:783
注册时间:2006/11/23
当前状态:离线
Re:在EXCEL中实现自动大写金额

復雜,簡單一點好不

笑五系理所當然的,所以要珍惜每一個笑的機會
2006/12/28 10:56:31
三天雨







角  色:超级版主
发 帖 数:1210
经 验 值:5075
注册时间:2004/9/14
当前状态:离线
Re:在EXCEL中实现自动大写金额

如果不用写到角分的话,那就简单多了:

1、在设置单元格格式里选择自定义

2、在类型里选择G/通用格式

3、将“G/通用格式”改为“人民币大写:[DBNum2]G/通用格式元整”即可。(其实完正格式我已忘了,但整数的话如此设定还是没问题的)

你的只言片语,就是给予了我们最大的鼓励!
永做SAM兄的真诚支持者,三天雨阅贴必回也!




  •  
  • 联系我们 - Sam工作室 - 论坛存档 - 返回顶部
    Powered by BBSdiy 3.15 MySQL © 2004-2019 Sam工作室
  • 粤ICP备05004044号
    Processed in 0.20 second(s)