[分享]人民币大写函数TEXT终极版 1行(136字符)

awinlau · 发表于 2011-7-4 10:41

有心人啊。。

oonly · 发表于 2011-8-3 21:58

=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[dbnum2]G/通用格式元;负[dbnum2]G/通用格式元;"&IF(A1>-0.5%,,"负"))&TEXT(RIGHT(FIXED(A1),2),"[dbnum2]0角0分;;"&IF(ABS(A1)>1%,"整",)),"零角",IF(ABS(A1)<1,,"零")),"零分","整"）

试了几个只有这个好!

legend127 · 发表于 2011-8-12 09:40

知识真是越学越多

cyy1905 · 发表于 2011-10-12 13:06

很好，只是不太了解函数，不过有发明者的发明就很足够啦，谢谢！

lpzxhjp · 发表于 2011-10-21 18:47

jmey 发表于 2010-7-15 17:22
改了一下，去掉中间的空格
=SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(FIXED(A1)),"[dbnum2]G/通用格式元;负[dbnu ...

这个公式用于负数大写时出错

不解木野狐 · 发表于 2011-10-21 22:01

这里面的学问真不少啊

不解木野狐 · 发表于 2011-10-21 22:06

name004 发表于 2008-7-13 14:20
非常祝贺LDY斑竹的大作，基本查实不出毛病。我平时还是喜欢用这个版本，方便。(目标格a12),你不知道，有好多 ...

财务人员是不能用的，缺少零...........

不解木野狐 · 发表于 2011-10-21 22:09

我现在还是小白，不过我敢说论坛里的VBA及函数高手，懂财务的几乎没有一个！
看他们编的金额大小写转换函数及VBA代码就知道了！

cxmgxl · 发表于 2011-10-24 16:01

高手如云，学习学习！

汉唐 · 发表于 2011-11-4 13:44

我个人认为：阿拉伯数字只要小数点不超过两位数，直接用函数就可以了
  见代码：=NUMBERSTRING(INT(E10),2)"元"&TEXT(RIGHT(E10*100,2),"[dbnum2]0角0分")
  vba不是太懂，目前正在学习中，感觉博大精深，到时还请各位老师指教

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

[分享]人民币大写函数TEXT终极版 1行(136字符)

评分