[挑战]功能最全、最短（7行）的人民币大写函数

kuteng600 · 发表于 2013-5-13 21:07

努力顶20个帖子

绿色眼睛 · 发表于 2013-8-26 11:08

这个不错，支持啊~~

comuyou · 发表于 2013-9-29 15:10

都好牛叉啊...佩服. 学习了

poongsan · 发表于 2013-10-25 23:37

更要做记号了！！！记号呀记号

poongsan · 发表于 2013-10-29 08:48

ldy888 发表于 2006-5-15 14:36
抛了半年的砖,终于引出这块玉!!!谢谢兄弟!
回家慢慢研究.

这代码如何？高手研究之后有结果吗？好不好用？？？？

我爱你！ · 发表于 2013-10-29 20:31

收藏起来。。

forlovewyz · 发表于 2014-4-22 23:04

gly1126 发表于 2006-5-14 21:34
受启发写了一个,欢迎指正!Public Function dx(n) dx = Replace(Application.Text(Round(n+0.00000001, 2 ...

真的很好，学习了。

forlovewyz · 发表于 2014-4-22 23:10

业余爱好者发表于 2007-1-21 14:49
还有只三行的唷,比你那个七行的少了一半多了 先声明一下,这是人家写的,我只是收集了一下,不过,你的自定 ...

留个脚印，方便查找。

清风幽闲 · 发表于 2014-4-23 10:47

=IF(INT(A1)=A1,NUMBERSTRING(A1,2),IF(VALUE(RIGHT(A1*100,2))<10,NUMBERSTRING(INT(A1),2)&"元零"&VALUE(RIGHT(A1*100,2))&"分",NUMBERSTRING(INT(A1),2)&TEXT(VALUE(RIGHT(A1*100,2)),"[dbnum2]元0角0分")))

这是一个excel自带的隐藏函数,用起来也蛮方便的

lifujian918171 · 发表于 2014-4-24 11:34

太简洁了，谢谢了[em01]，用了，无版权。再谢

		自动登录	找回密码
密码			免费注册