Office中国论坛/Access中国论坛

标题: 帮忙写成函数 [打印本页]

作者: chuting 时间: 2004-12-7 17:07
标题: 帮忙写成函数
=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
VBA的这样公用性更好谢谢昴日星君

作者: 老鬼 时间: 2004-12-7 20:07
小写转大写金额加载宏：[attach]7989[/attach]

作者: chuting 时间: 2004-12-9 15:45
楼上，加载宏以后怎么用啊，看到小写转大写金额函数了

作者: 老鬼 时间: 2004-12-9 20:20
加载后将产生一个BIGNUM()的函数，在函数里输入数字，如BIGNUM(12.34)，或引用其他单元格的数字，如BIGNUM(A1)，就可以将阿拉伯数字转化成中文大写金额。

作者: chuting 时间: 2004-12-19 20:01
多谢！！！

作者: chuting 时间: 2004-12-19 20:06
提示（在Round处子程序或函数未定义，为什么

作者: chuting 时间: 2004-12-19 20:10
还有VBA的密码提示

作者: 老鬼 时间: 2004-12-20 01:54
在我的电脑上测试并没问题，VBA的密码用OFFICE KEY破解一下，我也忘了是什么密码了。

作者: joyark 时间: 2011-7-3 22:03
不太明白含义,能否举个例子说明一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)