帮忙写成函数

chuting · 发表于 2004-12-7 17:07:00

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

http://www.office-cn.net/forum.php?mod=viewthread&tid=21684

chuting · 发表于 2004-12-7 17:10:00

VBA的这样公用性更好谢谢昴日星君

老鬼 · 发表于 2004-12-7 20:07:00

小写转大写金额加载宏：

chuting · 发表于 2004-12-9 15:45:00

楼上，加载宏以后怎么用啊，看到小写转大写金额函数了

老鬼 · 发表于 2004-12-9 20:20:00

加载后将产生一个BIGNUM()的函数，在函数里输入数字，如BIGNUM(12.34)，或引用其他单元格的数字，如BIGNUM(A1)，就可以将阿拉伯数字转化成中文大写金额。

chuting · 发表于 2004-12-19 20:01:00

多谢！！！

chuting · 发表于 2004-12-19 20:06:00

提示（在Round处子程序或函数未定义，为什么

chuting · 发表于 2004-12-19 20:10:00

还有VBA的密码提示

老鬼 · 发表于 2004-12-20 01:54:00

在我的电脑上测试并没问题，VBA的密码用OFFICE KEY破解一下，我也忘了是什么密码了。

joyark · 发表于 2011-7-3 22:03:02

不太明白含义,能否举个例子说明一下

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

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

主题相关群

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

帮忙写成函数

本帖子中包含更多资源

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