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

ywzx703 · 发表于 2013-10-12 11:09

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

我也喜欢公式版

xinying5167219 · 发表于 2013-10-30 19:33

本帖最后由 xinying5167219 于 2013-10-30 19:39 编辑

=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,,"零")),"零分","整")

我把这个公式输入了但还是提示出错为什么？？？高手们帮下忙，我把公式粘贴过去能用，自己输入就提示出错为什么？哪里出错怎么都弄不明白，是不是符合的问题？我是个菜鸟求高手帮下忙

fwwww577 · 发表于 2013-11-29 15:15

￥123.05在VBA中怎么自定义函数？

caiyd · 发表于 2014-4-18 06:26

学习了，谢谢。

VBA万岁 · 发表于 2014-4-20 16:28

谢谢分享！

wahhm5201 · 发表于 2014-7-21 11:48

呵呵，真心觉得做的都弱爆了。

xcnclzy · 发表于 2014-7-26 09:48

=SUBSTITUTE(TEXT(INT(A1),"[dbnum2]")&TEXT(MOD(A1,1)*100,"[dbnum2]元0角0分"),"零角零分","整")

hiytian9999 · 发表于 2014-12-12 22:28

如果我想把小写变成大写，而且是固定格式呢，怎么样才能做到呢？比如图左边的格式

littlestonew · 发表于 2015-8-21 11:09

真强啊越来越少

qdnzlh · 发表于 2015-8-23 21:46

本帖最后由 qdnzlh 于 2015-8-23 22:02 编辑

ldy 发表于 2008-8-14 22:12
............
Function dx(M)
dx = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0;负 0. 0 0; ")), ["[DBnum2]"&{0,"","圆0角;;圆零","0分;;整"}]), a), "零圆零", a), "零圆", a), "零整", "整")
'163字符A 无缺陷负数显示 “负” 负伍圆陆角伍分
End Function
............

还是这个好。

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