[分享]数字转中文大写金额的加载宏

红池坝 · 发表于 2005-5-23 22:41:00

试试这个公式：=IF(A1=0,"零元整",IF(A1<0,"负",)&IF(INT(ABS(A1)),TEXT(INT(ABS(A1)),"[dbnum2]")&"元",)&IF(INT(ABS(A1)*10)-INT(ABS(A1))*10,TEXT(INT(ABS(A1)*10)-INT(ABS(A1))*10,"[dbnum2]")&"角",IF(INT(ABS(A1))=ABS(A1),,"零"))&IF(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),TEXT(ROUND(ABS(A1)*100-INT(ABS(A1)*10)*10,),"[dbnum2]")&"分","整"))

红池坝 · 发表于 2005-5-30 22:34:00

要说功能强大，还是这个最牛的：http://www.office-cn.net/Article/Class5/Class16/200411/644.html

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] [分享]数字转中文大写金额的加载宏

浏览过的版块

群介绍
主题无相 (随机显示版	同地区群块其他地区)